如何在R语言中修改含字符数字组合的列名（数字部分减1）

方法一：正则替换结合回调函数 #

使用stringr包的str_replace_all，通过正则匹配拆分字符与数字部分，处理后再拼接：

library(stringr)

# 示例列名
col_names <- c("A001", "A002", "A004", "A008", "A009")

new_col_names <- str_replace_all(col_names, "([A-Za-z]+)(\\d+)", function(match) {
  char_part <- match[1]
  num_part <- as.numeric(match[2]) - 1
  # 按原数字位数补前导零（示例为3位）
  sprintf("%s%03d", char_part, num_part)
})

# 输出结果
new_col_names
# [1] "A000" "A001" "A003" "A007" "A008"

方法二：拆分提取后拼接 #

先分别提取字符和数字部分，处理数字后再按原格式拼接：

library(stringr)

col_names <- c("A001", "A002", "A004", "A008", "A009")

# 提取列名中的字符部分
char_parts <- str_extract(col_names, "[A-Za-z]+")
# 提取数字部分并减1
num_parts <- as.numeric(str_extract(col_names, "\\d+")) - 1
# 拼接字符与格式化后的数字（保持3位长度）
new_col_names <- paste0(char_parts, sprintf("%03d", num_parts))

new_col_names
# [1] "A000" "A001" "A003" "A007" "A008"

适配可变数字位数的通用写法 #

如果列名中的数字位数不固定，可先获取原数字长度，再动态格式化：

library(stringr)

col_names <- c("A01", "B10", "C100")

# 获取每个数字部分的长度
num_lengths <- nchar(str_extract(col_names, "\\d+"))
char_parts <- str_extract(col_names, "[A-Za-z]+")
num_parts <- as.numeric(str_extract(col_names, "\\d+")) - 1

# 动态拼接格式化
new_col_names <- mapply(function(char, num, len) {
  sprintf(paste0("%s%0", len, "d"), char, num)
}, char_parts, num_parts, num_lengths)

new_col_names
# [1] "A00"  "B09"  "C099"

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