如何在gganimate中高亮出现元素的边框并实现变色与尺寸调整？

针对你提出的两个需求，这里给出具体实现方案：

一、实现边框高亮（红→黑切换） #

借助gganimate的current_state()函数判断当前帧显示的元素，给刚出现的元素设置红色边框，已出现的元素保留黑色边框，配合shadow_mark()保留历史元素的状态。

二、调整边框尺寸 #

通过geom_sf()的size参数控制边框粗细，按需设置不同数值即可。

修改后的完整代码 #

# 加载包
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.y = element_blank(),
        axis.text.x = element_blank(),
        axis.title.x = element_blank(),
        axis.ticks.y = element_blank(),
        axis.ticks.x = element_blank(),
        panel.background = element_rect(fill = "lightgrey", colour = NA),
        plot.background = element_rect(fill = "lightgrey", colour = NA),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank()) +
  # 关键修改：根据当前状态设置边框颜色和尺寸
  geom_sf(data = country10, 
          aes(col = if_else(sovereignt == current_state(order), "red", "black"),
              size = if_else(sovereignt == current_state(order), 1.5, 1)),
          fill = "transparent") +
  # 取消自动生成的图例（避免干扰动画）
  scale_color_identity() +
  scale_size_identity() +
  transition_states(order) + 
  # 保留已出现元素的黑色常规边框
  shadow_mark(col = "black", size = 1)

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

效果展示 #

关键修改说明 #

• 用current_state(order)识别当前帧的目标元素，实现当前元素红粗边框、历史元素黑常规边框的切换
• 通过size参数调整边框粗细，示例中当前元素设为1.5，历史元素设为1，可按需修改数值
• scale_color_identity()和scale_size_identity()用于取消自动生成的图例，保证动画视觉整洁

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