将输出保存在不同的位置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()
}