R删除列名中某些字符之前的所有内容

# 导入数据处理包
library(dplyr)

# 创建一个示例数据框
df <- data.frame("col_1" = 1:5, "col_2" = 6:10, "col_3" = 11:15)

# 查看原始列名
colnames(df)
# 输出：[1] "col_1" "col_2" "col_3"

# 使用正则表达式和字符串处理函数删除列名中某些字符之前的所有内容
new_colnames <- sub(".*_", "", colnames(df))

# 更新数据框的列名
colnames(df) <- new_colnames

# 查看更新后的列名
colnames(df)
# 输出：[1] "1" "2" "3"