如何将数据框各行按指定文件名写入文件？R语言问题排查

原因分析 #

你得到空列表的核心原因是：write.table函数本身的返回值是NULL。lapply的作用是收集每次迭代中函数的返回值，所以当它遍历执行write.table时，会把每次得到的NULL汇总成一个列表——这个列表看起来是空的，但实际上每个元素都是NULL，这是write.table的正常设计（它的职责是写入文件，而非返回数据）。

解决方案 #

1. 仅完成文件写入（无需保存返回值）

如果你的目标只是把每行数据写入对应文件，直接运行lapply即可，不需要将结果赋值给变量：

lapply(1:nrow(data1_sim), 
       function(i) write.table(data1_sim[i,],
                               file = file_names[i],
                               row.names = FALSE, col.names = FALSE,
                               sep = "\t"))

执行后文件会正常生成，不用在意控制台输出的NULL列表。

2. 记录已写入的文件名（可选）

如果需要验证哪些文件成功写入，可以修改匿名函数，让它在完成写入后返回文件名：

list_files1 <- lapply(1:nrow(data1_sim), 
                      function(i) {
                        write.table(data1_sim[i,],
                                    file = file_names[i],
                                    row.names = FALSE, col.names = FALSE,
                                    sep = "\t")
                        # 返回当前文件名作为执行标记
                        file_names[i]
                      })

此时list_files1会是一个包含所有已写入文件名的列表，方便你确认执行结果。

3. 使用更适合无返回值操作的函数（tidyverse风格）

如果你使用tidyverse工具，可以用purrr::walk，它专门用于执行无需返回值的操作，不会生成多余的NULL列表：

library(purrr)
walk(1:nrow(data1_sim), 
     ~ write.table(data1_sim[.x,],
                   file = file_names[.x],
                   row.names = FALSE, col.names = FALSE,
                   sep = "\t"))

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