R.基于数组的数据帧中字符串匹配的替换

Question

I have a data frame column containing sentences. Within these sentences, there's the whole host of words which I want to remove.

These are words that could appear more than once in a single sentence, and when found I want to remove these words entirely.

eg Sample list of words for removal: ("the", "and", "a") * (list will have 100's of words)

String Before: "the quick brown fox jumps over the lazy dog and cat" String After: "quick brown fox jumps over lazy dog cat"

 sentences <- as.data.frame(c("it's a new sentence","another sentence i've constructed","and a third sentence"))
 colnames(sentences) <- c("sentence")

stop_words <- list( "i" = '', "a" = "", "me" = '' , "my" = "", "myself" = "", "we" = "", "it's" = "", "a" = "", "i've" = "")

 stop_pattern <- paste0("\\b", "(", paste0(stop_words, collapse = "|"),")","\\b")
 trimws(gsub("\\s{2}", " ", gsub(stop_pattern, "", sentences$sentence)))

Output should remove words such as "I've" from the above sentences, however fails to do so.

Output is as shows: [1] "it's a new sentence" "another sentence i've constructed" "and a third sentence"

Answer 1

尝试：

stop_pattern <- paste0("\\b", "(", paste0(stop_words, collapse = "|"),")","\\b") trimws(gsub("\\s{2}", " ", gsub(stop_pattern, "", sentences)))