R plotly - 重叠点和标签

如何解决R plotly - 重叠点和标签

我有一个闪亮的 R 应用程序，在一页上我有一个包含大约 100 个标记的散点图。 我的目标是为每个标记添加一个标签，如下所述https://plotly.com/r/text-and-annotations/ 它有点像，但问题是每个标记的文本大部分时间与其他标记的文本重叠。 经过一些研究，我了解到有像 ggrepel https://ggrepel.slowkow.com/articles/examples.html 这样的软件包可以帮助解决这个问题。 但是，如果我尝试最终将 ggplot 重新转换为 plotly，文本标签就会消失。 我给你举个例子：

df <- data.frame(xvals = rnorm(1:100),yvals = rnorm(1:100),label_var = paste0("label_",as.character(round(rnorm(1:100),3))))
p <- ggplot(df,aes(xvals,yvals,label = label_var)) +  geom_point(color = "red")
p2 <- p + geom_text_repel() + labs(title = "geom_text_repel()") # visualize this plot. it's perfect
p3 <- plotly_build(p2) # visualize Now p3,you see the labels have disappeared

我该怎么做才能在我闪亮的应用程序中可视化 p2 中显示的绘图？ 谢谢