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

Question

I'm trying to loop over the participants in a data frame and then write a different column (text) to individual .txt files, so that I ultimately end up with one .txt file per participant containing all the text they produced (a participant can have several observations rows!)

Searching stackoverflow, this is what I have so far:

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")
}

It works insofar as the loop produces individual text files (.txt), but instead of the text, they contain the part_id.

Any help is welcome and much appreciated!

Answer 1

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