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。
动态图.gif
gganimate的transition_*函数有很多个，就测试而言，transition_manual()的运行速度最快，transition_time（）的速度很慢，容易把电脑跑死。
image.png
