从 R 中保存的绘图创建视频

Question

我使用循环生成了一系列绘图并将它们保存为文件夹中的 .png 文件。如何编写代码来循环遍历这些图（.png 格式）以创建视频。

我以前用过av_capture_graphics（包av），可以用它来生成视频。但是重新运行代码以进行所有分析以重新生成所有图将需要很多时间。

谢谢

Answer 1

这是使用magick 包的示例

library(tidyverse)
library(magick)

### list all png files
png_files <- list.files(".",
                        pattern = "\\.png$",
                        recursive = FALSE,
                        all.files = FALSE,
                        full.names = TRUE)

### create a GIF file from all the plots
png_files %>%
  map(image_read) %>% # reads each path file
  image_join() %>% # joins image
  image_animate(fps = 1) %>% # animates
  image_write("All_plots.gif")

查看其他功能：image_write_video() 和 image_write_gif()