如何将数据框名称设为导出文本文件的首行？

问题背景 #

我有一个包含31个dataframe的列表dataList，每个dataframe命名为file1980到file2010，是通过以下代码把11315行的MainData拆分成31个365行的子数据集得到的：

n <- 31   
dataList <- split(MainData, factor(sort(rank(row.names(MainData))%%n)))
names(dataList) <- paste0("file",1980:2010)

单个dataframe的格式如下：

jDate   V1     V2     V3   V4     V5          V6      V7
1   001  -6.83  -5.83  -7.83 0.05 0.8217593   8.101852 100.0
2   002  -6.33  -4.83  -7.83 0.10 2.2453704   9.259259 100.0
3   003  -5.83  -4.83  -6.83 0.30 1.9444444   8.101852  94.7
4   004  -5.83  -4.83  -6.83 0.10 1.0416667   8.101852  97.5
5   005  -6.33  -4.83  -7.83 0.00 1.1226852   9.259259  98.5
6   006  -7.83  -5.83  -9.83 0.03 2.0949074  10.416667 100.0

需求 #

要把每个dataframe导出为*.txt文件，要求：

• 移除列名，不显示原dataframe的列标题
• 每个文件首行是对应的文件名（比如file1980）
• 导出到指定路径
• 保留行号（如示例中的1、2、3...）

期望的导出文件格式：

file1980
1   001  -6.83  -5.83  -7.83 0.05 0.8217593   8.101852 100.0
2   002  -6.33  -4.83  -7.83 0.10 2.2453704   9.259259 100.0
3   003  -5.83  -4.83  -6.83 0.30 1.9444444   8.101852  94.7
4   004  -5.83  -4.83  -6.83 0.10 1.0416667   8.101852  97.5
5   005  -6.33  -4.83  -7.83 0.00 1.1226852   9.259259  98.5
6   006  -7.83  -5.83  -9.83 0.03 2.0949074  10.416667 100.0
7   007  -5.33  -4.83  -5.83 0.00 1.4930556   8.101852  97.6
8   008  -7.33  -5.83  -8.83 0.00 0.9027778   9.259259 100.0
9   009  -7.33  -6.83  -7.83 0.03 0.8217593   8.101852  90.2

之前的尝试 #

试过两种方法添加首行文件名，但要么没成功移除列名，要么导致列名变成NA；单独给某个dataframe设置names(df) <- NULL只能解决单个文件的问题，没法批量处理。

解决方案 #

方法1：使用purrr包批量处理 #

可以用purrr包的iwalk函数同时遍历列表元素和名称，高效完成批量导出：

# 先安装purrr包（首次使用时运行）
# install.packages("purrr")
library(purrr)

# 指定导出路径，不存在则自动创建
output_path <- "./output"
if (!dir.exists(output_path)) dir.create(output_path)

# 批量处理每个dataframe
iwalk(dataList, function(df, filename) {
  # 构建完整文件路径
  file_full_path <- file.path(output_path, paste0(filename, ".txt"))
  # 写入首行文件名
  writeLines(filename, con = file_full_path)
  # 追加写入数据，不包含列名，保留行号
  write.table(df, 
              file = file_full_path, 
              append = TRUE,
              col.names = FALSE,
              row.names = TRUE,
              sep = "\t",  # 可根据目标软件需求换成空格" "
              quote = FALSE)
})

方法2：基础R实现 #

如果不想额外安装包，用基础R的lapply也能实现：

# 指定导出路径
output_path <- "./output"
if (!dir.exists(output_path)) dir.create(output_path)

# 遍历列表名称批量处理
lapply(names(dataList), function(filename) {
  df <- dataList[[filename]]
  file_full_path <- file.path(output_path, paste0(filename, ".txt"))
  writeLines(filename, con = file_full_path)
  write.table(df, 
              file = file_full_path, 
              append = TRUE,
              col.names = FALSE,
              row.names = TRUE,
              sep = "\t",
              quote = FALSE)
})

代码说明 #

• writeLines负责写入文件首行的文件名，确保符合目标软件格式要求
• write.table的append=TRUE参数让数据追加到首行之后，col.names=FALSE移除列名，row.names=TRUE保留行号
• sep参数可根据目标软件的分隔要求调整为制表符或空格
• 提前创建导出路径，避免因路径不存在导致写入失败

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