在R中每個文件的單獨文件夾中寫入輸出

Question

我試圖讀取R中某個文件夾中的所有文件，並將所有文件的輸出寫入一個單獨的文件夾中（foldername = inputfilename）。 我認為現在定義tmp的方式不正確。

print("Starting the script...")
wd = "/home/something/data/"
setwd(wd)
file_list <- list.files()

for (file in file_list){

  tmp <- cbind(wd, "/../")
  sink(tmp, append=TRUE, split=FALSE)

  ccf(data$pred_z,data$hr_z)

}

其次，我還需要將ccf圖輸出另存為pdf或png。 我猜這不是情節，所以我不確定該怎么做。 非常感謝！

Answer 1

圖形的輸出可以通過以下方式保存在文件中：

 dev.copy(png,filename) dev.off() 

屏幕的輸出可以保存在這樣的文本文件中：

 wd = "/home/something/data/"
 tmp <- paste(wd, "../otherdir/file.txt", sep="")
 sink(tmp, append=TRUE, split=FALSE)

再次重定向到屏幕（您需要在將之前的接收器更改為另一個文件之前執行此操作，否則您的接收器堆棧將已滿）：

sink()