Данная функция использует пакет «stringdist» в R и сообщает минимальные изменения, необходимые для замены одной строки на другую. Я хочу узнать, насколько похожа одна строка на другую в формате "%". Пожалуйста, помогите мне и спасибо.
stringdist("abc","abcd", method = "lv")
Вы можете использовать пакет RecordLinkage и использовать функцию levenshteinSim, т.е.
#This gives the similarity
RecordLinkage::levenshteinSim('abc', 'abcd')
#[1] 0.75
#so to get the distance just subtract from 1,
1 - RecordLinkage::levenshteinSim('abc', 'abcd')
#[1] 0.25
levenshteinDist, непосредственно вычисляющая расстояние.
- person A. Stam; 27.09.2017
% после значения и установить его как числовое. Вот почему мы записываем проценты как 0,....
- person Sotos; 05.10.2017
Что-то вроде этого может сработать:
d <- data.frame(original = c("abcd", "defg", "hij"), new = c("abce", "zxyv", "hijk"))
d$dist <- stringdist(d$original, d$new, method = "lv")
d$similarity <- 1 - d$dist / nchar(as.character(d$original))
#### Returns:
#### original new dist similarity
#### 1 abcd abce 1 0.7500000
#### 2 defg zxyv 4 0.0000000
#### 3 hij hijk 1 0.6666667
Вот функция в базе R. Я добавил проверку на наличие векторов одинаковой длины в качестве входных данных. При желании вы можете изменить эту логику.
strSim <- function(v1, v2) {
if(length(v1) == length(v2)) 1 - (adist(v1, v2) / pmax(nchar(v1), nchar(v2)))
else stop("vector lengths not equal")}
это возвращает
strSim("abc", "abcd")
[,1]
[1,] 0.75
