将输出保存在其他位置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()
}