R语言gganimate动态图

library(gapminder)
library(dplyr)
library(gganimate)
gapminder %>% 
  ggplot(aes(x = gdpPercap, y = lifeExp, size = pop, color = continent)) + 
  geom_point() + 
  scale_x_log10() + 
  transition_manual(frames = year) + 
  ggdark::dark_theme_bw() + #设置黑色主题
  labs(title = paste('Year:', '{current_frame}'))#设置标题跟随当前的年份变化，即current_frame。

gganimate的transition_*函数有很多个，就测试而言，transition_manual()的运行速度最快，transition_time（）的速度很慢，容易把电脑跑死。