Я создал фигуру с ползунком, который близко следует этому примеру; 'Sine Wave Slider'
Я действительно хотел бы добавить заголовок, который меняется с каждым шагом в ползунке, но не могу его обновить, когда ползунок перемещается (Я просто получаю стандартный заголовок, который одинаков для каждого шага).Кто-нибудь может помочь?
Вот пример кода:
library(plotly)
x <- seq(0,10, length.out = 1000)
# create data
aval <- list()
for(step in 1:11){
aval[[step]] <-list(visible = FALSE,
name = paste0('v = ', step),
x=x,
y=sin(step*x))
}
aval[3][[1]]$visible = TRUE
# create steps and plot all traces
steps <- list()
p <- plot_ly()
for (i in 1:11) {
p <- add_lines(p,x=aval[i][[1]]$x, y=aval[i][[1]]$y, visible = aval[i][[1]]$visible,
name = aval[i][[1]]$name, type = 'scatter', mode = 'lines', hoverinfo = 'name',
line=list(color='00CED1'), showlegend = FALSE)%>%
layout(title = paste("this is chart",i)) # this line adds the title but doesn't update with the slider
step <- list(args = list('visible', rep(FALSE, length(aval))),
method = 'restyle')
step$args[[2]][i] = TRUE
steps[[i]] = step
}
# add slider control to plot
p <- p %>%
layout(sliders = list(list(active = 3,
currentvalue = list(prefix = "Frequency: "),
steps = steps)))