如何用str_detect识别列名并按规则批量重命名R数据框列？

核心问题说明 #

你用str_replace出错是因为它只能替换字符串片段，没法生成带序号的新名称，自然会得到S.Length这类不符合预期的结果。正确思路是先识别目标列，再按顺序分配S1、S2...的命名，其余列保留原名。

方法一：基础R实现（无额外包依赖） #

适合不想引入太多工具包的场景，逻辑直观：

# 加载字符串处理包
library(stringr)

# 获取原数据集的列名
col_names <- colnames(iris)

# 筛选出以"Sepal"开头的列的位置
sepal_cols <- str_detect(col_names, "^Sepal")

# 生成新列名：匹配列替换为S1、S2...，其余列保留原名
new_names <- col_names
new_names[sepal_cols] <- paste0("S", 1:sum(sepal_cols))

# 给数据集重命名
colnames(iris) <- new_names

# 查看最终列名
colnames(iris)

方法二：tidyverse工具链（简洁高效） #

适合日常数据处理工作流，代码更紧凑：

library(dplyr)
library(stringr)

# 生成重命名后的新数据集（不修改原数据）
iris_renamed <- iris %>%
  rename_with(
    # 指定要重命名的列：所有以Sepal开头的列
    .cols = starts_with("Sepal"),
    # 按顺序生成S1、S2...的新名称
    .fn = ~ paste0("S", seq_along(.x))
  )

# 查看结果
colnames(iris_renamed)

适配大数据集 #

两种方法都能直接用于100+变量的数据集：

• 代码会自动统计匹配规则的列数，自动生成对应序号的新名称
• 不管需要重命名30个还是更多变量，无需手动调整序号范围，逻辑通用

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