如何使用purr::map基于列表批量重命名R中多文件的第二列？

原代码的核心问题有两个：一是没将文件列表和样本名向量做对应关联，二是动态列名的重命名方式错误。以下是修正后的实现：

关键修正点 #

• 使用map2替代map，同时遍历文件路径和对应的样本名，确保每个文件匹配唯一的目标列名
• 用!!操作符实现动态列名注入，让dplyr将变量中的字符串作为列名，而非变量名本身

完整代码 #

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

# 定义文件列表和对应样本名（注意样本名数量要和文件数一致）
files <- paste0("file", 1:3, ".txt") 
samples <- c("sample1", "sample2", "sample3")

# 创建临时示例文件
temp <- tempdir()
walk(files, ~ write.csv(iris[1:2], file.path(temp, .x), row.names = FALSE))

# 读取文件并批量重命名第二列
renamed_dfs <- files |>
  map2(samples, ~ fread(file.path(temp, .x)) %>%
         rename(test = 1, !! .y := 2))

# 如果需要将修改后的内容写回原文件，可使用以下代码
map2(files, samples, ~ {
  modified_df <- fread(file.path(temp, .x)) %>%
    rename(test = 1, !! .y := 2)
  fwrite(modified_df, file.path(temp, .x))
})

代码说明 #

1. map2(files, samples, ...)：同时迭代两个并行向量，.x代表当前文件路径，.y代表对应的样本名
2. !! .y := 2：通过准引用将样本名变量的值作为新列名，重命名第二列
3. 若仅需读取修改后的数据框，用第一个map2即可；若要覆盖原文件，用第二个包含fwrite的版本

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