有没有办法在特定的帧/时间点暂停并在gganimate中显示过渡?

从OP:

知道他指的是什么“揭示时机”。

在Twitter上, Thomas Lin Pedersen was referring 如何 transition_reveal 直线驱动动画的帧。所以我们可以给它一个变量作为动画的“心跳”,而把原始变量留给情节。

reveal_time ,也就是心跳。我会在暂停点增加更多,这样动画会在这些数据点上花费更多的时间。在这里,我在暂停点加了10天,而在其他几天只加了1天。

library(dplyr)
airq_slowdown <- airq %>%
  group_by(Month) %>%
  mutate(show_time = case_when(Day %in% c(10,20,31) ~ 10,
                                     TRUE           ~ 1),
         reveal_time = cumsum(show_time)) %>%
  ungroup()

然后我将其输入到动画中,更改源数据帧和 过渡层 线路。

library(gganimate)
a <- ggplot(airq_slowdown, aes(Day, Temp, group = Month)) + 
  geom_line() + 
  geom_segment(aes(xend = 31, yend = Temp), linetype = 2, colour = 'grey') + 
  geom_point(size = 2) + 
  geom_text(aes(x = 31.1, label = Month), hjust = 0) + 
  transition_reveal(reveal_time) +  # Edit, previously had (Month, reveal_time)
  coord_cartesian(clip = 'off') + 
  labs(title = 'Temperature in New York', y = 'Temperature (°F)') + 
  theme_minimal() + 
  theme(plot.margin = margin(5.5, 40, 5.5, 5.5))    
animate(a, nframe = 50)

但当我这么做的时候,我意识到它并没有停顿——它只是在减缓吐温。有点“子弹时间”效应——很酷,但不是我想要的。

所以我的第二种方法是复制动画中暂停的线条。这样做,就不会有吐温,也会有真正的停顿:

airq_pause <- airq %>%
  mutate(show_time = case_when(Day %in% c(10,20,31) ~ 10,
                               TRUE           ~ 1)) %>%
  # uncount is a tidyr function which copies each line 'n' times
  uncount(show_time) %>%
  group_by(Month) %>%
  mutate(reveal_time = row_number()) %>%
  ungroup()

你可以用 end_pause 动画函数的参数:

library(gganimate)
library(animation)

animation <- barplot +  transition_reveal(anho)
#barplot built in ggplot2

animate(animation, end_pause = 10, width=1000, height=600,fps = 5)