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()

在R的每个文件的单独文件夹中写入输出

1 个答案: