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()的速度很慢,容易把电脑跑死。