获取最近的 n 个匹配字符串

Question

您好，我正在尝试将一个字符串与不同数据帧中的其他字符串进行匹配，并根据分数获得最近的 n 个匹配项。

EX：我需要从 string_2 (df_2) 列匹配 string_1(df_1) 并根据每个 ID 组获取最近的 3 个匹配项。

ID = c(100, 100,100,100,103,103,103,103,104,104,104,104)
string_1 = c("Jack Daniel","Jac","JackDan","steve","Mark","Dukes","Allan","Duke","Puma Nike","Puma","Nike","Addidas")

df_1 = data.frame(ID,string_1)

ID = c(100, 100, 185, 103,103, 104, 104,104)
string_2 = c("Jack Daniel","Mark","Order","Steve","Mark 2","Nike","Addidas","Reebok")

df_2 = data.frame(ID,string_2)

我的输出数据框 df_out 如下所示。

ID = c(100, 100,185,103,103,104,104,104)
string_2 = c("Jack Daniel","Mark","Order","Steve","Mark 2","Nike","Addidas","Reebok")
nearest_str_match_1 = c("Jack Daniel","JackDan","NA","Duke","Mark","Nike","Addidas","Nike")
nearest_str_match_2 =c("JackDan","Jack Daniel","NA","Dukes","Duke","Addidas","Nike","Puma Nike") 
nearest_str_match_3 =c("Jac","Jac","NA","Allan","Allan","Puma","Puma","Addidas") 
   
df_out = data.frame(ID,string_2,nearest_str_match_1,nearest_str_match_2,nearest_str_match_3)

我已经尝试手动使用包“stringdist”-'jw' 方法并获得最接近的值。

stringdist::stringdist("Jack Daniel","Jack Daniel","jw") 
stringdist::stringdist("Jack Daniel","Jac","jw")
stringdist::stringdist("Jack Daniel","JackDan","jw")

提前致谢

Answer 1

 merge(df_1, df_2, by = 'ID') %>%
   group_by(string_2) %>%
   mutate(dist = (stringdist::stringdist(string_2,string_1, 'jw')) %>%
            rank(ties = 'last')) %>%
   slice_min(dist, n = 3) %>%
   pivot_wider(names_from = dist, names_prefix = 'nearest_str_match_', 
               values_from = string_1)

# A tibble: 7 x 5
# Groups:   string_2 [7]
     ID string_2    nearest_str_match_1 nearest_str_match_2 nearest_str_match_3
  <dbl> <chr>       <chr>               <chr>               <chr>              
1   104 Addidas     Addidas             Nike                Puma               
2   100 Jack Daniel Jack Daniel         JackDan             Jac                
3   100 Mark        JackDan             Jack Daniel         Jac                
4   103 Mark 2      Mark                Duke                Allan              
5   104 Nike        Nike                Addidas             Puma               
6   104 Reebok      Nike                Puma Nike           Addidas            
7   103 Steve       Duke                Dukes               Allan

获取最近的 n 个匹配字符串

Get nearest n matching strings

r

dplyr

stringdist