如何在R中写出具有不同文件名的多个文件

我有一个大文件（>10000 行数据），我想按 ID 写出一个单独的文件。我有 50 个唯一的 ID 名称，我想要为每个名称创建一个单独的文本文件。这是我到目前为止所得到的，但我不断收到错误。我的ID实际上是字符串，如果我能用该字符串命名每个文件，那就最好了。

for (i in 1:car$ID) {
    a <- data.frame(car[,i])
    carib <- car1[,(c("x","y","time","sd"))]
    myfile <- gsub("( )", "", paste("C:/bridge", carib, "_", i, ".txt"))
    write.table(a, file=myfile,
                sep="", row.names=F, col.names=T quote=FALSE, append=FALSE) 
}

一种方法是使用 plyr 包和d_ply()功能。d_ply()需要一个 data.frame 作为输入。您还提供一列，您希望通过该列对 data.frame 进行切片和切块，以便彼此独立地进行操作。在本例中，您拥有列 ID。这个特定的函数不返回对象，因此对于绘图或迭代制定章程等很有用。这是一个小工作示例：

library(plyr)

dat <- data.frame(ID = rep(letters[1:3],2) , x = rnorm(6), y = rnorm(6))

d_ply(dat, "ID", function(x)
     write.table(x, file = paste(x$ID[1], "txt", sep = "."), sep = "\t", row.names = FALSE))

将生成三个制表符分隔的文件，以 ID 列作为文件名（a.txt、b.txt、c.txt）。

编辑-解决后续问题

在将其传递到之前，您始终可以对所需的列进行子集化d_ply()。或者，您可以使用/滥用[运算符并在调用本身中选择所需的列：

dat <- data.frame(ID = rep(letters[1:3],2) , x = rnorm(6), y = rnorm(6)
  , foo = rnorm(6))

d_ply(dat, "ID", function(x)
     write.table(x[, c("x", "foo")], file = paste(x$ID[1], "txt", sep = ".")
     , sep = "\t", row.names = FALSE))