如何高效为多个R数据框的相似变量名插入/分隔符？

核心思路 #

用正则表达式匹配变量名中「基础文本」和「后续数字」的分界，批量替换添加/；再通过lapply（或dplyr的rename_with）批量处理多个数据框，替代手动逐个调用rename的繁琐操作。

代码实现（基础版，Base R） #

1. 定义通用重命名函数

# 定义重命名函数：在文本与数字之间插入/
add_slash_to_colnames <- function(df) {
  # 正则匹配：前面是字母（可按需调整匹配规则），后面是数字，替换为「文本/数字」
  colnames(df) <- gsub("([a-zA-Z]+)(\\d+)", "\\1/\\2", colnames(df))
  return(df)
}

2. 批量处理多个数据框

# 示例数据框
df1 <- data.frame(var1 = 1:3, score2 = 4:6, normal_col = 7:9)
df2 <- data.frame(var3 = 10:12, score4 = 13:15, other_col = 16:18)

# 将数据框存入列表，用lapply批量处理
df_list <- list(df1, df2)
renamed_dfs <- lapply(df_list, add_slash_to_colnames)

# 提取处理后的单个数据框
df1_renamed <- renamed_dfs[[1]]
df2_renamed <- renamed_dfs[[2]]

进阶实现（dplyr版） #

如果习惯用tidyverse语法，rename_with可以更简洁地完成单数据框重命名，结合lapply同样支持批量处理：

library(dplyr)

# 用rename_with批量修改列名
rename_with_slash <- function(df) {
  df %>%
    rename_with(~ gsub("([a-zA-Z]+)(\\d+)", "\\1/\\2", .x))
}

# 单数据框处理
df1_renamed <- rename_with_slash(df1)

# 多数据框批量处理
renamed_dfs <- lapply(list(df1, df2), rename_with_slash)

正则规则调整 #

如果你的变量名基础部分包含下划线（比如var_name123），只需修改正则表达式的匹配范围：

# 匹配字母+下划线的组合作为基础部分
colnames(df) <- gsub("([a-zA-Z_]+)(\\d+)", "\\1/\\2", colnames(df))

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