r - R plotly - 重叠点和标签

Question

我有一个 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 中显示的情节？谢谢

标签： rggplot2shinyplotlyggrepel