从R中的列表导出单独的文本文件

我有一个4951个命名元素的大列表。这些元素基本上都是字母（也就是说，它们是字符串）。我想做的是将列表中的每个元素导出为一个单独的文本文件，文件名与列表中的名称对应

我所拥有的一个简单版本是：

 letter1 <- c("here is some text")
 letter2 <- c("and here is some more text")
 letter3 <- c("and this is the final one")

 list <- list(letter1 = letter1, letter2 = letter2, letter3 = letter3)

for（1中的i：长度（列表））{
write.csv（列表[i]，文件=paste0（名称（列表）[i]，“.txt”））
}

编辑 如果您需要函数中的输出目录：

 write.csv(list[i], file=paste0("output/", names(list)[i], ".txt"))

for（1中的i：长度（列表））{
write.csv（列表[i]，文件=paste0（名称（列表）[i]，“.txt”））
}

编辑 如果您需要函数中的输出目录：

 write.csv(list[i], file=paste0("output/", names(list)[i], ".txt"))

试试这个：

filenames <- names(list)
for (i in 1:length(list)){
  outname <- paste("c:/testFolder/", filenames[i], ".txt", sep= "")
  write.table(list[[i]], outname, col.names= F, row.names= F, quote= F)
}

文件名尝试以下操作：

filenames <- names(list)
for (i in 1:length(list)){
  outname <- paste("c:/testFolder/", filenames[i], ".txt", sep= "")
  write.table(list[[i]], outname, col.names= F, row.names= F, quote= F)
}

文件名很棒。很抱歉，我忘了在
output/
子目录中添加一个需要它的文件。只需将输出/目录粘贴到输出文件名的开头，或者在所有文件名之前粘贴
setwd（）
。谢谢。我想这就是我必须要做的，但是我把语法搞错了。我还将粘贴函数编辑为
paste0
。把它们放在一起，没有空格。太好了。很抱歉，我忘了在
output/
子目录中添加一个需要它的文件。只需将输出/目录粘贴到输出文件名的开头，或者在所有文件名之前粘贴
setwd（）
。谢谢。我想这就是我必须要做的，但是我把语法搞错了。我还将粘贴函数编辑为
paste0
。把它们放在一起，没有空格。