删除部分列名 post 第二个“_”

Remove part of column name post the second "_"

我有一个包含列名称的向量

group <- c("amount_bin_group", "fico_bin_group", "cltv_bin_group", "p_region_bin")

我想替换每个元素的第二个“_”之后的部分,即我希望它是

group <- c("amount_bin", "fico_bin", "cltv_bin", "p_region")

我可以将其拆分为两个向量并尝试使用 gsub 或 substr。但是,最好在向量中执行此操作。有什么想法吗?

我查看了关于同一问题的其他帖子,但其中 none 个有此框架

> sub("(.*)_.*$", "\1", group)
[1] "amount_bin" "fico_bin"   "cltv_bin"   "p_region"