string2のすべての単語がstring1に存在するかどうかをチェックするR

Question

string1のすべての単語がstring1に存在するかどうかを確認したい。例

string1 <- "My name is John Smith" 
string2 <- "My Smith" 

私はコードがTRUE

str_detect(string1, string2) 

を返す必要がありますが、それはすべてがTRUEであれば、それは無いそうでない存在だ偽

Answer 1

を返して次のよう期待しています。

> string1 <- "My name is John Smith" 
> string2 <- "My Smith" 
> 
> strsplit(string2,' ')[[1]] %in% strsplit(string1,' ')[[1]] 
[1] TRUE TRUE 
> 

テストケース：

> string3 <- 'He is Smith' 
> strsplit(string3,' ')[[1]] %in% strsplit(string1,' ')[[1]] 
[1] FALSE TRUE TRUE 

Answer 2

あなたがこれを行うことができます。 string2のすべての要素がstring1にある場合は、TRUEです。

all(sapply(unlist(strsplit(string2, " ")), grepl, string1)) 

[1] TRUE 

Answer 3

str_detectstringrから使用：

string1 <- "My name is John Smith" 
string2 <- "My Smith" 

library(stringr) 
library(dplyr) 

string1 %>% 
    str_detect(str_split(string2, " ", simplify = TRUE)) %>% 
    all() 
# [1] TRUE 

代わりunlist() INGの、あなたはstr_split

から simplify = TRUEを使用することができます