如何让gganimate动画仅循环一次并在2021年状态停止以显示全部柱状图

当然可以做到！要让动画只播放一次，最终停在2021年并显示全部柱状图，只需要调整animate()函数的参数，并确保过渡逻辑能保留所有历史柱子。下面是修改后的完整代码和关键说明：

修改后的代码 #

library(tidyverse)
library(gganimate)

year <- (2000:2021)
something <- mtcars$mpg[1:22]
df <- tibble(year, something)

p <- ggplot(df, aes(year, something)) +
  geom_col() +
  geom_text(aes(label = something), vjust = -0.3, size = 4) +
  transition_states(year, transition_length = 5, state_length = 10) +
  shadow_mark() +  # 保留之前年份的柱子，实现逐步累加效果
  enter_grow() +
  exit_fade(alpha = 1) +
  labs(title = 'Year: {closest_state}', subtitle = "Blabla", caption = "bla")

# 核心修改：禁止循环+最后状态停留
animate(p, fps = 8, loop = FALSE, end_pause = 20)

关键调整说明 #

• loop = FALSE：这是控制循环的核心参数，设置为FALSE后动画只会播放一次，不会重复循环。
• end_pause = 20：让动画在最后一帧（2021年，所有柱子都显示的状态）停留20帧。按你设置的fps=8计算，就是停留2.5秒，方便你清晰查看最终的完整柱状图状态。如果希望停留更久，你可以增大这个数值；要是想永久停留直到手动关闭，设为end_pause = 1000这类大数值即可。
• shadow_mark()：这个函数会保留之前年份的柱子，确保动画播放到2021年时，所有年份的柱状图都能显示出来，刚好符合你要的最终状态。

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