1

我是 R 的真正初学者，我只有这两个列表，其中包含城市名称。一个列表包含用户生成的名称（人们拼写混乱），另一个列表包含名称的拼写。

我尝试使用包stringdist，最后我得到了一个循环（for）并给出最接近匹配的代码。但我只能输入向量，我真的需要使用数据框。

这是我的代码（哦，男孩，感觉很尴尬）：

 input <- "BAC"   #misspelled 
  correct <- c("ABC", "DEF", "GHI", "JKL") #list with all correct names
  shortest <- -1a

for (word in correct) {

  dist <- stringdist(input, word)
  #checks if it's a match!
  if (dist == 0){
    closest <- palavra
    shortest <- 0

    break

  }

  if(dist <= shortest || shortest < 0){
    closest <- word
    shortest <- dist

  }

}


if(shortest == 0){ 
  print("It's a match!")
} else {
  print(closest)
}

想法是使用此代码有一个想法，我想从这个到在我的数据框的每一行中使用stringdist。我什至不知道这是否是个好主意，如果这需要太多的处理能力，不要害怕说它很愚蠢。谢谢！

4

1 回答 1

0

包中有一个特殊功能stringdist，称为amatch：

input <- "BAC"   #misspelled 
correct <- c("ABC", "DEF", "GHI", "JKL") 

correct[amatch(input, correct, maxDist = Inf)]
# "ABC"

这也将同时适用于多个输入单词，因此无需使用 for 循环

input <- c("New Yorkk", "Berlyn", "Pariz") # misspelled 
correct <- c("Berlin", "Paris", "New York", "Los Angeles") # correct names

correct_words <- correct[amatch(input, correct, maxDist = Inf)]
data.frame(input, correct_words)

 #       input correct_words
 #   New Yorkk      New York
 #      Berlyn        Berlin
 #       Pariz         Paris
于 2019-05-03T20:59:09.430 回答