R语言中使用lapply与image_resize函数批量将图片调整至500500

假设我们需要调整的图片都存储在一个名为“images”的文件夹中。

首先，我们需要安装并加载“magick”包，该包提供了image_resize函数：

install.packages("magick")
library(magick)

接下来，我们使用lapply函数批量调整图片大小：

# 获取文件夹中所有图片的文件名
img_names <- list.files("images", pattern = ".jpg", full.names = TRUE)

# 使用lapply函数批量调整图片大小
resized_imgs <- lapply(img_names, function(img) {
  img_obj <- image_read(img)
  img_resized <- image_resize(img_obj, "500x500")
  return(img_resized)
})

最后，我们可以将调整后的图片保存到一个新的文件夹中：

# 创建一个名为“resized_images”的文件夹
dir.create("resized_images")

# 将调整后的图片保存到新的文件夹中
for (i in seq_along(resized_imgs)) {
  img_name <- paste0("resized_images/", basename(img_names[i]))
  image_write(resized_imgs[[i]], img_name)
}

这样，所有调整后的图片就保存在了“resized_images”文件夹中