如何将 .csv 文件中列出的图像名称的 .png 图像加载到 R

Question

我正在使用下面的简单代码将多个图像与 R magick 包一起附加。它运行良好，但是，有许多图像需要处理，并且它们的名称存储在 .csv 文件中。谁能建议如何从 .csv 文件中的特定单元格将图像名称加载到 image_read 函数（参见代码下方的示例）？到目前为止，我找不到任何合适的方法来解决这个问题。

library (magick)

pic_A <- image_read('A.png')
pic_B <- image_read('B.png')
pic_C <- image_read('C.png')

combined <- c(pic_A, pic_B, pic_C)
combined <- image_scale(combined, "300x300")
image_info(combined)
final <- image_append(image_scale(combined, "x120"))
print(final)
image_write(final, "final.png") #to save

Answer 1

像这样的东西应该有用。如果您将 csv 加载到数据框中，则可以直接将 image_read 指向适当的元素。

并且索引（行号）包含在输出文件名中，因此每次迭代都不会覆盖内容。

library (magick)

file_list <- read.csv("your.csv",header = F)
names(file_list) <- c("A","B","C")

for (i in 1:nrow(file_list)){
pic_A <- image_read(file_list$A[i])
pic_B <- image_read(file_list$B[i])
pic_C <- image_read(file_list$C[i])

combined <- c(pic_A, pic_B, pic_C)
combined <- image_scale(combined, "300x300")
image_info(combined)
final <- image_append(image_scale(combined, "x120"))
print(final)
image_write(final, paste0("final_",i,".png")) #to save
}