如何在R语言中按数字+1规则重命名数据框列名？

针对你给出的数据框，这里提供两种实用的批量修改列名的方案：

方法一：Base R 原生实现 #

不需要额外安装包，直接用正则表达式提取列名中的数字并处理：

# 定义原始数据框
df <- data.frame(
  ID_1 = 1:5,
  ID_2 = 1:5,
  ID_3 = 1:5,
  ID_4 = 1:5
)

# 提取原列名中的数字，加1后拼接新前缀
new_colnames <- paste0(
  "participantID_",
  as.numeric(sub("ID_(\\d+)", "\\1", colnames(df))) + 1
)

# 替换列名
colnames(df) <- new_colnames

方法二：Tidyverse 工具链实现 #

如果你习惯用dplyr，可以用rename_with函数批量处理：

library(dplyr)

df <- data.frame(
  ID_1 = 1:5,
  ID_2 = 1:5,
  ID_3 = 1:5,
  ID_4 = 1:5
) %>%
  rename_with(
    ~ paste0("participantID_", as.numeric(sub("ID_(\\d+)", "\\1", .x)) + 1)
  )

两种方法执行后，数据框的列名都会变成 participantID_2、participantID_3、participantID_4、participantID_5，完全符合需求。

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