0

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 ...
> 
10
  • Bienvenido JRN a Stack Overflow en español, te sugiero que hagas el recorrido de bienvenida y de paso ganes tu primer medalla, también es muy importante que leas Cómo preguntar para poder mejorar tu pregunta y que sea bien recibida por la comunidad mejorando tus chances de obtener buenas respuestas.. Commented el 11 jun. 2019 a las 14:46
  • Por favor, añade a tu pregunta la estructura de x pegando la salida de str(x), gracias. Commented el 11 jun. 2019 a las 14:47
  • Hola @PatricioMoracho, adjunto la informacion. Gracias.
    – JRN
    Commented el 11 jun. 2019 a las 15:07
  • Un posible problema es esto 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 hacer x[nrow(x)-11,1]. Estos valores debieran ser totalmente usables así dyRangeSelector(dateWindow = c(x[nrow(x)-11,1], x[nrow(x),1])) Commented el 11 jun. 2019 a las 15:21
  • @PatricioMoracho a mi tambien me parece que deberia funcionar sin embargo por alguna razon donde deberia aparecer el grafico aparece en blanco y al cambiar dyRangeSelector(dateWindow = c(x[nrow(x)-11,1], x[nrow(x),1])) por dyRangeSelector(dateWindow = c("2018-04-01", "2019-04-01")) me vuelve a aparecer el grafico.
    – JRN
    Commented el 11 jun. 2019 a las 15:29

1 respuesta 1

0

Puedes hacerlo com algunas funciones de zoo. La idea es convertir la clase ts que tienes para la clase Date, y funciona.

Nm=100 # para simular otro numero de meses
base2=ts(frequency = 12, start = c(2015, 10),runif(Nm,90,100))
library(zoo)
index(as.zoo(base2))
ds=as.Date(as.yearmon(index(as.zoo(base2)),"%mmm %Y"), frac = 0)
ds[c(length(ds)-12,length(ds))]

dygraph(base2) %>%
  dyAxis("y", label = "Y", valueRange = c(50, 110)) %>%
  dyAxis("x", label = "X", drawGrid = FALSE) %>% 
  dySeries(drawPoints = FALSE, pointShape = "square", color = "blue") %>% 
  dyRangeSelector(dateWindow = ds[c(length(ds)-12,length(ds))])

introducir la descripción de la imagen aquí

1
  • 1
    amigo, exactamente eso es y el grafico funciona como esperaba, muchisimas gracias!
    – JRN
    Commented el 12 jun. 2019 a las 14:03

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.