如何在R语言数据框中移除分类列匹配内容生成新列

我来帮你搞定这个需求！你要做的是从name列里移除charge列对应的内容，但之前尝试失败的核心原因是**charge列里的字符串包含正则表达式的特殊字符**（比如[、]、+、-这些），直接用普通的字符串替换会因为正则语法规则导致匹配失效。下面给你两种简单可行的方案：

方案一：使用Base R实现 #

用mapply逐行处理每一对name和charge，搭配gsub的fixed=TRUE参数（这个参数会告诉R把字符串当作普通文本匹配，忽略正则特殊字符）：

# 你的原始数据框
df <- data.frame(Id=1:3,
                 name=c("Cer[AP] t44:0; [M-H]-","FA 20:0; [M-Na]-","PG 36:1; PG(18:0/18:1)[M-H]+"), 
                 charge=c("[M-H]-","[M-Na]-","[M-H]+"))

# 生成new_name列
df$new_name <- mapply(function(x, y) gsub(y, "", x, fixed = TRUE), df$name, df$charge)

方案二：使用tidyverse（dplyr + stringr）实现 #

如果你习惯用tidyverse的语法，可以用str_remove并指定fixed=TRUE来完成：

library(dplyr)
library(stringr)

df <- df %>%
  mutate(new_name = str_remove(name, fixed(charge)))

运行结果 #

执行任意一种方案后，你都会得到预期的输出：

df
#   Id                                   name    charge                     new_name
# 1  1                Cer[AP] t44:0; [M-H]- [M-H]-                Cer[AP] t44:0; 
# 2  2                    FA 20:0; [M-Na]- [M-Na]-                    FA 20:0; 
# 3  3 PG 36:1; PG(18:0/18:1)[M-H]+ [M-H]+ PG 36:1; PG(18:0/18:1)

原理说明：fixed=TRUE是关键，它让R把charge里的内容当作纯文本处理，而不是正则表达式的语法元素，这样就能精准匹配并移除目标字符串了。

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