已知列位置时，如何在R语言中高效批量重命名数据框列？

针对你现在逐个写ECR_1 = 6这种重复操作，这里有两种更高效的实现方式：

方法一：基础R直接修改列名 #

如果要重命名的是连续列位置（比如你例子里的6到20列），可以直接定位列范围，批量生成新列名：

# 确定要修改的列位置
target_cols <- 6:20
# 生成对应新列名：ECR_1 到 ECR_15
new_names <- paste0("ECR_", seq_along(target_cols))
# 替换指定位置的列名
colnames(df)[target_cols] <- new_names
# 保存到新数据框（可选）
df_R <- df

方法二：用dplyr的rename_with（管道风格） #

要是习惯用tidyverse的管道写法，用rename_with可以更贴合你的代码风格：

library(dplyr)

df_R <- df %>%
  rename_with(
    # 生成新列名的规则
    ~ paste0("ECR_", seq_along(.)),
    # 指定要重命名的列位置
    all_of(6:20)
  )

处理非连续列的情况 #

如果要重命名的列位置不连续，只要把6:20换成具体的列位置向量就行，比如c(6,8,10:15)，再生成对应数量的新列名：

target_cols <- c(6,8,10:15)
new_names <- paste0("ECR_", 1:length(target_cols))
colnames(df)[target_cols] <- new_names

这两种方法都能省去大量重复代码，列数越多越能体现效率。

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