欧氏距离与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")