使用fread导入多个txt文件时添加文件名作为ID列

正确代码实现 #

library(data.table)
library(purrr)

# 获取所有TXT文件的完整路径（避免工作目录不匹配导致的文件找不到问题）
files <- list.files(pattern = "*.txt", full.names = TRUE)

# 批量读取文件并添加ID列
combined_data <- map_df(files, function(file_path) {
  # 提取纯文件名（若需去掉.txt后缀，可改用 tools::file_path_sans_ext(basename(file_path))）
  file_name <- basename(file_path)
  # 读取文件（fread自动识别分隔符，适配绝大多数TXT格式）
  data <- fread(file_path)
  # 为当前文件的所有行添加ID列，值为文件名
  data$ID <- file_name
  # 返回处理后的单文件数据
  data
})

关键说明 #

1. 路径处理：full.names = TRUE会返回文件的完整路径，新手务必加上，避免因工作目录和文件存放目录不一致导致的报错。
2. 文件名提取：basename()用来剥离路径，只保留纯文件名；如果不需要.txt后缀，用tools::file_path_sans_ext(basename(file_path))即可去除。
3. fread的优势：相比read.csv或read.table，fread能自动识别TXT文件的分隔符（空格、制表符、逗号等），减少格式适配的报错概率。

常见报错排查 #

如果仍出现报错，按以下步骤排查：

• 先单独读取一个文件测试：fread("你的文件名.txt")，确认单个文件无格式问题（比如乱码、列数异常）。
• 用getwd()查看当前工作目录，确认文件确实在该目录下，或用setwd("文件所在文件夹路径")切换目录。
• 检查所有TXT文件的列数、列名是否一致，格式不一致会导致合并失败。

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