Info-bulle lorsque vous mouseover un ggplot sur brillant

Je suis la construction d'une brillante application.

Je suis traçage de graphiques à l'aide de ggplot.

Quand j'ai passer la souris sur le points sur le graphique, je veux une info-bulle indiquant l'une des colonnes dans le bloc de données (personnalisable info-bulle)

Pouvez-vous s'il vous plaît suggérer la meilleure façon d'avancer.

Application Simple:

# ui.R

shinyUI(fluidPage(
 sidebarLayout(
    sidebarPanel(
        h4("TEst PLot")),
    mainPanel(
        plotOutput("plot1")
    )
)
))

# server.R

library(ggplot2)
data(mtcars)

shinyServer(
function(input, output) {
    output$plot1 <- renderPlot({
        p <- ggplot(data=mtcars,aes(x=mpg,y=disp,color=factor(cyl)))
        p <- p + geom_point()
        print(p)
    })
}
)

Quand je souris sur les points, je veux qu'elle affiche mtcars$wt

  • Regarder dans Rcharts: stackoverflow.com/questions/17524227/... ou GooglveVis:cran.r-project.org/web/packages/googleVis/vignettes/...
  • Merci. Je dois utiliser les deux. Mais je veux l'utiliser ggplot pour le traçage. Et l'utiliser à son plein de souplesse. Tout ce que je besoin est un outil de pointe.
  • animint est un package R qui convertit ggplot2 au format SVG. Voici un exemple d'intégration de ggplot2/animint parcelles de shiny -- cpsievert.shinyapps.io/animintShiny Pour ajouter une info-bulle, vous auriez mis tooltip=wt à l'intérieur de aes()
  • Une autre option serait d'utiliser le gridSVG paquet de convertir au format SVG vous-même, puis ajouter une info-bulle avec le SVGAnnotation paquet.
  • Je vous remercie beaucoup.
  • La nouvelle shinyBS emballage peut être très utile pour ce besoin spécifique: ebailey78.github.io/shinyBS/docs/.... Il ajoute bootstrap fonctionnalités brillantes et les info-bulles sont une partie d'entre eux.
  • avez-vous été en mesure de résoudre ce problème? J'aimerais code qui répond à cette question

InformationsquelleAutor guna | 2015-01-15
  1. 17

    Si je comprends correctement à la question, ce qui peut être réalisé avec la récente mise à jour de la brillante forfait pour les ggplot2 et le forfait de base. À l'aide de cet exemple de Winston Chang et Joe Cheng http://shiny.rstudio.com/gallery/plot-interaction-basic.html , j'ai été en mesure de résoudre ce problème. Passez la souris est maintenant un argument d'entrée en plotOutput() de sorte qu'il est ajouté à l'interface utilisateur avec un verbatimTextOutput pour afficher mtcars$wt pour le point planait au-dessus.

    Dans le serveur j'ai simplement procéder à distance à un vecteur qui calcule la distance de la souris à n'importe quel point dans l'intrigue et si cette distance est inférieure à 3 (fonctionne dans cette application) puis il montre mtcars$wt pour le point le plus proche de votre souris. Pour être clair d'entrée de$plot_hover renvoie une liste d'info à propos de l'emplacement de la souris et seulement x et y éléments sont extraits à partir d'une entrée$plot_hover dans cet exemple. 

    library(ggplot2)
library(Cairo)   # For nicer ggplot2 output when deployed on Linux

ui <- fluidPage(
    fluidRow(
        column(width = 12,
               plotOutput("plot1", height = 350,hover = hoverOpts(id ="plot_hover"))
        )
    ),
    fluidRow(
        column(width = 5,
               verbatimTextOutput("hover_info")
        )
    )
)

server <- function(input, output) {


    output$plot1 <- renderPlot({

        ggplot(mtcars, aes(x=mpg,y=disp,color=factor(cyl))) + geom_point()

    })

    output$hover_info <- renderPrint({
        if(!is.null(input$plot_hover)){
            hover=input$plot_hover
            dist=sqrt((hover$x-mtcars$mpg)^2+(hover$y-mtcars$disp)^2)
            cat("Weight (lb/1000)\n")
            if(min(dist) < 3)
                mtcars$wt[which.min(dist)]
        }


    })
}
shinyApp(ui, server)

    J'espère que cela aide!

    • Veri Cool @Solvi. Merci!!!!
    InformationsquelleAutor Sölvi
  2. 12

    Vous pouvez également utiliser un peu de JQuery et à la condition que renderUI pour afficher une info-bulle personnalisée à proximité du pointeur.

    library(shiny)
library(ggplot2)

ui <- fluidPage(

  tags$head(tags$style('
     #my_tooltip {
      position: absolute;
      width: 300px;
      z-index: 100;
     }
  ')),
  tags$script('
    $(document).ready(function(){
      //id of the plot
      $("#plot1").mousemove(function(e){ 

        //ID of uiOutput
        $("#my_tooltip").show();         
        $("#my_tooltip").css({             
          top: (e.pageY + 5) + "px",             
          left: (e.pageX + 5) + "px"         
        });     
      });     
    });
  '),

  selectInput("var_y", "Y-Axis", choices = names(mtcars), selected = "disp"),
  plotOutput("plot1", hover = hoverOpts(id = "plot_hover", delay = 0)),
  uiOutput("my_tooltip")
)

server <- function(input, output) {

  data <- reactive({
    mtcars
  })

  output$plot1 <- renderPlot({
    req(input$var_y)
    ggplot(data(), aes_string("mpg", input$var_y)) + 
      geom_point(aes(color = factor(cyl)))
  })

  output$my_tooltip <- renderUI({
    hover <- input$plot_hover 
    y <- nearPoints(data(), input$plot_hover)[ ,c("mpg", input$var_y)]
    req(nrow(y) != 0)
    verbatimTextOutput("vals")
  })

  output$vals <- renderPrint({
    hover <- input$plot_hover 
    y <- nearPoints(data(), input$plot_hover)[ , c("mpg", input$var_y)]
    # y <- nearPoints(data(), input$plot_hover)["wt"]
    req(nrow(y) != 0)
    # y is a data frame and you can freely edit content of the tooltip 
    # with "paste" function 
    y
  })
}
shinyApp(ui = ui, server = server)

    ÉDITÉ:

    Après ce post j'ai cherché sur internet pour voir si il pourrait être fait plus en douceur et trouvé cette merveilleux info-bulle personnalisée pour ggplot. Je crois qu'il ne peut guère faire mieux que ça.

    • Super trouvaille! Le lien dans votre édition est la meilleure solution que j'ai vu pour cette. Une chose à garder à l'esprit que Pawel ne pas mentionner, c'est que si vous mettez à l'échelle un axe à l'autre de votre graphique, vous devrez appliquer une transformation similaire à votre hover$x et/ou sensitif$y des variables avant de les utiliser.
    InformationsquelleAutor Michal Majka
  3. 2

    À l'aide de plotly, vous pouvez traduire votre ggplot dans une version interactive de lui-même. Il suffit d'appeler la fonction ggplotly sur votre ggplot objet:

    library(plotly)

data(mtcars)

shinyApp(
ui <- shinyUI(fluidPage(
  sidebarLayout(sidebarPanel( h4("Test Plot")),
    mainPanel(plotlyOutput("plot1"))
  )
)),

server <- shinyServer(
  function(input, output) {
    output$plot1 <- renderPlotly({
      p <- ggplot(data=mtcars,aes(x=mpg,y=disp,color=factor(cyl)))
      p <- p + geom_point()

      ggplotly(p)
    })
  }
))

shinyApp(ui, server)

    Pour les personnalisations de ce qui est affiché dans l'info-bulle, regardez par exemple ici.

    Info-bulle lorsque vous mouseover un ggplot sur brillant

    InformationsquelleAutor shosaco
  4. 0

    J'ai publié, en collaboration avec mon collègue, un paquet appelé GGTips (il n'est pas sur l'CRAN) qui ne font juste que, l'ajout d'info-bulles sur les parcelles. Nous avons créé notre propre solution parce que nous avons de la difficulté à recréer nos parcelles complexes à l'aide de plotly ce n'est pas 100% compatible avec ggplot2. Repo Git avoir un lien vers la démo en ligne.

    Info-bulle lorsque vous mouseover un ggplot sur brillant

    InformationsquelleAutor jcubic