檢查string2中每個字是否存在於string1中R

Question

我想檢查string1中是否存在string2的每個字。例如

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

我期待下面的代碼應返回TRUE

str_detect(string1, string2) 

但它返回false

Answer 1

如果一切TRUE那麼它的存在，否則沒有。

> 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

你能做到這一點。如果在string1中找到拆分string2的所有元素，則它是TRUE。 str_detect從stringr

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

[1] TRUE 

Answer 3

使用：

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，你可以使用simplify = TRUE從str_split