在R语言中使用数值列表循环批量重命名变量（tidyverse/dplyr实现）

嘿，手动写一堆rename语句确实太繁琐了！咱们用tidyverse的工具完全可以批量搞定这个需求，我给你分享两种实用的方法，选你觉得顺手的来就行：

方法1：构建重命名映射列表（直观易控） #

这种方法先提前生成所有旧变量名和新变量名的对应关系，一次性传给rename，逻辑清晰还方便检查：

library(dplyr)
library(stringr) # tidyverse已包含，无需额外安装

# 1. 定义目标年份范围：2004到2020
years <- 2004:2020

# 2. 构建第一类变量的映射：var_a_year → sample_year
rename_map_a <- set_names(
  paste0("sample_", years),  # 新变量名
  paste0("var_a_", years)    # 旧变量名
)

# 3. 构建第二类变量的映射：var_b_数字 → index_year
# 计算对应年份的var_b数字：2004对应7，每过一年数字+2
b_numbers <- 7 + 2*(years - 2004)
rename_map_b <- set_names(
  paste0("index_", years),   # 新变量名
  paste0("var_b_", b_numbers)# 旧变量名
)

# 4. 合并映射列表，批量完成重命名
rename_map <- c(rename_map_a, rename_map_b)
df <- df %>% rename(!!!rename_map)

小提示 #

• 可以先运行print(rename_map)检查映射关系是否正确，确保年份和数字的对应没有出错
• !!!是tidyverse的非标准评估语法，用来把列表展开成rename的参数，让它能识别每一组旧→新变量对

方法2：用rename_with动态匹配（更灵活） #

如果不想提前定义年份序列，也可以直接通过字符串提取+计算来动态重命名，适合变量规则明确的场景：

library(dplyr)
library(stringr)

df <- df %>%
  rename_with(
    ~ case_when(
      # 处理第一类变量：替换前缀var_a为sample
      str_starts(., "var_a_") ~ str_replace(., "^var_a_", "sample_"),
      # 处理第二类变量：从var_b_数字反推年份，生成新名字
      str_starts(., "var_b_") ~ {
        # 提取var_b后面的数字部分
        num <- as.integer(str_extract(., "(?<=var_b_)\\d+"))
        # 根据数字计算对应年份：(数字-7)/2 +2004
        year <- 2004 + (num - 7)/2
        paste0("index_", year)
      },
      # 其他变量保持原名不变
      TRUE ~ .
    )
  )

优势 #

• 不需要提前定义年份范围，只要变量符合规则就能自动处理
• 如果数据里有额外的var_a/var_b变量（比如超出2004-2020范围），只要规则匹配就会自动重命名，灵活性更高

两种方法都能帮你省去手动写几十行rename的麻烦，你可以根据自己的习惯选择～

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