Durraniu,
I think what you had would have worked if you just added the “animation_slider” to the subplot. I did autoscale the y axis because it looked like you were not always seeing your data because it was out of view
library(plotly)
accumulate_by ← function(dat, var) {
var ← lazyeval::f_eval(var, dat)
lvls ← plotly:::getLevels(var)
dats ← lapply(seq_along(lvls), function(x) {
cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[])
})
dplyr::bind_rows(dats)
}
library(MASS)
data(Traffic)
data 1
Traffic1 ← Traffic
Traffic1 ← Traffic[Traffic$year==1961,]
Traffic1 ← accumulate_by(Traffic1, ~day)
Traffic1min ← min(Traffic1$y)
Traffic1max ← max(Traffic1$y)
plot1
y_plot ← plot_ly(data = Traffic1,
x = ~day,
y = ~y,
frame = ~frame,
type = “scatter”)%>%
layout(yaxis = list(range = c(Traffic1min, Traffic1max)))
animation_slider(
currentvalue = list(
prefix = “Day”
# )
data 2
Traffic2 ← Traffic
Traffic2 ← Traffic[Traffic$year==1962,]
Traffic2 ← accumulate_by(Traffic2, ~day)
Traffic2min ← min(Traffic2$y)
Traffic2max ← max(Traffic2$y)
plot 2
y_plot2 ← plot_ly(data = Traffic2,
x = ~day,
y = ~y,
frame = ~frame,
type = “scatter”) %>%
layout(yaxis = list(range = c(Traffic1min, Traffic1max)))
animation_slider(
currentvalue = list(
prefix = “Day”
)
)
combined plot
subplot(y_plot, y_plot2, nrows=2, shareX = TRUE) %>%
animation_slider(
currentvalue = list(
prefix = “Day”
)
)