Строки данных из других данных

Question

из кадра данных со строкой

 df1 <- data.frame(col1 = c("Here is my text", "another effort of my text", "final effort of my text"))

И наличие второго кадра данных с другими словами:

df2 <- data.frame(col2 = c("my", "text"))

Как можно удалить слова из df1, которые есть в df2? Чего ожидать:

data.frame(col1 = c("Here is ", "another effort of ", "final effort of "))

Answer 1

Вот решение с использованием vapply

words_remove <- as.character(.subset2(df2,1L))
strings <- strsplit(as.character(.subset2(df1,1L)),' ')
data.frame(col1 = vapply(seq_along(strings),
       function (k) {
        current_words <- strings[[k]]
        paste(current_words[!(current_words %in% words_remove)], collapse = ' ')
       }, character(1))
)
#                col1
# 1           Here is
# 2 another effort of
# 3   final effort of

Обратите внимание, что пробелы в конце не сохраняются - при необходимости это можно реализовать.

Answer 2

Может быть, это?

library(tidyverse)
    df1 %>% 
      mutate(col1=str_remove_all(df1$col,"my text"))