R 防止打印中的标签重叠

我正在用R中的绘图绘制气泡图。但是当我用添加注释给标签时，标签重叠，很难阅读。如何在中防止这种重叠。我曾尝试过“geom_label_repel”，但它无法使用plotly，因为它会产生错误

我的代码是

plot_ly(bubbleChartData, x = ~Category1, y = ~Category2,  type = 'scatter', mode = 'markers', size = ~BubbleSize,
       color = ~Category3, colors = brewer.pal(8,"Dark2"),
      marker = list( sizemode = 'diameter'), text=~Category4) %>%

add_annotations( showarrow=F,xanchor="right",xref = "x",ax = 20,
                  ay = -40,
                   yref = "y",x = ~Category1, y = ~Category2, text=~Category4,font = list(size = 10))%>%
layout(title = '',font=list(size=10),
       xaxis = list(
         title = "",
         showgrid=FALSE,
         showline=FALSE,
         tickfont = list(
           size = 16,
           color = 'rgb(0,0,0)'),
         titlefont = list(
           size = 18,
           color = 'rgb(0,0,0)')),
       yaxis = list(
         title = "",
         showgrid=FALSE,
         showline=FALSE,
         titlefont = list(
           size = 18,
           color = 'rgb(0,0,0)'),
         tickfont = list(
           size = 16,
           color = 'rgb(0,0,0)')),
       showlegend = F)

---

你能分享一个可复制的例子吗？我想消除标签的重叠。我想这是你的错误：

geom\u geometextrepel（）尚未在plotly中实现，对吗？你可以自己添加一个问题或提出一个广泛的黑客攻击，但这将需要大量的工作是的，我遇到了同样的错误面对同样的问题