dynamic-graphs-Koonmee

p <- subplot(list(weather, wnv),
             nrows = 2,
             shareX = TRUE,
             titleX = FALSE) %>%
            rangeslider() %>%
            layout(hovermode = "x")

p