编写交换列名的R函数遇故障，请求排查修复

原函数存在的问题 #

• 正则表达式逻辑错误：pattern='1^'把锚点^位置放反，且直接先替换1→2再替换2→1会导致覆盖，最终无法实现互换
• 语法错误：matches('^y'|'^x')缺少引号包裹正则表达式，第二个rename_with的.cols参数前缺少逗号，函数末尾多了冗余括号
• 操作逻辑错误：两次rename_with都基于原始data操作，未链式传递结果，也没有返回最终处理后的数据集
• 定义的dv、IV、number_of_IV参数未实际使用，无法适配你提到的I1/I2等更多变量场景

修复后的函数 #

swap_colnames <- function(data, prefixes = c("y", "x")) {
  # 构建列名互换映射表
  name_pairs <- expand.grid(prefix = prefixes, num = 1:2)
  name_map <- setNames(
    paste0(name_pairs$prefix, 3 - name_pairs$num),
    paste0(name_pairs$prefix, name_pairs$num)
  )
  
  # 执行精准替换
  dplyr::rename_with(
    data,
    .fn = ~ dplyr::case_match(.x, !!!name_map, .default = .x),
    .cols = dplyr::matches(paste0("^(", paste(prefixes, collapse = "|"), ")[12]$"))
  )
}

使用示例 #

# 生成测试数据（包含你提到的I1/I2变量）
pid <- 1:30
y1 <- rnorm(30,10,10)
y2 <- rnorm(30,10,10)
x1 <- rnorm(30,5,2)
x2 <- rnorm(30,5,2)
I1 <- rnorm(30, 0, 1)
I2 <- rnorm(30, 0, 1)

data <- data.frame(pid,y1,y2,x1,x2,I1,I2)

# 互换y、x开头的列名
data_swapped_yx <- swap_colnames(data, prefixes = c("y", "x"))
colnames(data_swapped_yx)

# 单独互换I开头的列名
data_swapped_I <- swap_colnames(data, prefixes = "I")
colnames(data_swapped_I)

修复说明 #

1. 解决覆盖问题：通过预构建完整的双向映射表（y1↔y2、x1↔x2、I1↔I2），用case_match一次性完成替换，避免中间值覆盖
2. 适配更多变量：通过prefixes参数可任意指定需要互换的前缀（如"I"），无需修改函数核心逻辑
3. 精准匹配列名：用正则^([前缀集合])[12]$精准匹配目标列，避免误改其他列
4. 语法规范修正：修复原函数的语法错误，明确调用dplyr包函数，避免命名冲突与环境依赖问题

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