R语言如何按规则批量重命名列表内多个data.table的列名

你已经写对了单表列名的替换规则，只需要对列表内所有元素批量应用规则即可，以下两种方法都能适配列表内各表列数不一致的场景：

方法1：data.table原生方案（推荐，性能最优） #

使用data.table自带的setnames()函数按引用修改列名，不需要复制整表，处理大体积数据表时速度优势明显，不需要额外赋值回原列表：

library(data.table)
lapply(my_list, function(dt) {
  setnames(dt, old = names(dt), new = sub(".*?_", "", names(dt)))
})

方法2：base R通用方案 #

不依赖data.table专属函数，处理后将结果赋值回原列表即可：

my_list <- lapply(my_list, function(dt) {
  colnames(dt) <- sub(".*?_", "", colnames(dt))
  dt
})

说明 #

• 正则.*?_为非贪婪匹配，会匹配列名中第一个下划线及之前的所有前缀字符，完全匹配你提出的清理规则；如果后续遇到列名包含多个下划线、需要保留最后一个下划线后内容的场景，将正则替换为.*_即可。
• 你提供的预期输出数值和set.seed(100)生成的样例数据数值不一致，属于随机数运行环境差异，列名处理逻辑完全符合要求，运行代码后列名会统一清理为你需要的格式。

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