从for循环保存图像

我是R新手，尝试使用下面的代码在R循环中裁剪和保存多个文件。它工作正常，但唯一的问题是，当它保存输出图像时，相同的输出文件会被覆盖，从而只保存最后一个图像。我想有被裁剪的图像保存为单独的文件，如'trial_1.png'，'trial_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")

} 

图书馆（pdftools）
图书馆（magick）
图书馆（png）
图书馆（光栅）
path=“~/Desktop/RME\u任务”
file.names只需在每次交互中更改文件名

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"))

} 

库（pdftools）
图书馆（magick）
图书馆（png）
图书馆（光栅）
path=“~/Desktop/RME\u任务”
file.names只需在每次交互中更改文件名

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"))

} 

库（pdftools）
图书馆（magick）
图书馆（png）
图书馆（光栅）
path=“~/Desktop/RME\u任务”
文件名