如何在R Plotly动画中展示群体间个体的移动效果？

问题原因 #

当同时用color（感染状态）和symbol（群体）分组时，Plotly会自动把感染状态+群体的每个组合拆分成独立的trace。但动画帧中不同日期的组合数量可能不一致，导致初始trace数量和帧内trace数量不匹配，触发number of items to replace is not a multiple of replacement length警告，同时Plotly无法正确追踪个体位置，看起来像没移动。

解决方法 #

核心是让Plotly通过个体唯一ID追踪移动，同时固定符号与群体的映射，避免分组混乱：

• 添加ids = ~id参数：用数据集中的个体ID绑定每个点，让Plotly明确知道每个帧里的点对应哪个个体
• 显式指定symbols参数：固定每个群体对应的符号，确保所有帧的符号映射一致

修正后的代码 #

library(plotly)
library(dplyr)

sim <- read.csv("https://raw.githubusercontent.com/CyGei/GROUP_SIMULATION/main/sim.csv")

fixed_plot <- sim %>%
  plot_ly(x = ~x, y = ~y) %>%
  add_markers(
    frame = ~day,
    ids = ~id,  # 关键：通过个体ID追踪移动
    color = ~as.factor(infected),
    colors = c("black", "red"),
    symbol = ~group,
    # 按群体的唯一值顺序指定符号，可根据需求调整
    symbols = c("circle", "square", "triangle-up", "diamond")
  ) %>%
  animation_opts(1000, redraw = FALSE)

# 查看动画
fixed_plot

效果说明 #

添加ids后，Plotly会忽略分组产生的trace差异，直接基于ID更新每个个体的位置、颜色和符号，完美还原个体移动效果；固定symbols则避免了不同帧中群体符号映射混乱的问题。

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