手动设置hoverinfo文本

Question

我有一个下面的数据框，我可以对其进行适当的处​​理，以便使用以下命令创建聚类散点图：

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)
    x=4
k2 <- kmeans(df, centers = x, nstart = 25)
df %>%
  as_tibble() %>%
  mutate(cluster = k2$cluster,
         state = row.names(USArrests))

p2<-fviz_cluster(k2, data = df, geom="point")

p3 <- ggplotly(p2)
for (i in 1:x) {
  p3[["x"]][["data"]][[i]][["name"]] <- i
}
p3
p3%>%add_trace(
         text = rownames(df),
         hoverinfo = 'text')

当我使用ggplotly()时，集群名称会显示两次，除此之外，我还想显示数据集的行名（状态）。 Hoverinfo文本和图例名称以相同的逻辑更改吗？我不这么认为。