Jak obliczyć odległość euklidesową w r (z przykładami)

Odległość euklidesową między dwoma wektorami A i B oblicza się w następujący sposób:

Odległość euklidesowa = √ Σ(A _i -B _i ) ²

Aby obliczyć odległość euklidesową między dwoma wektorami w R, możemy zdefiniować następującą funkcję:

 euclidean <- function (a, b) sqrt ( sum ((a - b)^2))

Możemy następnie użyć tej funkcji, aby znaleźć odległość euklidesową między dowolnymi dwoma wektorami:

 #define two vectors
a <- c(2, 6, 7, 7, 5, 13, 14, 17, 11, 8)
b <- c(3, 5, 5, 3, 7, 12, 13, 19, 22, 7)

#calculate Euclidean distance between vectors
euclid(a, b)

[1] 12.40967

Okazuje się, że odległość euklidesowa między dwoma wektorami wynosi 12,40967 .

Zauważ, że możemy również użyć tej funkcji do obliczenia odległości euklidesowej między dwiema kolumnami ramki danych:

 #define data frame
df <- data.frame(a=c(3, 4, 4, 6, 7, 14, 15),
                 b=c(4, 8, 8, 9, 14, 13, 7),
                 c=c(7, 7, 8, 5, 15, 11, 8),
                 d=c(9, 6, 6, 7, 6, 15, 19))

#calculate Euclidean distance between columns a and d
euclid(df$a, df$d)

[1] 7.937254

Należy pamiętać, że ta funkcja wyświetli komunikat ostrzegawczy, jeśli dwa wektory nie będą tej samej długości:

 #define two vectors of unequal length
a <- c(2, 6, 7, 7, 5, 13, 14)
b <- c(3, 5, 5, 3, 7, 12, 13, 19, 22, 7)

#attempt to calculate Euclidean distance between vectors
euclid(a, b)

[1] 23.93742
Warning message:
In a - b: longer object length is not a multiple of shorter object length

Możesz odwołać się do tej strony Wikipedii, aby dowiedzieć się więcej o odległości euklidesowej.

Dodatkowe zasoby

Jak obliczyć odległość od Manhattanu w R
Jak obliczyć odległość Minkowskiego w R
Jak obliczyć odległość Hamminga w R
Jak obliczyć odległość Mahalanobisa w R
Jak obliczyć odległość Levenshteina w R