在R中的目录中创建文件夹，并用文件名的名称将结果保存在那里以保存绘图

Question

我有150名经理的数据。我为每位经理创建了六张图表。我需要为每个管理器创建一个文件夹，其中包含所有这些图(因此总共有150个文件夹，里面有六个图(。有没有一个通用的循环可以用来做这件事？

到目前为止，我所做的就是：

setwd("C:/Users/zeina/Desktop/Gunter")
subfolder_names <- c(1:150) 
for (i in 1:length(subfolder_names)){
folder<-dir.create(paste0("Manager - ", subfolder_names[i]))
}

这为我生成了文件夹(例如经理-1，经理-2等(。但我不知道如何让R为我保存每个经理的每个文件夹中的图形

Answer 1

您需要在循环中添加额外的语句。对于每个循环，您需要将wd设置为刚刚创建的文件夹，然后将绘图保存在那里。您可能还需要为打印文件添加额外的循环。

setwd("C:/Users/zeina/Desktop/Gunter")
subfolder_names <- c(1:150) 
for (i in 1:length(subfolder_names)){
setwd("C:/Users/zeina/Desktop/Gunter")
folder<-dir.create(paste0("Manager - ", subfolder_names[i]))
setwd(paste0("C:/Users/zeina/Desktop/Gunter/", "Manager - ", subfolder_names[i]))
for (i in 1:length(subfolder_names)){
jpeg(file=paste0("plot", i, ".jpeg")
# Here you need to type the code for plot #
dev.off()
}
}

如果要使用jpeg以外的扩展名保存绘图，只需将jpeg()更改为该扩展名，即png()。