用于更改导入和目标文件的功能

Question

我需要在5个数据集上运行相同的代码，这些数据集太大而无法绑定在一起。代码将表导出到目标文件，该目标文件也需要根据导入的文件进行更改。

想象一下，我有以下代码：

load("file 1", .GlobalEnv)
tab<-table(df$A, df$B)
write.table(tab, "output 1.txt", sep="\t")

所以我想要一个导入文件1到5并将它们分别导出到输出1到5的函数。

提前致谢

Answer 1

只需使用循环。例如，如果您将文件放在名为files

的数组中

for (i in 1:length(files)) {
  input.filename <- files[i]
  load(input.filename, .GlobalEnv)
  tab<-table(df$A, df$B)

  output.filename <- paste("output ", i, ".txt", sep="")
  write.table(tab, output.filename, sep="\t")
}