gganimate动画最终帧数据点消失，如何让所有点保留？

问题原因 #

transition_reveal(year)的默认行为是随时间逐步展示元素，对于geom_point来说，它只会保留当前时间步对应的单个数据点，之前的点会被自动移除，因此在end_pause的暂停帧中，仅能看到最后一年的数据点，其余点消失。

解决方案 #

方案1：使用shadow_mark()保留所有历史点 #

添加shadow_mark()可以让所有已经出现过的数据点保留在画面中，动画过程中会逐步累积显示所有点，最终帧能看到完整的折线轨迹和所有年份的数据点。

修改后的完整代码：

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

gm <- gapminder %>%
  filter(continent == 'Oceania') %>%
  ggplot(aes(x = gdpPercap, y = lifeExp, group = country, col = country)) +
  geom_line() +
  geom_point(aes(size = pop), show.legend = FALSE, alpha = 0.7) +
  scale_size(range = c(2, 12)) +
  scale_x_log10() +
  theme_bw() +
  transition_reveal(year) +
  shadow_mark() +  # 保留所有历史点
  labs(title = "Year: {frame_time}") +
  NULL

animate(gm, end_pause = 10)

方案2：单独控制点的动画逻辑（仅最终帧显示所有点） #

如果希望动画过程中仅显示当前年份的数据点，仅在最终暂停帧展示所有点，可以通过给geom_point单独设置transition_states来实现，同时保持折线的transition_reveal逻辑：

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

gm <- gapminder %>%
  filter(continent == 'Oceania') %>%
  ggplot(aes(x = gdpPercap, y = lifeExp, group = country, col = country)) +
  geom_line() +
  # 为点添加state映射，绑定年份
  geom_point(aes(size = pop, state = year), show.legend = FALSE, alpha = 0.7) +
  scale_size(range = c(2, 12)) +
  scale_x_log10() +
  theme_bw() +
  transition_reveal(year) +
  # 控制点的状态切换，过渡时长设为0，状态停留时长设为1
  transition_states(year, transition_length = 0, state_length = 1) +
  enter_fade() +
  exit_fade() +
  labs(title = "Year: {closest_state}") +
  NULL

animate(gm, end_pause = 10)

效果说明 #

• 方案1：动画过程中会持续保留所有已出现的点，最终帧呈现完整的轨迹线和所有年份的数据点堆积效果。
• 方案2：动画过程中仅显示当前年份的点，到最终暂停帧时，所有年份的点会全部显示出来，折线轨迹保持完整。

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