Как исправить ошибку hoverinfo в моем блестящем приложении?

Question

Я разработал блестящее приложение, использующее ggplot2, и плотно, однако, текст при наведении не отображался правильно для двух горизонтальных линий, которые я добавил как верхний и нижний пределы.Я хочу скрыть текст при наведении на эти две строки.Кто-нибудь знает, как этого добиться?？

Я нашел одно решение, но оно не сработало для блестящего
Отключить информацию при наведении курсора для определенного слоя (geom) на графике

  library(shiny)
    shinyServer(

     function(input,output,session){
       reactivelab <- reactive({
           gg <-labn %>% filter(PARCAT2  == input$Group & LBTEST == 
                 input$Par & SUBJID == input$ID) })    

 output$labpot <- renderPlotly({
     req(nrow(reactivelab()) > 0)
     q <- ggplot(data=reactivelab(),aes(x=ADY, y=AVAL))+
        geom_point()+geom_line()+
        geom_hline(aes(yintercept=ANRLO),linetype="longdash")+
        geom_hline(aes(yintercept=ANRHI),linetype="longdash")+
        ylab("Lab Standard Value") + xlab("Lab Test Day") 
        mm <- style(q,  text =  paste("Lab Parameter:", reactivelab()$PARAM,
                                "<br>Lab Test Day:", reactivelab()$ADY,
                                "<br>Lab Standard Value:", reactivelab()$AVAL,
                                "<br>Normal Range Upper Limit:", reactivelab()$ANRHI,
                                "<br>Normal Range Lower Limit:", reactivelab()$ANRLO

  ), hoverinfo = "text")})

 })

Answer 1

Вместо использования style вы можете передать эстетику text функции aes ggplot:

ggplot(data=reactivelab(), 
       aes(x=ADY, y=AVAL, 
           text = paste("Lab Parameter:", PARAM,
                        "<br>Lab Test Day:", ADY,
                        "<br>Lab Standard Value:", AVAL,
                        "<br>Normal Range Upper Limit:", ANRHI,
                        "<br>Normal Range Lower Limit:", ANRLO)))