gganimate使用shadow_mark无法保留历史标记且出现移动点的问题

问题分析 #

你的代码存在两个核心问题：

1. 出现移动轨迹：使用transition_time(clust$datetime)会让gganimate在时间点之间生成插值帧，导致地震点出现不必要的移动轨迹，不符合你展示离散时间点地震位置的需求。
2. 无法保留所有历史标记：shadow_mark在transition_time的插值机制下，默认的wake_length会限制历史标记的保留范围，无法显示全部已发生的地震点。

修正方案 #

以下提供两种可行的修正代码，均能满足你的需求：

方案一：使用transition_events（推荐，适配离散事件） #

transition_events专门用于处理离散事件的动画，可设置事件出现后永久保留：

# 先按时间排序数据，确保动画按事件发生顺序推进
clust_sorted <- clust[order(clust$datetime), ]

anim <- ggplot(clust_sorted, aes(x = longitude, y = latitude, size = mag)) +
  # 直接设置固定颜色，移除矛盾的离散颜色映射
  geom_point(colour = '#562486', show.legend = FALSE, alpha = 0.7) +
  theme_bw() +
  labs(x = "Longitude", y = "Latitude", title = "{frame_time}") +
  # 配置事件：每个地震在datetime时出现，永久保留（end=Inf）
  transition_events(start = datetime, end = Inf) +
  # 可选：添加淡入效果，让新出现的地震点更自然
  enter_fade()

animate(anim, height = 4, width = 7, units = "in", fps = 0.5, end_pause = 60, res = 100)

方案二：使用transition_states配合shadow_mark #

通过状态切换实现无过渡动画，并用shadow_mark保留所有历史点：

# 按时间排序并添加顺序状态列
clust_sorted <- clust[order(clust$datetime), ]
clust_sorted$event_order <- seq(nrow(clust_sorted))

anim <- ggplot(clust_sorted, aes(x = longitude, y = latitude, size = mag)) +
  geom_point(colour = '#562486', show.legend = FALSE, alpha = 0.7) +
  theme_bw() +
  # 标题显示当前事件的时间
  labs(x = "Longitude", y = "Latitude", title = "{clust_sorted$datetime[event_order]}") +
  # 切换状态时无过渡动画（transition_length=0），每个状态停留1单位时长
  transition_states(event_order, transition_length = 0, state_length = 1) +
  # 保留所有历史标记，设置透明度和颜色
  shadow_mark(past = TRUE, future = FALSE, alpha = 0.5, colour = '#562486')

animate(anim, height = 4, width = 7, units = "in", fps = 0.5, end_pause = 60, res = 100)

关键修改说明 #

• 移除了原代码中scale_color_viridis_d()，因为你将colour设为固定值，该离散颜色映射无意义且矛盾。
• 对数据按datetime排序，确保动画按地震发生的时间顺序推进。
• 方案一通过transition_events的end=Inf参数，让每个地震点一旦出现就永久保留，彻底避免了插值轨迹问题。
• 方案二通过transition_length=0消除状态间的过渡动画，配合shadow_mark(past=TRUE)保留所有已显示的地震点。

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