Sucede que estoy trabajando con dygraph()
para un grafico dinámico, además le puse dyRangeSelector()
para que me aparezca el rango de fechas abajo del grafico. Esta ultima función, tiene la opción de que por defecto te aparezca graficado un rango de fechas y me gustaría que de forma automática aparecieran los últimos 12 meses, pero no se como. Actualmente la función que tengo para los rangos es esta:
dyRangeSelector(dateWindow = c("2018-04-01", "2019-03-01"))
Pues son los últimos 12 meses que tengo en la base, pero conforme se van agregando datos los meses van cambiando y para no estar cambiando el script me gustaría hacer la función para que automáticamente me agarre los últimos 12 meses ingresados. ¿Hay alguna forma de hacerlo?
Con x[(nrow(x)-12),1]
y x[nrow(x),1]
puedo obtener el rango para los últimos 12 meses, pero al ingresarlo a la formula me da error pues no me lo toma como como si yo escribiera "2018-04-01".
Gracias de antemano cualquier ayuda que me puedan dar.
La formula completa es esta:
base1=ts(frequency = 12, start = c(2015, 10),read_excel("C:/.../1.xlsx", sheet = "Hoja1")[,2])
x=read_excel("C:/.../1.xlsx", sheet = "Hoja1")
dygraph(base1) %>%
dyAxis("y", label = "Y", valueRange = c(0, 110)) %>%
dyAxis("x", label = "X", drawGrid = FALSE) %>%
dySeries(drawPoints = FALSE, pointShape = "square", color = "blue") %>%
dyRangeSelector(dateWindow = c("2018-04-01", "2019-04-01"))
Informacion adicional.
> str(base1)
Time-Series [1:43, 1] from 2016 to 2019: 100 100 100 98.9 99.8 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr "Cumplimiento"
> str(x)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame': 43 obs. of 2 variables:
$ Mes y año : chr "2015-10-01" "2015-11-01" "2015-12-01" "2016-01-01" ...
$ Cumplimiento: num 100 100 100 98.9 99.8 ...
>
x
pegando la salida destr(x)
, gracias.x[nrow(x)-12,1]
, si tienes 12 períodos o la selección es únicamente del primer año te va a retornar una cadena vacía, en todo caso para ir 12 meses para atrás, debes hacerx[nrow(x)-11,1]
. Estos valores debieran ser totalmente usables asídyRangeSelector(dateWindow = c(x[nrow(x)-11,1], x[nrow(x),1]))
dyRangeSelector(dateWindow = c(x[nrow(x)-11,1], x[nrow(x),1]))
pordyRangeSelector(dateWindow = c("2018-04-01", "2019-04-01"))
me vuelve a aparecer el grafico.