Как сделать так, чтобы анимированный сюжет прекращал откат при достижении последнего шага анимации?

#r #ggplot2 #graph-visualization #gganimate

#r #ggplot2 #график-визуализация #gganimate

Вопрос:

Это воспроизводимый пример анимированного сюжета, который я сделал:

 library(tidyverse)
library(gganimate)

data.1 <-read.csv(text = "
Year, value
1970,0
1980,1500
1990,2300
2000,4000
2010,4200
2020,6000
")
  
ggplot(data = data.1 %>% mutate(Year=as.numeric(Year),
                                  value=as.numeric(value)), 
       mapping = aes(x = Year, 
                     y = value))  
    geom_line()  
    transition_reveal(Year) 

 

Анимация в порядке, но я хотел бы остановить ее и не выполнять откат, когда она достигнет последнего года визуализации.
Возможно ли это сделать с transition_reveal помощью?

Ответ №1:

При рендеринге gif-файла вы можете настроить loop = FALSE следующим образом:

 animate(myplot, renderer = gifski_renderer(loop = FALSE))