如何用R制作无轨迹的逐年新增点位地图动画？

嘿，我完全懂你想要的效果——就是每年新增对应年份的点位，同时把之前所有年份的点都保留下来，形成一种「逐步累积」的地图动画，而不是连线轨迹或者旧点消失的情况对吧？你现在用transition_reveal()和shadow_mark()没达到预期，问题其实出在数据结构和transition函数的搭配上，咱们来调整一下：

第一步：先把数据处理成「累积式」的结构 #

要实现逐年累积，首先得让每个动画帧对应的数据集包含到该年份为止的所有点位。比如2004年的帧只显示2004的点，2005年的帧显示2004+2005的点，以此类推。用dplyr和purrr可以轻松实现：

library(dplyr)
library(purrr)

# 先按年份排序，确保累积顺序正确
cumulative_properties <- Properties %>%
  arrange(Year) %>%
  # 按年份拆分成分组列表
  group_by(Year) %>%
  group_split() %>%
  # 逐个累积合并：第1个元素是2004，第2个是2004+2005，以此类推
  accumulate(~ bind_rows(.x, .y)) %>%
  # 把列表合并成数据框，新增frame列标记动画帧的顺序
  bind_rows(.id = "frame") %>%
  mutate(frame = as.integer(frame))

第二步：用transition_manual()实现帧切换 #

transition_reveal()更适合连续变量的「渐进式」显示，而我们需要的是离散年份的批量切换，transition_manual()是最直接的选择——它会严格按照你定义的frame列来切换每个帧的完整数据集：

library(gganimate)

Final_View <- Minneapolis +
  # 简化主题设置
  theme(legend.position = "none",
        axis.ticks = element_blank(),
        axis.text = element_blank()) +
  geom_point(aes(x = lon, y = lat, color = "darkred"), 
             data = cumulative_properties, size = 1) +
  # 按自定义的frame列切换动画帧
  transition_manual(frame) +
  # 动态更新标题，显示当前年份
  labs(title = "CLCLT Properties Added: Year {unique(Year)[current_frame]}")

# 生成动画：nframes设为年份的数量，fps控制播放速度
animate(Final_View, nframes = length(unique(Properties$Year)), fps = 2)

为什么之前的方法不行？ #

你试的transition_reveal()是基于连续数值变量的，它会逐个点按Year的值「揭露」，而不是按年份批量叠加；enter_*()系列函数是控制新元素的进入效果，但如果你的数据集没有包含历史点位，旧点自然会消失——毕竟默认每个动画帧只对应当前时间点的数据，而不是累积数据。

备选方案：用transition_states() #

如果你不想手动处理frame列，也可以用transition_states()，把Year作为状态，设置state_length=0让每个状态（年份）直接切换：

Final_View <- Minneapolis +
  theme(legend.position = "none",
        axis.ticks = element_blank(),
        axis.text = element_blank()) +
  geom_point(aes(x = lon, y = lat, color = "darkred"), 
             data = cumulative_properties, size = 1) +
  transition_states(frame, transition_length = 1, state_length = 0) +
  labs(title = "CLCLT Properties Added: Year {unique(Year)[closest_state]}")

animate(Final_View, nframes = length(unique(Properties$Year))*2, fps = 2)

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