library(dygraphs)
library(timetk)
library(xts)
df<-tibble::tribble(
~month, ~abortion, ~delivery, ~pregnant,
"01-01-17", 13, 30, 43,
"01-02-17", 40, 14, 54,
"01-03-17", 19, 15, 34,
"01-04-17", 45, 20, 65,
"01-05-17", 16, 60, 76,
"01-06-17", 10, 35, 45,
"01-07-17", 10, 55, 65,
"01-08-17", 17, 70, 87,
"01-09-17", 10, 88, 98,
"01-10-17", 18, 60, 78,
"01-11-17", 25, 40, 65,
"01-12-17", 30, 37, 67,
"01-01-18", 30, 26, 56,
"01-02-18", 25, 20, 45,
"01-03-18", 20, 14, 34,
"01-04-18", 30, 24, 54,
"01-05-18", 20, 45, 65,
"01-06-18", 10, 57, 67,
"01-07-18", 10, 88, 98,
"01-08-18", 60, 18, 78,
"01-09-18", 30, 35, 65,
"01-10-18", 30, 37, 67,
"01-11-18", 10, 46, 56,
"01-12-18", 20, 45, 65,
"01-01-19", 10, 35, 45,
"01-02-19", 10, 24, 34,
"01-03-19", 30, 35, 65,
"01-04-19", 40, 25, 65,
"01-05-19", 40, 48, 88
)
# t <- xts(x=d1,order.by = d1$MthYr)
report <- cbind(df$abortion, df$delivery,df$pregnant)
dygraph(report)
dygraph(report) %>% dyRangeSelector()
could anyone guide me through how to get rid of this error