Removing words featured in character vector from string
You could use the tm
library for this:
require("tm")
removeWords(str,stopwords)
#[1] "I have "
Try this:
str <- c("I have zero a accordance")
stopwords = c("a", "able", "about", "above", "abst", "accordance", "yourself",
"yourselves", "you've", "z", "zero")
x <- unlist(strsplit(str, " "))
x <- x[!x %in% stopwords]
paste(x, collapse = " ")
# [1] "I have"
Addition: Writing a "removeWords" function is simple so it is not necessary to load an external package for this purpose:
removeWords <- function(str, stopwords) {
x <- unlist(strsplit(str, " "))
paste(x[!x %in% stopwords], collapse = " ")
}
removeWords(str, stopwords)
# [1] "I have"