R语言如何将base R生成的三张图表制作成顺序播放动画

方法1：导出为GIF动画（推荐） #

使用animation包可以直接捕获base R绘制的图像，完全保留原生配色，按顺序导出为可分享的GIF文件：

# 首次使用先安装包
install.packages("animation")
library(animation)

# 生成动画
saveGIF({
  # 按要求顺序绘制3张base图
  plot(c$a, type = "h", col = c$col, main = "plot_1, i = 1")
  plot(d$a, type = "h", col = d$col, main = "plot_2, i = 2")
  plot(e$a, type = "h", col = e$col, main = "plot_3, i = 3")
}, 
interval = 0.4, # 每张图的停留时长，单位为秒，数值越小切换越快
movie.name = "base_plot_animate.gif", # 导出的GIF文件名
ani.width = 700, ani.height = 400 # 动画画布尺寸
)

如果运行时报缺少图像转换工具的错误，只需先在本地安装ImageMagick工具，重启R后即可正常运行。

方法2：R环境内直接循环预览 #

不需要导出文件时，可直接在R/ RStudio的Plots面板查看连续切换效果：

# 封装绘图参数
plot_params <- list(
  list(data = c, title = "plot_1, i = 1"),
  list(data = d, title = "plot_2, i = 2"),
  list(data = e, title = "plot_3, i = 3")
)

# 循环播放，按ESC即可停止播放
while(TRUE) {
  for (item in plot_params) {
    plot(item$data$a, type = "h", col = item$data$col, main = item$title)
    Sys.sleep(0.4) # 控制每张图停留时长
  }
}

方法3：静态拼接为单张图 #

不需要动态效果时，可将3张图排列在同一个画布上展示：

# 设置画布为1行3列的布局，调整边距避免遮挡
par(mfrow = c(1, 3), mar = c(4, 4, 2, 1))
# 依次绘制3张图
plot(c$a, type = "h", col = c$col, main = "plot_1, i = 1")
plot(d$a, type = "h", col = d$col, main = "plot_2, i = 2")
plot(e$a, type = "h", col = e$col, main = "plot_3, i = 3")
# 恢复默认画布参数
par(mfrow = c(1, 1))

内容的提问来源于stack exchange，提问作者stats_noob