R语言删除列名末尾任意长度括号及内容的实现与代码验证

问题诊断 #

你的思路方向是正确的：用dplyr::rename_with()搭配stringr::str_remove()批量处理列名的逻辑完全适用，但你写的正则表达式存在错误，无法匹配目标内容：你写的\(*\)实际仅能匹配「任意数量左括号+1个右括号」，无法覆盖括号中间的所有内容，达不到预期删除效果。

修正后可直接运行的代码 #

library(dplyr)
library(stringr)

df <- df %>%
  rename_with(~str_remove(.x, " \\(.*\\)$"))

正则规则说明

修正后的" \\(.*\\)$"各段匹配逻辑：

• 开头的空格：匹配左括号前的前置空格
• \\(：转义匹配左括号字符(
• .*：匹配括号内任意长度的任意内容
• \\)：转义匹配右括号字符)
• $：限定仅匹配字符串末尾的括号段，不会误删列名中间的括号内容
• 本身没有末尾括号的列名匹配不到规则，会保留原名称，符合你的需求

匹配效果验证 #

针对你给出的列名测试结果如下：

完全符合你的预期输出。

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