从for循环保存图像

Question

我对R很陌生，并且尝试使用下面的代码在R循环中剪切和保存多个文件。它工作得很好，但唯一的问题是，当它保存输出图像时，相同的输出文件会被覆盖，从而只保存最后一个映像。我希望将裁剪后的图像保存为‘试用_1.png’、‘试用_2.png’等单独的文件。我不知道如何解决这个问题代码主要使用magick包函数。提前谢谢。

代码：

library(pdftools)
library(magick)
library(png)
library(raster)

path = "~/Desktop/RME_task"
file.names<-dir(path, pattern = ".png") 
for(i in 1:length(file.names)){

rme_stimuli_set1_1<-image_read(file.names[i])
rme_stimuli_set1_1_scaled<-image_scale(rme_stimuli_set1_1, "700x700")
rme_stimuli_set1_1_cropped<-image_crop(rme_stimuli_set1_1_scaled, "305x120+118+322")
image_write(rme_stimuli_set1_1_cropped, "CROPPED/trial_.png")

} 

Answer 1

只需在每次交互中更改文件名即可。

library(pdftools)
library(magick)
library(png)
library(raster)

path = "~/Desktop/RME_task"
file.names<-dir(path, pattern = ".png") 
for(i in 1:length(file.names)){

rme_stimuli_set1_1<-image_read(file.names[i])
rme_stimuli_set1_1_scaled<-image_scale(rme_stimuli_set1_1, "700x700")
rme_stimuli_set1_1_cropped<-image_crop(rme_stimuli_set1_1_scaled, "305x120+118+322")
image_write(rme_stimuli_set1_1_cropped, paste0("CROPPED/trial_",i,".png"))

} 

这样，循环的每个交互都将创建trial_1.png、trial_2.png等。