R语言中使用已预先生成的绘图对象制作GIF动画的方法咨询

现有代码问题说明 #

你当前的写法无法实现需求，核心原因有两个：

• base R 中hist()函数返回的是包含直方图分箱、频数、密度等统计数据的列表对象，不是渲染完成的绘图缓存对象，仅存储了绘图用到的计算结果，没有存储图形状态
• gifski::save_gif()的第一个入参要求传入可执行的绘图表达式，不支持直接传入对象列表，你当前的传参方式语法和逻辑都不成立

已预生成p1/p2/p3场景的解决方案 #

你不需要重新运行直方图的随机数生成和计算逻辑，直接调用plot()方法绘制已有的hist对象即可，符合你复用预生成对象的要求，正确代码如下：

library(gifski)
# 输出路径自行调整
gif_file <- "C:/Users/OneDrive/Documents/ref.gif"

save_gif(
  expr = {
    # 依次重绘三个已预生成的直方图对象
    plot(p1, main = "直方图1")
    plot(p2, main = "直方图2")
    plot(p3, main = "直方图3")
  },
  gif_file = gif_file,
  width = 1280,
  height = 720,
  res = 144,
  delay = 1 # 单位为秒，控制每帧停留时长，可自行调整
)

补充：预存渲染后绘图的方案 #

如果后续你需要直接复用已经渲染完成的绘图（不需要再调用plot方法），可以在生成绘图时用recordPlot()录制绘图设备的内容，后续直接重放即可，示例逻辑如下：

# 预生成绘图时录制
hist(rnorm(1000,1,1), 10000)
p1_plot <- recordPlot()
hist(rnorm(1000,1,1), 10000)
p2_plot <- recordPlot()
hist(rnorm(1000,1,1), 10000)
p3_plot <- recordPlot()

# 生成GIF时直接重放
save_gif(
  {
    replayPlot(p1_plot)
    replayPlot(p2_plot)
    replayPlot(p3_plot)
  },
  gif_file,
  1280, 720, res = 144
)

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