测试单词是否在字符串中（grepl、fuzzyjoin？）

如果一个数据帧的两列中的字符串包含在第二个数据帧的一列的字符串中，我需要对两个数据帧进行匹配和连接。

示例数据框：

First <- c("john", "jane", "jimmy", "jerry", "matt", "tom", "peter", "leah")
Last  <- c("smith", "doe", "mcgee", "bishop", "gibbs", "dinnozo", "lane", "palmer")
Name  <- c("mr john smith","", "timothy t mcgee", "dinnozo tom", "jane  l doe", "jimmy mcgee", "leah elizabeth arthur palmer and co", "jerry bishop the cat")
ID    <- c("ID1", "ID2", "ID3", "ID4", "ID5", "ID6", "ID7", "ID8")

df1 <- data.frame(First, Last)
df2 <- data.frame(Name, ID)

所以基本上，我有df1其名字和姓氏相当有序；我有df2，其中的名称可以组织为“名字、姓氏”或“姓氏名字”或“名字 MI 姓氏”或完全包含该名称的其他名称。我需要ID专栏来自df2。所以我想运行一段代码看看是否df1$First and df2$Last是字符串中的某个位置df2$Name，如果是，则将其拉出并加入df2$ID to df1.

我的 R 大师告诉我使用fuzzy_left_join来自fuzzyjoin包裹：

fzjoin <- fuzzy_left_join(df1, df2, by = c("First" = "Name"), match_fun = "contains")

但它给了我一个错误，即论证不符合逻辑；我不知道如何重写它来实现我想要的；这文档 https://rdrr.io/cran/fuzzyjoin/man/fuzzy_join.html说match_fun应该TRUE or FALSE，但我不知道该怎么办。另外，它只匹配df1$First而不是df1$First and df1$Last。我想我也许可以使用grepl https://stackoverflow.com/questions/10128617/test-if-characters-are-in-a-string，但不确定如何根据我见过的例子。有什么建议吗？

文档说match_fun应该是一个“给定两列的向量化函数，返回TRUE or FALSE至于他们是否匹配。”它不是 TRUE 或 FALSE，它是一个返回的函数TRUE or FALSE。如果我们更改您的订单，我们可以使用stringr::str_detect，它确实返回TRUE or FALSE按要求。

fuzzyjoin::fuzzy_left_join(
  df2, df1,
  by = c("Name" = "First", "Name" = "Last"),
  match_fun = stringr::str_detect
)
#                                  Name  ID First    Last
# 1                       mr john smith ID1  john   smith
# 2                                     ID2  <NA>    <NA>
# 3                     timothy t mcgee ID3  <NA>    <NA>
# 4                         dinnozo tom ID4   tom dinnozo
# 5                         jane  l doe ID5  jane     doe
# 6                         jimmy mcgee ID6 jimmy   mcgee
# 7 leah elizabeth arthur palmer and co ID7  leah  palmer
# 8                jerry bishop the cat ID8 jerry  bishop