r - 将输出保存在不同的位置 R

Question

我正在遍历目录中的所有文件并创建一些报告和 jpeg 文件。我想保存这些报告和图片以及一个子文件夹。

如果没有 setwd() 在循环中来回来回，有没有更好的方法来做到这一点？

例如：

for (j in 1:length(list.files()))
{
 sp=read.csv(list.files()[j])
#do something
  setwd("H:\test\sub")
  jpeg(paste(list.files()[j],'.jpg',sep=""))
  hist(data)
  dev.off() 
  setwd("H:\test")
#do more 
}

谢谢

Answer 1

是的，只需设置您要保存的命运路径：

jpeg(your_path_here, ...)

像这样

files = list.files()

for(file in files){
  dir = paste("H:\\test\\sub\\", file, ".jpg", sep = "")
  jpeg(dir)
  hist(data)
  dev.off()
}