我想我理解，但可能是错误的.您可以尝试:

I think I understand but could be wrong. You could try:

a  <- c("hi come asap, the $#!+ show is awsome", "I am suffering from cold")
d <- c("asap", "awsome", "cold", "lol", "rofl")

library(qdap)
mgsub(d, "", a)

收益:

> mgsub(d, "", a)
[1] "hi come , the $#!+ show is" "I am suffering from"