抱歉，请牢记规则。说以前的帖子被删除了，所以我不得不再做一次。 两个数据框xa和ya中的两个字符列。 xa比ya更完美，因此希望将ya中的匹配到xa中的匹配，但返回xa中的匹配。
这是我所拥有的，但是它要长得多，而且不是逐行匹配
xa = c("boxes","card","picture","combs".....)
ya= c("comb","paste","crda","boes"......)
这就是我在R中所做的
fibon <-
for (i in ya)
sapply(xa, function(x) { if (
agrepl(ya, x, max.distance=0.1)==TRUE)
fibon <- as.list(return(i))})
这似乎可以运行，但永无止境 我确实考虑过使用索引，也尝试过使用agrep索引组件
fibon <-
sapply(xa, function(x)
m <- agrep(ya, x, max.distance=0.1, value=F)
fibon <- replace (x, m, ya[m]))
但是它从xa返回匹配项，而不是从ya返回
谢谢
编辑 看它的另一种方式是说： ya可能是一个查找表，我想用它在ya（查找表）中的匹配替换xa中每个近似匹配的元素