geom_text_repel() yet to be implemented in plotly

I would like plotly to support ggrepel::geom_text_repel.
I prepare the following shiny that works with plotOutput but not with plotlyOutput :

library(shiny)
library(plotly)
library(ggplot2)
library(ggrepel)
library(bslib)

ui <- page_sidebar(
  title = "Hello Shiny!",
  sidebar = sidebar(
    selectizeInput(
      inputId = "Test",
      label = "Tests to show",
      choices = paste("Test",1:272),
      multiple = TRUE
    )
  ),
  plotlyOutput(outputId = "distPlot")
)

server <- function(input, output) {
  
output$distPlot <- renderPlotly({
    
  x<-faithful
  x$test<-paste("Test",1:272)
  
  ggplot(x,aes(x=eruptions,y=waiting))+
    geom_point()+
    geom_text_repel(data = x[match(input$Test,x$test),],
                    aes(label = test),
                    color="blue")
    
  })
  
}

shinyApp(ui = ui, server = server)

Marjorie Leduc
Add a comment

首先使用 renderPlotly、plotlyOutput 和 geom_text_repel 重现提供的 Shiny 示例，然后将其与可正常工作的 plotOutput 版本进行比较。跟踪 plotly 如何处理 ggplot2 图层，并确定缺少 ggrepel 支持的入口点。完成标准是：示例能够通过 plotlyOutput 渲染出经过避让的标签，同时不破坏现有的 plotly 行为。