R语言批量调整图片大小至500x500：使用lapply和image_resize

假设我们需要调整的图片都存储在一个名为'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'文件夹中。