Извините, буду помнить правила.говорит, что предыдущий пост удален, поэтому я должен был сделать другой.Два символьных столбца в двух фреймах данных 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
Спасибо
Edit Еще один способ взглянуть на это - сказать: ya может быть поискомтаблицы, и я хочу заменить каждый приблизительно совпадающий элемент в xa его соответствием в ya, таблица поиска