如何在R语言中移除数据框列名和值中的特定字符组？

问题核心问题点 #

你之前的代码存在两个关键问题：

1. gsub()的模式参数不能用向量c("_","[*]","+")传递多个规则，而且+是正则表达式的特殊字符，未转义会导致匹配失效；另外gsub()默认是全局替换，你之前只移除首个字符是因为模式写法错误。
2. str_remove_all("*")没有传入要处理的列名，属于语法错误，无法生效。

简洁的dplyr管道实现 #

可以结合dplyr和stringr（均属于tidyverse生态），把列名清洗和值的处理整合在一个管道里，一步到位：

library(dplyr)
library(stringr)

df <- tibble(`a*`=c("_x__", "*y", "z+-"),
             b=c("_x__", "*y", "z+-"))

df_cleaned <- df %>%
  # 清洗所有列的数值：移除*、_、+三种字符
  mutate(across(everything(), ~str_remove_all(.x, "[*_+]"))) %>%
  # 批量修改列名：移除列名里的目标字符
  rename_with(~str_remove_all(.x, "[*_+]"))

df_cleaned

代码说明 #

• mutate(across(everything(), ~str_remove_all(.x, "[*_+]")))：用across(everything())遍历所有列，str_remove_all()接受正则字符类[*_+]，可以一次性匹配并移除所有目标字符（正则中[]内的特殊字符无需额外转义）。
• rename_with(~str_remove_all(.x, "[*_+]"))：rename_with()用于批量修改列名，同样通过str_remove_all()清理列名中的指定字符。

运行结果 #

# A tibble: 3 x 2
  a     b    
  <chr> <chr>
1 x     x    
2 y     y    
3 z-    z-  

如果不想用stringr，仅用基础R的gsub()也能实现：

df %>%
  mutate(across(everything(), ~gsub("[*_+]", "", .x))) %>%
  rename_with(~gsub("[*_+]", "", .x))

这里gsub()的模式使用[*_+]字符类，默认开启全局替换，会移除所有匹配的目标字符。

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