如何在R语言中提取列名前缀拼接至列值并重命名列？

你的代码存在几个关键问题：

• 正则表达式"A[:digit:]"仅匹配单个数字，无法完整提取A35/A36这类前缀，应改用"A\\d+"匹配A开头的完整数字序列
• 错误地在单列数据上使用mutate()，且循环中索引变量大小写错误（I应为i）

以下是两种可行的实现方案：

方案一：Tidyverse 批量处理（推荐） #

利用dplyr的across()函数批量处理所有列，无需手动循环，代码更简洁易维护：

library(dplyr)
library(stringr)

# 初始化示例数据框
dataset <- tibble(
  A35.Factor1 = c("level1", "level2"),
  A36.Factor2 = c("level3", "level4")
)

# 执行转换
result <- dataset %>%
  # 先修改列名：移除开头的"A数字."前缀
  rename_with(~ str_remove(., "^A\\d+\\.")) %>%
  # 批量拼接前缀与列值
  mutate(across(
    everything(),
    ~ paste(str_extract(colnames(dataset)[cur_column()], "^A\\d+"), ., sep = ".")
  ))

print(result)

输出结果：

# A tibble: 2 × 2
  Factor1   Factor2  
  <chr>     <chr>    
1 A35.level1 A36.level3
2 A35.level2 A36.level4

方案二：基础R循环实现 #

若偏好基础R语法，修正后的循环代码如下：

library(stringr)

# 初始化示例数据框
dataset <- data.frame(
  A35.Factor1 = c("level1", "level2"),
  A36.Factor2 = c("level3", "level4")
)

# 遍历每一列处理
for(i in seq_along(dataset)) {
  # 提取列名中的A开头数字前缀
  col_prefix <- str_extract(colnames(dataset)[i], "^A\\d+")
  # 拼接前缀与列值
  dataset[, i] <- paste(col_prefix, dataset[, i], sep = ".")
  # 修改列名，移除前缀部分
  colnames(dataset)[i] <- str_remove(colnames(dataset)[i], "^A\\d+\\.")
}

print(dataset)

输出结果：

Factor1   Factor2
1 A35.level1 A36.level3
2 A35.level2 A36.level4

核心要点： #

• 正则表达式^A\\d+精准匹配列名开头的"A+数字"前缀
• str_remove()用于清理列名，保留FactorX部分
• 拼接时指定sep = "."确保输出格式符合预期

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