Найти общие слова в двух списках

N.R спросил: 03 февраля 2018 в 11:28 в: r
x1 <- c("I like apple", "she enjoys reading")
x2 <- c("he likes apple", "Mike wants to read this book")  
w1 <- strsplit(x1, " ")
w2 <- strsplit(x2, " ")  

Я получаю два списка:

w1  
[[1]]  
[1] "I"      "like"   "apple"  [[2]]  
[1] "she"      "enjoys" "reading"w2  
[[1]]  
[1] "he"    "likes"  "apple"[[2]]  
[1] "Mike"  "wants" "to"    "read"  "this"  "book"  

Я хочу получить

intersect(w1[[1]], w2[[1]])
intersect(w1[[2]], w2[[2]])

Предположим, что длины из w1 и w2 очень большие, поэтому использование для цикла не является эффективным способом. есть ли более удобный способ получить соответствующее пересечение?

0 ответов