函数更改导入和目标文件。

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")
}