r - 文字列の各要素をRの単語のリストと比較する方法は?

Question

たとえば、文字ベクトルがあるとします

a [1] 「やあ、至急来てください。ショーは最高です」「風邪で苦しんでい
ます」

"a" に見つかった単語 ("d" から) を空のスペースに置き換える必要があります。Rで実装するにはどうすればよいですか?

Answer 1

おそらく、次のようなものがうまくいくでしょう：

a  <- c("hi come asap, the show is awsome", "I am suffering from cold")
d <- c("asap", "awsome", "cold", "lol", "rofl")
d[d %in% gsub("[[:punct:]]", "", unlist(strsplit(a, " ")))] <- " "
d
# [1] " "    " "    " "    "lol"  "rofl"

または、逆の方法:

a  <- c("hi come asap, the show is awsome", "I am suffering from cold")
d <- c("asap", "awsome", "cold", "lol", "rofl")
gsub(paste(d, collapse = "|"), " ", a)
# [1] "hi come  , the show is  " "I am suffering from  "  

Answer 2

私は理解していると思いますが、間違っている可能性があります。あなたは試すことができます：

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"