Перекрывающиеся пузырьковые графики с использованием Plotly в R

#r #r-plotly

Вопрос:

Я использую библиотеку Plotly для создания пузырькового графика, но пузырьки на графике перекрываются. Я также попробовал переменную size_max, но ничего не изменилось. Вот код, который я использую

 font_size <- list(size = 16)

library(ggplot2)
ggplot(areawithcontribution, aes(x= AreaofFocus, y= ResearchType))   geom_point()

#BUBBLEPLOT
library(plotly)
fig <- plot_ly(areawithcontribution, x=~AreaofFocus, y=~ResearchType, text=~Count, type='scatter', mode = 'marker', marker=list(size=~Count, color = "rgb(195, 195, 195)",  line = list(color = "rgb(20, 20, 20)",  opacity=0.5)))
fig <- fig %>% add_text(textposition = "middle center", textfont = font_size)
fig <- fig %>% layout(xaxis = list(showgrid = TRUE), yaxis = list(showgrid = TRUE), showlegend = FALSE)
fig