如何批量剥离列名特定模式并统一重命名（R语言）

针对你需要批量重命名评估数据集列名的需求，可以利用正则表达式+dplyr批量重命名函数实现高效自动化处理，无需逐个手动修改列名，代码可复用性强。

实现步骤 #

1. 加载所需工具包

library(dplyr)
library(stringr)

2. 批量重命名列名
   核心思路是通过正则表达式从原始列名中提取两个关键信息：题目主题内容和测试类型（pre/post），再将二者组合成目标格式。

df_renamed <- df %>%
  rename_with(
    .cols = everything(),  # 对所有列生效
    .fn = function(col_name) {
      # 提取测试类型：pre或post
      test_type <- str_extract(col_name, "pre|post")
      # 提取题目主题：匹配数字段之后、_key之前的内容
      topic <- str_extract(col_name, "(?<=_\\d+_).*(?=_key)")
      # 组合成目标列名格式：主题_测试类型
      paste(topic, test_type, sep = "_")
    }
  )

效果验证 #

运行上述代码后，查看重命名后的列名：

colnames(df_renamed)

输出结果将完全符合你的需求：

[1] "captivity_pre"               "captivity_post"             
[3] "food_chains_pre"             "food_chains_post"           
[5] "humans_harmed_orcas_pre"     "humans_harmed_orcas_post"

方案优势 #

• 自动化批量处理：无论题目数量是40题还是更多，都能一次性完成重命名
• 适配两类题目：同时兼容词汇类（单个主题词）和背景知识类（多主题词）的列名结构
• 代码可复用：后续重复操作时直接复用这段代码即可，无需调整

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