我来帮你搞定这个多组列重命名的需求！你的原函数只能处理两组列，要扩展成支持任意多组，核心思路是用可变参数来接收成对的"前缀+列范围"输入，然后批量处理每一组的重命名逻辑。

具体实现步骤 #

1. 改用可变参数...接收输入：这样用户可以传入任意数量的"前缀+列范围"配对，完全符合你期望的调用方式。
2. 参数合法性检查：确保传入的参数是成对的（每一个前缀对应一个列范围），避免因参数数量错误导致的bug。
3. 批量处理每一组重命名：不再遍历所有列索引，直接定位到每组对应的列范围，批量修改列名，效率更高。

修改后的完整函数代码 #

func1 <- function(df, ...) {
  # 将可变参数转为列表，方便后续处理
  args <- list(...)
  
  # 检查参数是否为成对输入，避免错误
  if (length(args) %% 2 != 0) {
    stop("请成对传入参数：每个前缀必须对应一个列索引/范围")
  }
  
  # 遍历每一组前缀+列范围，批量修改列名
  for (i in seq(from = 1, to = length(args), by = 2)) {
    current_prefix <- args[[i]]
    target_cols <- args[[i + 1]]
    # 给指定列名添加前缀
    names(df)[target_cols] <- paste(current_prefix, names(df)[target_cols], sep = "_")
  }
  
  return(df)
}

测试你的期望用法 #

用你的示例数据集测试一下：

# 构建示例数据
id <- c(500,600,700,800)
test1 <- c(1,4,5,6)
test2 <- c(6,4,3,6)
test3 <- c(4,3,4,6)
test4 <- c(3,5,6,6)
test <- data.frame(id,test1,test2,test3,test4)

# 使用修改后的函数（完全符合你的期望用法）
test <- func1(test, "MH", 2, "ML", 3, "MP", 4:5)

# 查看修改后的列名
names(test)
# 输出结果："id" "MH_test1" "ML_test2" "MP_test3" "MP_test4"

额外优化说明 #

• 相比原函数遍历所有列索引的方式，直接定位目标列批量修改的效率更高，尤其是当数据框列数很多时。
• 加入了参数合法性检查，用户如果传入奇数个参数（比如漏了某个前缀或列范围），函数会直接抛出清晰的错误提示，便于调试。

内容的提问来源于stack exchange，提问作者MGJ-123