如何在gganimate图表中实现geom_segment的动画显示

你目前已经能用ifelse控制geom_text和geom_rect的动画显示，但geom_segment始终全程显示，无法仅在2023-07-10对应的帧之后出现。问题出在没有给geom_segment添加条件判断逻辑——当前代码里的线段参数是固定值，没有随reveal_col的变化而调整。

解决思路 #

通过在geom_segment的aes映射中加入ifelse判断，让不满足条件的帧要么直接不生成线段（设为NA），要么渲染为透明状态，再配合na.rm=TRUE过滤无效值即可实现同步显示。

修改后的完整代码 #

library(tidyverse)
library(gganimate)

data <- structure(list(Date = structure(c(19541, 19542, 19543, 19544, 
                                          19545, 19548, 19549, 19550, 19551, 19552, 19555, 19556, 19557, 
                                          19558, 19559, 19562), class = "Date"), Value = c(18.7414, 18.6471, 
                                                                                           18.7749, 19.1089, 18.867, 18.7948, 18.4902, 18.135, 17.9282, 
                                                                                           18.1077, 18.0356, 17.8571, 17.8682, 17.9244, 17.96, 17.9832)), row.names = c(NA, 
                                                                                                                                                                        -16L), class = c("tbl_df", "tbl", "data.frame"))


p <- ggplot(mutate(data, reveal_col = row_number()),
            aes(x = Date, y = Value)) +
  geom_rect(aes(xmin = max(Date) - days(3), xmax = max(Date),
                ymin = -Inf, ymax = Inf, 
                fill = ifelse(reveal_col > nrow(data) - 1, NA, "#FF000060")),
            na.rm = TRUE) +
  geom_line(linewidth = 1) +
  geom_text(aes(x = Date, label = sprintf("%.2f", Value)),
            hjust = 0,show.legend = F,
            fontface='bold',color='#16161E') +
  geom_text(aes(x = as.Date('2023-07-10'), y = 19, 
                label = ifelse(reveal_col > match(as.Date("2023-07-10"), Date),
                               'I want these words to be animated', "")), 
            hjust = 0, fontface = 'bold', color = '#16161E') +
  # 修改geom_segment，添加条件判断
  geom_segment(aes(x = ifelse(reveal_col > match(as.Date("2023-07-10"), Date), as.Date('2023-07-10'), NA),
                   y = 18.8,
                   xend = ifelse(reveal_col > match(as.Date("2023-07-10"), Date), as.Date('2023-07-10'), NA),
                   yend = 19),
               na.rm = TRUE) +
  theme_light() +
  scale_fill_identity() +
  coord_cartesian(clip = "off") +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        plot.margin = unit(c(1, 1, 1, 1), "lines"), 
        plot.title = element_text(colour = '#16161E'),
        legend.title = element_blank(), legend.position = 'bottom',
        plot.caption = element_text(hjust = 0)) +
  transition_reveal(reveal_col)

animate(p, height = 4, width = 7, units = "in", res = 150)

另一种可选方案（通过透明度控制） #

如果不想用NA，也可以通过alpha参数控制显示隐藏，效果完全一致：

geom_segment(aes(x = as.Date('2023-07-10'), y = 18.8,
                 xend = as.Date('2023-07-10'), yend = 19,
                 alpha = ifelse(reveal_col > match(as.Date("2023-07-10"), Date), 1, 0)),
             show.legend = FALSE)

效果说明 #

修改后，geom_segment会和上方的文字同步，仅在动画播放到2023-07-10对应的帧之后才显示，完美匹配需求。

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