数据框：循环参与者/观察并将列写入文本文件

Question

我试图循环数据框中的参与者，然后将不同的列（文本）写入单个.txt文件，这样我最终会得到每个参与者的一个.txt文件，其中包含所有文本他们制作了（参与者可以有几个观察行！）

搜索stackoverflow，这是我到目前为止：

dataframe <- data.frame(part_id = rep(seq(1:3), 2), text = c("test1", 
"test2", "test3", "test4", "test5", "test6"))
dataframe <- dataframe %>% arrange(part_id)

for(i in dataframe$part_id) {
    subset[i] <- dataframe[dataframe$part_id == i,]$text
    write.table(i, paste(i, ".txt", sep=""), 
                col.names = FALSE, row.names = FALSE,  sep = "\t")
}

只要循环生成单个文本文件（.txt），它就可以工作，但它们不包含文本，而是包含part_id。

欢迎任何帮助，非常感谢！

Answer 1

因为在write.table(i, file_path)中您将i（part_id）写入文件，将其更改为write.table(subset[i], file_path)即可完成工作。