R 有没有办法在堵塞的ggplot中挑出数据点？

这是fviz_聚类函数生成的ggplot。问题是，我想挑出一些数据点，甚至一个数据点，并按名称对其进行标记。我可以很容易地辨认出边缘上的数据点，但是那些在中间的人会发生什么。我想通过标记每个数据点然后放大来实现这一点，但绘图不是交互式的，我找不到一种方法来实现这一点。任何关于如何实现这一点的想法都将不胜感激

这是我的密码：

r=as.data.frame(colnames(df))

remov=c(1,2,5,7,11,14,16,21,23,24,25,26,89,29:54)

df=df[,-remov]

rem=c(2,3,6,7,8,9,12,13,14,15,16)
rownam=as.data.frame(unique(df$Name))
k=df[,-rem]
k= k[!duplicated(df$Name),]
k <- data.frame(k[,-1], row.names = k[,1])

k=na.omit(k)

kme=kmeans(k,centers = 6,nstart = 25)

str(kme)


fviz_cluster(kme, data = k,geom="point")

r=as.data.frame（colnames（df））
remov=c（1,2,5,7,11,14,16,21,23,24,25,26,89,29:54）
df=df[，-remov]
rem=c（2,3,6,7,8,9,12,13,14,15,16）
rownam=as.data.frame（唯一（df$Name））
k=df[，-rem]
k=k[！重复（df$Name），]
k如果您想要一个简单的解决方案，使图形具有交互性，请使用ggplotly（）函数

以绘图方式安装：

install.packages("plotly")
library(plotly)

plot <- fviz_cluster(kme, data = k,geom="point")

plot %>% ggplotly()

# or

ggplotly(plot)


install.packages（“plotly”）
图书馆（绘本）
绘图%ggplotly（）
#或
ggplotly（绘图）
感谢您的回答，我尝试了此操作，但出现以下错误：错误：无法将
ggplotly（）
添加到ggplot对象。fviz_集群是一个ggplot，但我似乎无法以任何方式与它交互。我给了你Worn语法和它的plot%>%ggplotly（）不是plot+ggplotly（）。哦，是的，我已经尝试过ggplotly（plot）。我可以运行命令而不会出错，但是我没有得到绘图。查看器选项卡显示在右下角，但为空。这可能是因为数据集的大小吗？您是否在较小的绘图上尝试该函数以查看它是否有效？也许你的数字边距真的太大了，那么你可以尝试将它导出到浏览器。是的，它可以在较小的绘图上工作。谢谢你的帮助！