gganimate制作非洲国家逐显GIF：首国边框错位至末帧问题求助

问题描述 #

制作非洲各国逐帧展示的GIF时，首个国家的边框始终出现在最后一帧而非第一帧，添加end_pause后该问题更为明显。

解决方案 #

问题根源在于transition_states()的默认过渡行为——它会在状态前后生成空白过渡帧，导致首帧未渲染第一个国家，末帧出现异常重复元素。针对逐帧展示的需求，更合适的方式是使用transition_manual()，它会严格按照指定顺序切换状态，无额外过渡帧；配合shadow_mark()可保留已展示的国家，确保动画逻辑符合预期。

修改后的代码 #

# 加载包
pack <- c('gganimate','rnaturalearth','sf','tidyverse')
lapply(pack, require, character.only = TRUE)

# 准备非洲地图数据
africa <- ne_countries(continent = "africa", returnclass = "sf")
# 取10个国家作为示例
country10 <- st_as_sf(head(africa, 10))
# 设置展示顺序的因子水平
country10$order <- factor(country10$sovereignt, levels = country10$sovereignt)

# 合并非洲大陆几何形状
africa$un <- rep.int(1, length(africa$featurecla))
sf_use_s2(FALSE)
africa <- africa %>%
  group_by(un) %>%
  summarise(geometry = st_union(geometry))

# 绘制动画
a <- ggplot(data = africa) + 
  geom_sf() + 
  coord_sf() +
  theme(
    axis.text = element_blank(),
    axis.title = element_blank(),
    axis.ticks = element_blank(),
    panel.background = element_rect(fill = "lightgrey", colour = NA),
    plot.background = element_rect(fill = "lightgrey", colour = NA),
    panel.grid = element_blank()
  ) +
  geom_sf(data = country10, col = "green3", fill = "transparent") +
  transition_manual(order) +  # 替换为transition_manual实现严格逐帧切换
  shadow_mark()  # 保留已展示的国家

# 输出GIF
animate(a, fps = 10, height = 4, width = 3, units = "cm", res = 600, end_pause = 30)
anim_save("africa.gif")

补充说明 #

如果仍想使用transition_states()，可通过参数设置消除过渡帧：

transition_states(order, transition_length = 0, state_length = 1, start_value = 1)

transition_length = 0关闭状态间过渡动画，start_value = 1确保首帧直接渲染第一个国家，避免初始空白帧。

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