r - 模糊匹配两个数据框

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 或 fuzzyjoin 包中的 regex_inner_join。

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")