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

Commencez par reproduire l’exemple Shiny fourni avec renderPlotly, plotlyOutput et geom_text_repel, puis comparez-le à la version fonctionnelle utilisant plotOutput. Suivez la manière dont plotly gère les couches ggplot2 et identifiez le point d’entrée où la prise en charge de ggrepel fait défaut. Le travail est considéré comme terminé lorsque l’exemple affiche les étiquettes éloignées via plotlyOutput sans perturber le comportement existant de plotly.