与ggplotly中的套索交互地选择点？

Question

我有一个带点的ggplot。我想根据它们的位置将这些点归为一组，但我想使用“套索”工具以交互方式进行操作。

我不知道如何保存我所关联的组中的信息。我基本上想在df中为“组”添加一列，然后选择带有套索的组1，带有套索的组2，等等。

我已经弄清楚了如何绘制它和套索点，但是我想说

df $ group [df ____套索选择___] <-1

我认为一定有办法。

 set.seed(1)
 df <- data.frame(matrix(nrow=300,ncol=3))
 colnames(df) <- c("X","Y","Group")
 df[,1:2] <- runif(600,0,200)

 library(ggplot2)
 library(plotly)

 p <- ggplot(df,aes(x=X,y=Y))+
   geom_point()
 ggplotly(p)