如何遍历R中文件夹中的一系列顺序文件

Posted 2023-03-25

【中文标题】如何遍历R中文件夹中的一系列顺序文件

【英文标题】：How to loop through a sequential series of files in a folder in R

【发布时间】：2021-11-19 14:11:44

【问题描述】：

我在几个文件夹中保存了大约 24,000 张照片 (JPG)。我想做的是开发一个 R 脚本，它遍历文件夹的所有图像，并为每个连续的 8 张照片组创建一个 GIF 动画。我已经使用 magick 库找到了 GIF 动画代码，所以我不需要帮助。我需要帮助的是如何开发代码，逐步遍历文件夹中的图像并将它们分组为 8 倍。例如，如果我有一个包含 24 个图像的文件夹，我需要一些可以遍历文件夹创建的东西基于三组8张图片的3个GIF文件如下： GIF 1：文件夹中的图像 1-8 GIF 2：文件夹中的图像 9-16 GIF 3：文件夹中的图像 17-24

这是我目前拥有的代码，它将文件夹中的所有图像组合成一个 GIF。我希望可以添加几行简单的代码，这些代码将逐步遍历文件夹中的每组 8 个图像以生成 GIF 动画。我还想将输出 GIF 文件命名为与序列中的第一个图像相同的文件名。

library (magick)
library(purrr)
library(gifski)
Folder <- "C:/Path/To/Folder/Containing/JPG/Images"

setwd(Folder)
file.jpg <- list.files(Folder, pattern ="*.jpg", ignore.case = TRUE, full.names = TRUE)
list(file.jpg)

m <- image_read(file.jpg)%>%
  image_scale('x500')%>%
  image_join()

image_write_gif(m, "MyGIF.gif", delay=1/4)

【参考方案1】：

这应该可行：

library (magick)
library(purrr)
library(gifski)
Folder <- "C:/Path/To/Folder/Containing/JPG/Images"
setwd(Folder)
file.jpg <-
  list.files(
    Folder,
    pattern = "*.png",
    ignore.case = TRUE,
    full.names = TRUE

#here you have to care that the total number of images is a multiple of 8
l <- split(1:length(file.jpg),rep(1:round(length(file.jpg)/8),each=8))

for (i in l) 
  new.file.jpg <- file.jpg[i]
  new.file.jpg <- new.file.jpg[complete.cases(new.file.jpg)]
  m <- image_read(new.file.jpg)%>%
    image_scale('x500')%>%
    image_join()
  image_write_gif(m, paste0(tools::file_path_sans_ext(basename(new.file.jpg[1])),".gif"), delay=1/4)

您也可以通过将生成 gif 的代码包装到函数中来使用 lapply，但在这种情况下，我认为 for 循环更清晰