如何重命名data.table列表中的重复列名？

核心解决方案：在purrr::map中直接完成列名生成与修改 #

你遇到的map2报错，是因为无法在全局赋值中正确引用迭代的临时对象.x，而且完全没必要分开生成列名再赋值——直接在单个map操作里就能完成重复列名的去重处理。以下是几种可行的方法：

方法1：使用data.table::setnames批量修改（引用修改原数据） #

利用make.unique生成唯一列名，再通过setnames直接替换所有列名（按位置匹配，无需依赖原列名的唯一性）：

library(data.table)
library(tidyverse)

# 构造示例数据
a <- data.table(All = rep(c('a', 1:3)),
                NA. = rep(c(NA, 1:3)),
                NA. = rep(c(NA, 2:4)))

b <- data.table(All = rep(c('a', 1:3)),
                NA. = rep(c(NA, 1:3)),
                NA. = rep(c(NA, 2:4)),
                NA. = rep(c(NA, 3:5)),
                NA. = rep(c(NA, 4:6)))
c <- list(a, b)

# 批量处理
c_cleaned <- map(c, function(dt) {
  new_names <- make.unique(names(dt))
  setnames(dt, new_names)  # 按位置替换所有列名，不受原重复列名影响
  dt
})

# 查看处理结果
c_cleaned[[1]]
#>    All NA. NA..1
#> 1:   a  NA    NA
#> 2:   1   1     2
#> 3:   2   2     3
#> 4:   3   3     4

c_cleaned[[2]]
#>    All NA. NA..1 NA..2 NA..3
#> 1:   a  NA    NA    NA    NA
#> 2:   1   1     2     3     4
#> 3:   2   2     3     4     5
#> 4:   3   3     4     5     6

方法2：创建副本后修改（保留原数据） #

如果不想修改原列表中的data.table（避免引用修改的副作用），可以先复制每个表再处理：

c_cleaned <- map(c, function(dt) {
  dt_copy <- copy(dt)  # 创建副本，不影响原数据
  new_names <- make.unique(names(dt_copy))
  setnames(dt_copy, new_names)
  dt_copy
})

方法3：用dplyr::rename_with配合map #

借助dplyr对data.table的兼容性，一行代码完成处理（默认生成副本，不修改原数据）：

c_cleaned <- map(c, ~ .x %>% rename_with(~ make.unique(names(.x))))

关键说明 #

1. 为什么之前的setnames报错？
   如果你只针对NA.列调用setnames，会因为原列名重复无法匹配；但传入完整的新列名向量时，setnames会按位置替换，完全避开原列名的重复问题。
2. 为什么map2方案失败？
   ->>是全局赋值操作，无法在map2的匿名函数中正确引用临时迭代对象.x，而且分开生成列名列表属于冗余操作，合并到单个map步骤更简洁可靠。

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