如何在一个动画循环后停止 gganimate

Question

是否可以在动画循环结束后停止？

动画应该执行到去年 2021 年，然后停止显示所有条形！

以下是带有 的条形动画示例gganimate：

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)

Answer 1

您可以在 gifski 渲染器中设置此选项。

animate(p, fps=8, renderer = gifski_renderer(loop = FALSE))