从R中的字符串比较中提取顶级匹配

我目前正在data.table代码中使用带有“lappy”的“agrep”函数，将用户提供的VIN列表中的条目链接到DMV VIN数据库。到目前为止，所有数据/代码请参见以下两个链接：

有没有办法从我的列表中提取“最佳”匹配项，该匹配项由以下人员生成：

---

dtTom，严格来说这不是一个

data.table

问题。此外，如果没有您正在使用的数据，很难准确地知道您想要什么。我试图找出你想要什么，我想出了这个解决方案：

vin.match <- vapply(car.vins, function(x) which.min(adist(x, vin.vins)), integer(1L))
data.frame(car.vins, vin.vins=vin.vins[vin.match], vin.names=vin.names[vin.match])
#   car.vins vin.vins vin.names
# 1  abcdekl   abcdef     NAME1
# 2   abcdeF   abcdef     NAME1
# 3  laskdjg  laskdjf     NAME2
# 4  blerghk  blerghk     NAME3

---

vin.matchTom，这严格来说不是一个
data.table
问题。此外，如果没有您正在使用的数据，很难准确地知道您想要什么。我试图找出你想要什么，我想出了这个解决方案：

vin.match <- vapply(car.vins, function(x) which.min(adist(x, vin.vins)), integer(1L))
data.frame(car.vins, vin.vins=vin.vins[vin.match], vin.names=vin.names[vin.match])
#   car.vins vin.vins vin.names
# 1  abcdekl   abcdef     NAME1
# 2   abcdeF   abcdef     NAME1
# 3  laskdjg  laskdjf     NAME2
# 4  blerghk  blerghk     NAME3

vin.matchTom，这严格来说不是一个
data.table
问题。此外，如果没有您正在使用的数据，很难准确地知道您想要什么。我试图找出你想要什么，我想出了这个解决方案：

vin.match <- vapply(car.vins, function(x) which.min(adist(x, vin.vins)), integer(1L))
data.frame(car.vins, vin.vins=vin.vins[vin.match], vin.names=vin.names[vin.match])
#   car.vins vin.vins vin.names
# 1  abcdekl   abcdef     NAME1
# 2   abcdeF   abcdef     NAME1
# 3  laskdjg  laskdjf     NAME2
# 4  blerghk  blerghk     NAME3

vin.matchTom，这严格来说不是一个
data.table
问题。此外，如果没有您正在使用的数据，很难准确地知道您想要什么。我试图找出你想要什么，我想出了这个解决方案：

vin.match <- vapply(car.vins, function(x) which.min(adist(x, vin.vins)), integer(1L))
data.frame(car.vins, vin.vins=vin.vins[vin.match], vin.names=vin.names[vin.match])
#   car.vins vin.vins vin.names
# 1  abcdekl   abcdef     NAME1
# 2   abcdeF   abcdef     NAME1
# 3  laskdjg  laskdjf     NAME2
# 4  blerghk  blerghk     NAME3

vin.match