【R语言】动画图：散点图

绘制成如下的散点图：

如果数据量大，有多个年份，就会生成多张图，例如：

具体代码如下：

R 复制代码

library(gapminder)#加载 gapminder 包，其中包含了从 1952 年至 2007 年各个国家的 GDP、预期寿命和人口数据
library(gganimate)#加载 gganimate 包，它提供了创建动画的功能
library(ggplot2)

#使用 ggplot() 函数创建了一个基础图形，设置 x 轴为 GDP 每人，y 轴为预期寿命，点的大小（size）和颜色（colour）根据国家来区分
ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, colour = country)) +
  geom_point(alpha = 0.7, show.legend = FALSE) + #添加了散点图层，设置点的透明度为 0.7，且不显示图例
  scale_colour_manual(values = country_colors) + #设置颜色映射为手动指定的颜色，country_colors 是一个预先定义的颜色向量
  scale_size(range = c(2, 12)) + #设置点的大小范围为 2 到 12
  scale_x_log10() + #将 x 轴的刻度设置为对数尺度
  facet_wrap(~continent) + #根据大洲进行面板分割
  labs(title = 'Year: {frame_time}', x = 'GDP per capita', y = 'life expectancy') + #设置图形的标题、x 轴标签和 y 轴标签，其中 {frame_time} 会被动画帧的时间替换
  transition_time(year) + #指定以年份（year）为时间变量进行过渡，使得动画按照时间的变化进行播放
  ease_aes('linear') -> anim #设置动画的渐变效果为线性,将动画保存到名为 anim 的对象中

为了生成动画的形式，还需执行以下代码：

R 复制代码

#生成并显示动画，使用 gifski_renderer() 渲染器，并设置帧率为 10
animate(anim, renderer = gifski_renderer(), fps = 10)

实现效果，如下：

gapminder 是一个在 R 中广泛使用的数据集，记录了从 1952 年到 2007 年间不同国家的 GDP、预期寿命和人口数据。这个数据集最初由 Hans Rosling 等人在 Gapminder Foundation 的工作中收集和整理，旨在帮助人们更好地理解全球发展趋势。

数据集中包含了以下变量：

country: 国家名称。

year: 年份，范围从 1952 到 2007 年。

pop: 人口数量，以百万为单位。

continent: 大洲名称，包括非洲、亚洲、欧洲、美洲和大洋洲。

lifeExp: 预期寿命，以年为单位。

gdpPercap: GDP 每人，即每个人的国内生产总值，通常以美元为单位。
如下图所示：