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

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

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

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

这是你的意思吗？

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