R Plotly：带有时间滑块的条形图列表

如何解决R Plotly：带有时间滑块的条形图列表

我有一个 data.frames 列表，每个 data.frame 都有一个单一日期的数据。我希望使用 plotly 能够显示第 1 天的第一个条形图，并使用滑块滚动日期，对于我想查看特定条形图的每一天。每个条形图还有一些其他静态图 - 从某种意义上说，静态部分不会从一天到下一天发生变化，但条形图的数据会发生变化。一切都在 R 中完成。（如果您愿意，可以将静态部分想象成一种徽标）。

这里有一个玩具示例代码，但最终结果不是我想要的。显然我遗漏了一个重要的部分，但我不确定在哪里。

library(plotly)

t1 <- data.frame(st=c("a","b","c","d","e","f"),x1 =c(13,2,4,19,21,7),x2 = c(13,7)+10,date1 = as.Date(rep("1/12/20",9),"%m/%d/%y"))

t2 <- data.frame(st=c("a",x1 =c(15,7,20,25,10),x2=c(15,10)+10,date1 = as.Date(rep("3/5/20","%m/%d/%y"))

t3 <- data.frame(st=c("a",x1 =c(20,5,10,23,33,14),x2=c(20,14)+10,date1 = as.Date(rep("6/25/20","%m/%d/%y"))

t4 <- data.frame(st=c("a",x1 =c(27,11,12,31,35,22),x2=c(27,22)+10,date1 = as.Date(rep("8/17/20","%m/%d/%y"))

t5 <- data.frame(st=c("a",x1 =c(28,17,39,37,28),x2=c(28,28)+10,date1 = as.Date(rep("9/11/20","%m/%d/%y"))

tt <- list(t1,t2,t3,t4,t5)
n2 <- length(tt)


fig <- plot_ly()
steps<- list()


for (i in 1:n2){

  step <- list(args = list('visible',rep(FALSE,length(tt))),method = 'restyle',label="")
    step$args[[2]][i] = TRUE  
    steps[[i]] = step 
    steps[[i]]$label <- paste("Date:",tt[[i]][1,4])
    
    fig<-add_trace(fig,x=tt[[i]][,3],type = 'bar',orientation = 'h',showlegend=FALSE,marker=list(color="red"),text=paste(tt[[i]][,1],"vals=",tt[[i]][,2]),hoverinfo = "text")%>% 
    add_polygons(x=c(0,0),y=c(6,6,9,fillcolor="blue",line = list(color = "blue"),inherit = FALSE,hoverinfo ="skip")%>%
    add_trace(x=rep(c(1,3,4),2),y=rep(seq(6,each=2),type="scatter",mode="markers",marker = list(size = 14,color = rainbow(8),symbol = 1),hoverinfo ="skip")%>%
    layout(
    xaxis = list(
       zeroline = FALSE,showline = FALSE,showticklabels = FALSE,showgrid = FALSE
    ),yaxis = list(
    showline = FALSE,showgrid = FALSE
  ),bargap = 0,hoverlabel=list(bgcolor="white"),showlegend = FALSE,title=list(text=paste("test"),font=list(size=20))
  )
}

fig <- fig %>%
  layout(sliders = list(list(active = 0,currentvalue = list(prefix = ""),steps = steps)))
                             
fig

第一天绘制了所有 5 个数据框架中的每个数据，包括蓝色方块和彩虹点。对于第 2 天，仅绘制蓝色矩形，第 3 天仅绘制彩虹点，第 4 天仅绘制来自 t2 data.frame 的条形图，第 5 天返回蓝色矩形。所以绝对不是我所追求的。

谢谢， 莫妮卡