如何在R中将200x200的PNG图像缩至60x60并正确保存？

我来帮你搞定这个问题！你之前的代码里混用了base R的绘图设备（png()/dev.off()）和magick包的图片处理函数，这就是导致背景被错误缩放的根源——png()是用来保存你在R里绘制的图表的，而不是直接修改图片文件本身的像素尺寸。咱们直接用magick包就能完美完成你的需求，不需要碰绘图设备那一套。

具体解决方案步骤： #

首先确保你已经安装并加载了magick包（如果还没装的话）：

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

1. 单张图片处理示例

先测试单张图片的调整和保存，确认效果：

# 读取目标图片
img <- image_read(filePaths[1])
# 强制调整为60x60尺寸（!表示忽略原比例，严格拉伸到指定大小）
resized_img <- image_resize(img, "60x60!")
# 保存修改后的图片
image_write(resized_img, path = "my_resized_image.png", format = "png")

2. 批量处理所有200x200图片

如果你要批量处理filePaths里的所有图片，直接用循环或者lapply就行：

# 先创建一个存放修改后图片的文件夹（避免文件混乱）
dir.create("resized_images", showWarnings = FALSE)

# 遍历所有文件路径
for (file_path in filePaths) {
  # 获取原文件名，方便保存时保留原名
  original_name <- basename(file_path)
  # 读取图片→调整尺寸→保存
  image_read(file_path) %>%
    image_resize("60x60!") %>%
    image_write(path = file.path("resized_images", original_name), format = "png")
}

为什么之前的方法不行？ #

你之前用png()打开绘图设备，再用plot()或者image()展示图片，最后dev.off()保存，本质是把R绘图窗口里的内容导出成图片——这时候R会自动添加空白背景，并且按照绘图窗口的尺寸缩放内容，自然会出现背景被缩放的问题。而magick包的函数是直接操作图片文件的像素数据，调整的是图片本身的尺寸，保存的也是纯图片内容，完全不会有多余背景的问题。

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