模糊匹配/加入大学名称的两个数据框[重复]

Question

我有一份包含拼写错误和不一致的大学名称列表。我需要将它们与大学名称的官方列表进行匹配，以将我的数据链接在一起。

我知道模糊匹配/加入是我要走的路，但我对正确的方法有点迷茫。任何帮助将不胜感激。

d<-data.frame(name=c("University of New Yorkk", "The University of South
 Carolina", "Syracuuse University", "University of South Texas", 
"The University of No Carolina"), score = c(1,3,6,10,4))

y<-data.frame(name=c("University of South Texas",  "The University of North
 Carolina", "University of South Carolina", "Syracuse
 University","University of New York"), distance = c(100, 400, 200, 20, 70))

而且我希望输出能够将它们尽可能紧密地合并在一起

matched<-data.frame(name=c("University of New Yorkk", "The University of South Carolina", 
"Syracuuse University","University of South Texas","The University of No Carolina"), 
correctmatch = c("University of New York", "University of South Carolina", 
"Syracuse University","University of South Texas", "The University of North Carolina"))

Answer 1

我将adist() 用于此类事情，并且有一个名为closest_match() 的小包装函数来帮助将一个值与一组“良好/允许”值进行比较。

library(magrittr) # for the %>%

closest_match <- function(bad_value, good_values) {
  distances <- adist(bad_value, good_values, ignore.case = TRUE) %>%
    as.numeric() %>%
    setNames(good_values)

  distances[distances == min(distances)] %>%
    names()
}

sapply(d$name, function(x) closest_match(x, y$name)) %>%
  setNames(d$name)

University of New Yorkk The University of South\n Carolina               Syracuuse University 
"University of New York"     "University of South Carolina"           "University of New York" 
University of South Texas      The University of No Carolina 
"University of South Texas"     "University of South Carolina" 

adist() 利用Levenshtein distance 比较两个字符串之间的相似度。