如何用R语言purrr包批量读取文件并重命名列？

代码问题分析 #

你原代码有两个核心错误：

1. 文件路径未加引号：c(file1.txt,file2.txt,file3.txt)会被R识别为对象名而非文件路径字符串，必须改为带引号的形式c("file1.txt", "file2.txt", "file3.txt")。
2. map的参数逻辑错误：fread没有rename这个参数，不能直接把重命名操作作为fread的参数传递，必须先读取文件，再对读取后的数据集执行重命名。

正确代码示例 #

library(data.table)
library(purrr)
library(dplyr)

# 1. 定义文件路径向量（必须是字符串）
files <- c("file1.txt", "file2.txt", "file3.txt")

# 2. 批量读取+重命名
data_list <- files |> 
  map(~ fread(.x) |> rename(test = 1, check = 2))

# 可选：如果需要将所有数据集合并为一个数据框
combined_data <- data_list |> bind_rows()

逻辑说明 #

purrr::map的核心是遍历向量中的每个元素，执行指定函数：

• 这里的向量是files里的每个文件路径，用.x指代当前遍历到的路径。
• 对每个路径，先调用fread(.x)读取文件得到数据框，再通过管道|>传递给dplyr::rename，按列的位置（1代表第一列，2代表第二列）将列名改为test和check。
• 最终map返回的是一个列表，每个元素是对应文件读取并重命名后的数据集。

额外提示 #

• 如果需要替换所有列名，而非只修改部分，可以用dplyr::set_names替代rename，比如set_names(c("test", "check", "col3"))。
• 确保所有目标文件的列结构完全一致，否则按位置重命名可能会导致列名对应错误。

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