在R中立即替换以不同模式结尾的多个列名

# 创建一个示例数据框
data <- data.frame(A_col = 1:5, B_col_1 = 6:10, B_col_2 = 11:15, C_col_1 = 16:20, C_col_2 = 21:25)

# 查看原始列名
colnames(data)
# 输出结果:
# [1] "A_col"   "B_col_1" "B_col_2" "C_col_1" "C_col_2"

# 使用正则表达式和sub()函数替换列名
new_colnames <- sub("_col_\\d+$", "_new", colnames(data), perl = TRUE)
colnames(data) <- new_colnames

# 查看替换后的列名
colnames(data)
# 输出结果:
# [1] "A_col"   "B_new"   "B_new"   "C_new"   "C_new"