r - 欧几里得距离的交互式可视化与 R

Question

我想知道是否有任何方法可以以交互方式可视化与 R 的欧几里德距离的过程。简而言之，使用允许交互式可视化的包重新创建下面的图。我已经习惯ggplotly()了 p1，但结果在图例中存在问题，并且与fviz_cluster()绘图相比悬停了文本信息。

#required libraries
library(tidyverse)  # data manipulation
library(cluster)    # clustering algorithms
library(factoextra) # clustering algorithms & visualization
library(plotly)

df <- USArrests
df <- na.omit(df)

df <- scale(df)
distance <- get_dist(df)

k2 <- kmeans(df, centers = 2, nstart = 25)
df %>%
  as_tibble() %>%
  mutate(cluster = k2$cluster,
         state = row.names(USArrests))

p1 <- fviz_cluster(k2, geom = "point", data = df) + ggtitle("k = 2")

标签： reuclidean-distance