R语言-视觉化-GIF图 (GIF in r.studio)

废话不多说，直接附上code
影片含有程序码详细解说，若有误再烦请告知，谢谢

library(gapminder)
library(gganimate)
library(gifski)
library(dplyr)

data(gapminder)
gif <- gapminder %>%  
  ggplot(aes(gdpPercap, lifeExp, size = pop, colour = country)) +
  geom_point(alpha = 0.7,show.legend = FALSE) + #透明度
  scale_colour_manual(values = country_colors) +
  scale_size(range = c(2, 12)) +
  scale_x_log10() +
  # new
  labs(title = 'Year: {frame_time}', x = 'GDP per capita', y = 'life expectancy') +
  transition_time(year) + #时间间隔，range = c(10L, 20L)
  ease_aes('linear') #呈现效果

animate(gif, duration = 5, fps = 20, 
        width = 500, height = 300)
#duration 动画持续时间 fps每秒跳几张
anim_save("D:\\output.gif")