plot_ly(x = time(USAccDeaths), y = USAccDeaths) %>%
add_lines() %>%
rangeslider()
d <- tibble::tibble(
time = seq(as.Date("2016-01-01"), as.Date("2016-08-31"), by = "days"),
y = rnorm(seq_along(time))
)
plot_ly(d, x = ~time, y = ~y) %>%
add_lines() %>%
rangeslider(d$time[5], d$time[50])
Run the code above in your browser using DataLab