将循环的结果合并到一个文件中

Question

我创建了一个这样的循环：

for (p in 1:nrow(outcomes)) {

    id <- apply(regulationtable, 1, function(i)
        sum(i[1:length(regulationtable)] != outcomes[p,])==0)

    idd <- as.matrix(id)
    test2 = subset(idd, idd[,1]==TRUE)

    result <- as.data.frame(rownames(test2))

    filename = paste("file", p, ".txt")

    write.table(result, filename)
}

每个循环的结果都将保存为一个文件。我想合并这些结果并创建一个包含所有结果的文件。

谁能帮我解决这个问题？

Answer 1

使用write.table 中的append 参数，您可以向现有文件添加行而不是覆盖它们：

if (p == 1) 
{
  write.table(result, "file.txt") 
} else
{ 
  write.table(result, "file.txt", append = TRUE, col.names = FALSE)
}

这是你的意思吗？

编辑：您可能希望第一次运行对其进行初始化而不是追加，然后彼此运行以不打印列名（我假设每个表的这些名称都是相同的）。