R: улучшить код: вместо удаления отдельных слов удалить вектор слов

Question

Я хочу улучшить свои навыки кодирования. Чтобы очистить набор данных, я должен удалить слова из столбца, чтобы сделать его более понятным. Я написал функцию для удаления слова, и она работает. Тем не менее, я все еще копирую и вставляю код (например, все слова, которые я хочу оттуда получить, стало намного больше, чем я ожидал).

Я хочу либо улучшить свою функцию, чтобы, например, для удаления слов потребовался символьный вектор, либо использовать функцию в цикле, чтобы я не копировал и не вставлял свой код все время?

Вот что я делаю сейчас:

#Where x is my dataset, $NAAM_VERWIJZER is the column in which all the words need to be removed. 


remove_word <- function(x, word){
  gsub(word, "", x$NAAM_VERWIJZER)
}

data1$NAAM_VERWIJZER <- remove_word(data1, "DAALMEER")
data1$NAAM_VERWIJZER <- remove_word(data1, "HUISARTSENZORG")
data1$NAAM_VERWIJZER <- remove_word(data1, "HUISARTS")
data1$NAAM_VERWIJZER <- remove_word(data1, "HUISARTSENZORG")
data1$NAAM_VERWIJZER <- remove_word(data1, "ALKMAAR")
data1$NAAM_VERWIJZER <- remove_word(data1, "GEZONDHEIDSCENTRUM")
data1$NAAM_VERWIJZER <- remove_word(data1, "ENPRAKTIJK")

Должен быть чище путь.