gganimate动画循环结束时线条与标签显示异常问题求助

问题描述 #

使用以下数据集制作gganimate动画折线图时，遇到两个问题：

1. 动画播放结束后，除ZAR=X对应的紫色线条外，其余货币的geom_line和geom_text全部消失；
2. 动画无法停留在数据集最后一天的状态。

数据集 #

data <- structure(list(date = structure(c(19556, 19557, 19558, 19561, 
19563, 19556, 19557, 19558, 19561, 19563, 19556, 19557, 19558, 
19561, 19563, 19556, 19557, 19558, 19561, 19563, 19556, 19557, 
19558, 19561, 19563), class = "Date"), Currency = c("BRL=X", 
"BRL=X", "BRL=X", "BRL=X", "BRL=X", "CNY=X", "CNY=X", "CNY=X", 
"CNY=X", "CNY=X", "INR=X", "INR=X", "INR=X", "INR=X", "INR=X", 
"RUB=X", "RUB=X", "RUB=X", "RUB=X", "RUB=X", "ZAR=X", "ZAR=X", 
"ZAR=X", "ZAR=X", "ZAR=X"), Value = c(0.0728283484445535, -0.330853035270251, 
-0.185196338381155, -0.59095144482415, -1.42536190678508, 0.121327281222205, 
0.771207935608831, 0.0822791148568092, 0.101803198039518, -0.422560743106815, 
0.0168185542960497, 0.000120863021479956, 0.0253440458877874, 
-0.086881918129611, -0.233479466023445, 0.436123047805403, 1.48504054900642, 
-0.557576741878718, -0.115936134798933, -0.410514833768572, -0.864034124436708, 
-1.03512202608551, -0.612038284146266, -0.444506775404796, -2.34736750187213
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-25L))

原代码 #

library(tidyverse)
library(gganimate)

cum_fx <- data %>% {
    ggplot(., aes(date, Value, col = Currency)) +
      geom_line() +
      geom_text(aes(x = date, label = sprintf("%.2f", Value), group = Currency), hjust = 0,show.legend = F,fontface='bold',color='#16161E') +
      transition_reveal(date) 
}

animate(cum_fx, height = 7, 
        width = 15, units = "in", res = 150, renderer = gifski_renderer(loop = FALSE))

anim_save("fx.gif")

原动画效果 #

问题原因 #

1. transition_reveal(date)未指定分组时，默认将整个数据集视为单一整体处理，导致最后仅保留最后一个分组（ZAR=X）的元素；
2. 未设置停留参数，动画播放完毕后直接结束，不会停留在最后一帧。

修复方案 #

完整修复代码 #

library(tidyverse)
library(gganimate)

cum_fx <- data %>% {
    ggplot(., aes(date, Value, col = Currency)) +
      geom_line() +
      # 调整hjust为1，避免文本超出画布边界
      geom_text(aes(x = date, label = sprintf("%.2f", Value), group = Currency), 
                hjust = 1, show.legend = FALSE, fontface='bold', color='#16161E') +
      # 指定分组并保留所有元素到最后一帧
      transition_reveal(date, group = Currency, keep_last = TRUE) 
}

animate(cum_fx, height = 7, 
        width = 15, units = "in", res = 150, 
        renderer = gifski_renderer(loop = FALSE),
        # 设置最后停留10帧，可根据需求调整帧数
        end_pause = 10)

anim_save("fx.gif")

关键修复点说明 #

• transition_reveal(date, group = Currency, keep_last = TRUE)：明确按货币分组展示动画，keep_last=TRUE确保所有分组的线条和文本在最后一帧完整保留；
• end_pause = 10：让动画播放结束后，停留在最后一帧10个单位时间（时长由帧率决定）；
• 调整geom_text的hjust=1：将文本放在数据点左侧，避免因画布边界截断导致文本看起来消失。

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