Question

如何在最终帧上进行绘制动画加载。也就是说，当情节加载时，我希望它加载到最后一帧（例如2017）。默认情况下，它会加载到第一帧（例如1960）。之后，当用户点击播放时，动画应该从第一帧开始（例如1960）

 animation_opts(frame = frame, transition = 0, redraw = FALSE) %>% 
  animation_slider(currentvalue = list(prefix = "Year"))

Answer 1

这不是一个完整的答案，但由于没有其他答案，我决定发布我能做的最好的，也许其他人有想法从那里改进？

有一个函数animation_slider()，它接受参数active，它可以设置滑块上的活动框架。但是，这不会改变绘图中的活动帧...所以想法是添加一个帧0，（在评论中也由Sixiang.Hu提到）并将其与活动帧相结合。这个解决方案的缺点显然是当你向后移动动画滑块时总是有一个帧0。

# sample data
df = data.frame(a=seq(1,20),b=seq(1,20),frame=seq(1,20))

# add initial frame
init_frame = 10
df = rbind(df[df$frame==10,],df)
df$frame[1]=0

library(plotly)
plot_ly(df,x=~a,y=~b,frame=~frame) %>% animation_slider(active=init_frame)

R Plotly动画 - 初始帧

1 个答案: