R语言Plotly子图累积动画失效，如何实现双图联合动画？

没问题！完全可以实现两个子图的同步累积动画～ 你遇到的问题主要是因为单独的动画子图在合并时，它们的动画控制器和帧没有对齐，导致Plotly无法识别要同步触发。我调整了你的代码，让两个子图能完美同步播放累积动画，下面是完整的可运行示例：

错误示例（你原来可能的写法） #

先看看你之前可能导致动画失效的代码：

library(plotly)
library(dplyr)
library(lazyeval)
library(MASS)

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[[x]])
  })
  dplyr::bind_rows(dats)
}

data(Traffic)

# 处理第一个数据集
traffic_acc1 <- Traffic %>% accumulate_by(~hour)
p1 <- plot_ly(traffic_acc1, x = ~cars, y = ~qsec, frame = ~frame, type = 'scatter', mode = 'markers') %>%
  layout(title = "Cars vs Qsec by Hour")

# 处理第二个数据集
traffic_acc2 <- Traffic %>% accumulate_by(~hour)
p2 <- plot_ly(traffic_acc2, x = ~cars, y = ~speed, frame = ~frame, type = 'scatter', mode = 'markers') %>%
  layout(title = "Cars vs Speed by Hour")

# 直接合并子图，动画失效
subplot(p1, p2)

修正后的代码（实现同步动画） #

library(plotly)
library(dplyr)
library(lazyeval)
library(MASS)

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[[x]])
  })
  dplyr::bind_rows(dats)
}

data(Traffic)

# 统一处理数据集，确保两个图的frame完全一致
traffic_acc <- Traffic %>% accumulate_by(~hour)

# 创建第一个子图，注意不要单独生成控制器
p1 <- plot_ly(traffic_acc, x = ~cars, y = ~qsec, frame = ~frame, type = 'scatter', mode = 'markers') %>%
  layout(title = "Cars vs Qsec by Hour", sliders = NULL, updatemenus = NULL)

# 创建第二个子图，同样去掉单独的控制器
p2 <- plot_ly(traffic_acc, x = ~cars, y = ~speed, frame = ~frame, type = 'scatter', mode = 'markers') %>%
  layout(title = "Cars vs Speed by Hour", sliders = NULL, updatemenus = NULL)

# 合并子图，Plotly会自动识别统一的frame并生成同步控制器
subplot(p1, p2, nrows = 2) %>%
  layout(title = "同步累积动画子图", showlegend = FALSE) %>%
  animation_opts(frame = 1000, transition = 0, redraw = FALSE) %>%
  animation_slider(currentvalue = list(prefix = "当前小时: "))

关键要点说明 #

• 统一frame数据源：两个子图必须使用完全相同的frame列，这样动画控制器才能同步触发两个图的帧更新
• 移除单独控制器：在每个子图的layout里设置sliders = NULL和updatemenus = NULL，避免合并后出现多个重复的控制器
• 统一动画配置：合并后用animation_opts统一设置动画的速度、过渡效果，用animation_slider自定义滑块显示，让体验更流畅

这样调整后，两个子图就会同步播放累积动画，拖动滑块或者点击播放按钮时，两个图会同时更新对应的帧内容～

内容的提问来源于stack exchange，提问作者umair durrani