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

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) 即可。