Фрейм данных: цикл по участникам/наблюдениям и запись столбца в текстовый файл

Я пытаюсь перебрать участников во фрейме данных, а затем записать другой столбец (текст) в отдельные файлы .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.

Любая помощь приветствуется и высоко ценится!