如何用R的gganimate制作按时间动态展示国家事件的堆叠点图

问题根源 #

1. 同时使用多个transition_*函数（transition_time/transition_reveal/transition_layers）会导致动画逻辑冲突，无法正常渲染堆叠效果。
2. geom_dotplot默认binaxis="x"，点会沿x轴分散排列，而非y轴堆叠。

方案一：用geom_point实现可控堆叠（推荐） #

先预处理数据，计算每个国家内事件的累计位置，再配合transition_reveal实现逐时间点展示堆叠点：

library(ggplot2)
library(gganimate)
library(dplyr)

# 原始数据
df <- data.frame(country = factor(c("Mexico", "USA","France", "USA","France","Mexico", "USA")),
                 start_date = as.Date(c("2016-01-26", "2016-02-26","2016-03-26","2016-04-26","2016-05-26","2016-04-26","2016-05-26")),
                 events = factor(c("Protest", "Election","Covid","Protest", "Election","Protest", "Election"))
                  )

# 预处理：按国家+日期排序，生成每个点的堆叠y坐标
df <- df %>%
  arrange(country, start_date) %>%
  group_by(country) %>%
  mutate(y_pos = row_number()) %>%
  ungroup()

# 基础点图
p1 <- ggplot(df, aes(x = country, y = y_pos, color = events)) +
  geom_point(size = 5) +
  labs(x = "国家", y = "累计事件数")

# 动画设置
p_anim <- p1 +
  transition_reveal(start_date) +  # 按日期逐步展示点
  ease_aes("linear") +
  enter_fade()

animate(p_anim)

方案二：调整geom_dotplot参数实现堆叠 #

如果坚持使用geom_dotplot，需修改bin方向参数，并精简动画逻辑：

library(ggplot2)
library(gganimate)

# 原始数据（同上，省略重复代码）

# 基础堆叠点图
p1 <- ggplot(df, aes(x = country, fill = events)) +
  geom_dotplot(binaxis = "y",  # 设置沿y轴分箱堆叠
               stackdir = "center",  # 堆叠方式居中
               dotsize = 1.5) +
  ylab("")  # 隐藏y轴标签（dotplot自动处理堆叠高度）

# 动画设置：仅保留单个transition函数
p_anim <- p1 +
  transition_time(start_date) +
  ease_aes("linear") +
  enter_fade()

animate(p_anim)

关键注意事项 #

• 不要同时使用多个transition_*函数，否则会破坏动画的渲染逻辑。
• 若需要区分事件类型，geom_point的方案更直观，可通过颜色/形状直接标记；geom_dotplot则适合按类别堆叠展示数量。

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