模糊匹配两个数据帧

Question

我想合并两个数据帧DF1和DF2。

df1<-tibble(x=c("FIDELITY FREEDOM 2015 FUND", "VANGUARD WELLESLEY INCOME FUND"),y=c(1,2))

df2<-tibble(x=c("FIDELITY ABERDEEN STREET TRUST: FIDELITY FREEDOM 2015 FUND", "VANGUARD/WELLESLEY INCOME FUND, INC: VANGUARD WELLESLEY INCOME FUND; INVESTOR SHARES"),z=c(2020,2021))

我想基于x合并DF1和DF2。目前，我尝试使用模糊匹配并使用

fuzzy_join(df1,df2,match_fun = function(x,y) grepl(x, y))

它为我提供了如下输出，

In grepl(x, y) :
  argument 'pattern' has length > 1 and only the first element will be used.

您是否有合并DF1和DF2的想法？我正在考虑如何编写match_fun函数，但我不确定如何进步。太感谢了！

Answer 1

我们可以使用fuzzy_inner_join或REGEX_INNER_JOIN来自fuzzyjoin软件包。

library(fuzzyjoin)
library(stringr)
df2 %>% fuzzy_inner_join(df1, by = "x", match_fun = str_detect)

  x.x                                                                                      z x.y                                y
  <chr>                                                                                <dbl> <chr>                          <dbl>
1 FIDELITY ABERDEEN STREET TRUST: FIDELITY FREEDOM 2015 FUND                            2020 FIDELITY FREEDOM 2015 FUND         1
2 VANGUARD/WELLESLEY INCOME FUND, INC: VANGUARD WELLESLEY INCOME FUND; INVESTOR SHARES  2021 VANGUARD WELLESLEY INCOME FUND     2

或：

library(fuzzyjoin)
df2 %>% regex_inner_join(df1, by = "x")