如何让write.table将列表中每个元素保存为单独一行？

嘿，我来帮你搞定这个问题！你遇到的情况大概率是因为trlist的结构不是write.table期望的格式——比如它可能是一个嵌套列表，或者你不小心把所有元素打包成了单个列表项，导致write.table把整个内容当成一行输出。

先运行这行代码，看看你的trlist到底是什么类型：

str(trlist)

如果输出显示是List of 1，后面跟着一堆元素，那就是问题根源——你把所有内容塞进了一个列表元素里，write.table会把这个单个列表元素当成一行来写。

根据你的情况，有两种简单的解决方式：

方式一：用unlist()转成向量后写入 #

先把列表展开成一维向量，再用更省心的writeLines直接写入（专门处理每行一个元素的场景）：

# 把嵌套列表展开成一维向量
tr_vec <- unlist(trlist)
# 直接写入文件，每个元素自动占一行
writeLines(tr_vec, file = "test.txt")

如果你还是想用write.table，也可以这么写：

write.table(tr_vec, file = "test.txt", row.names = FALSE, col.names = FALSE, quote = FALSE)

方式二：转成单列数据框 #

如果你习惯用write.table的工作流，也可以把向量转成单列数据框，确保write.table按行输出每个元素：

# 转成单列数据框
tr_df <- data.frame(content = unlist(trlist))
# 写入文件，注意sep参数要写对（制表符是"\t"不是"/t"）
write.table(tr_df, file = "test.txt", sep = "\t", row.names = FALSE, col.names = FALSE, quote = FALSE)

你原来代码里的sep="/t"是错误的哦，制表符的正确写法是"\t"（反斜杠+t），不过如果只是要每个元素单独一行，其实这个参数在这里不会影响结果~

内容的提问来源于stack exchange，提问作者Antsushi