Hay alguna forma de que en el gráfico me aparezca el dylimit()
por encima del dygraph()
? es decir que la linea roja se vea por encima de las barras. He estado buscando y tratando diferentes combinaciones pero no logro realizarlo.
Esto es lo que me gustaría tener
El código que estoy usando es el siguiente:
dygraph((base1,"Titulo del grafico") %>%
dyAxis("y", label = "Porcentaje de cumplimiento", valueRange = c(0, 110)) %>%
dyAxis("x", label = "Mes y año", drawGrid = FALSE) %>%
dySeries(drawPoints = TRUE,label="Resultado", pointShape = "square", color = "lightblue",pointSize=2.5) %>%
dyRangeSelector(dateWindow = ds1.1.1[c(length(ds1.1.1)-12,length(ds1.1.1))]) %>%
dyBarChart() %>%
dyLimit(95, "Mínimo permitido (95)", strokePattern = "solid", color = "red")
Edito y agrego un ejemplo reproducible:
library("zoo")
a=c(0,0,0,7,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,2,2,0,1,0,0,1,0,3,0,1,1,0,0,2,0,0,0,0,1,2,2,0)
b=c(597,619,639,622,613,591,632,611,596,598,558,542,567,556,595,543,597,617,543,596,636,386,336,349,376,318,329,339,304,309,301,321,308,472,344,292,389,306,282,312,313,376,315,327)
base1.1.1=cbind(a,b)
base1.1.1=ts(frequency = 12, start = c(2015, 10),base1.1.1)
ds1.1.1=as.Date(as.yearmon(index(as.zoo(base1.1.1)),"%mmm %Y"), frac = 0)
dygraph((1-(base1.1.1[,1]/base1.1.1[,2]))*100,"Titulo A") %>%
dyAxis("y", label = "Porcentaje de cumplimiento", valueRange = c(0, 110)) %>%
dyAxis("x", label = "Mes y año", drawGrid = FALSE) %>%
dySeries(drawPoints = TRUE,label="Resultado", pointShape = "square", color = "lightblue",pointSize=2.5) %>%
dyRangeSelector(dateWindow = ds1.1.1[c(length(ds1.1.1)-12,length(ds1.1.1))]) %>%
dyLimit(95, "Mínimo permitido (95)", strokePattern = "solid", color = "red") %>%
dyBarChart()