R和Shiny：当悬停在Shiny上的绘图上时显示ggplot2数据值

Question

我有一个绘图，旁边是一个交互式绘图，当用户在绘图上刷时，它会更新坐标限制。我需要交互式绘图来显示（在图上）悬停时的数据点值（例如“数据属于ID X”。有没有人有这样的问题？我包含了一个可重现的代码块并试图使其完全相关，但你只能专注于输出$ text。非常感谢任何帮助。谢谢

require(shiny)
require(ggplot2)


dat <-data.frame(seq(1,50, 1), seq(0,100,length.out = 50), sapply(seq(0,100,length.out = 50), function(x) x+3*rnorm(1,0,4)))
varlist <- c("ID", "IPRED", "DV")
names(dat) <- varlist

ui <- fluidPage(
  selectInput("y", "Y Variable", choices = varlist, selected = "IPRED" ),
  selectInput("x", "X Variable", choices = varlist, selected = "DV"),
  checkboxInput("dvpred", "Show Unity Line", value = TRUE),
  column(width=6,
         plotOutput("p1",
                    dblclick = "plot1_dblclick",
                    brush = brushOpts(
                      id = "plot1_brush",
                      resetOnNew = TRUE))
  ),
  column(width = 6,
         plotOutput("p12", hover = hoverOpts("p12_hover", delay = 100, delayType = "debounce"))),
  uiOutput("txt")
)

server <- function(input, output){

  pxy <- function(dataset, xvar, yvar, xlim=NULL, ylim=NULL){

    dat = subset(dataset, dat$DV<500)
    vmax <- max(max(dat[[xvar]]),max(dat[[yvar]]))
    vmin <- min(min(dat[[xvar]]),min(dat[[yvar]]))
    p <- ggplot(data = dat) + 
      geom_point(aes_string(x=xvar, y=yvar), size=2,shape=21, fill="blue") +
      labs(x=xvar, y=yvar) + ggtitle(paste0(yvar, " vs ", xvar)) +
      geom_hline(yintercept=0) +
      coord_cartesian(xlim = xlim, ylim = ylim, expand = TRUE)
    if ( input$dvpred)(p <- p  + xlim(vmin, vmax)+ ylim(vmin, vmax) + geom_abline(slope=1) )
    return(p)
  }
  output$p1 <- renderPlot({
    xlength <- length(unique(dat[[input$x]]))
    if (xlength>12){
      return(pxy(dat, input$x, input$y))}
    else 
      return (bxplotxy(dat, input$x, input$y))
  })
  output$txt <- 
    renderPrint({
      if(!is.null(input$p21_hover)){
        hover=input$p21_hover
        dat$dist<-sqrt((hover$x-dat$DV)^2+(hover$y-dat$IPRED)^2)
        if (min(subset(dat, !is.na(dist))$dist)<4)
          cat("This Data Point Belongs to the Patient ID: ", dat$ID[which.min(dat$dist)])
      }


    })
  ranges <- reactiveValues(x = NULL, y = NULL)
  output$p12 <- renderPlot({
    xlength <- length(unique(dat[[input$x]]))
    if (xlength>12){
      return(pxy(dat, input$x, input$y, ranges$x, ranges$y))}
    else 
      return (NULL)
  }) 
  observe({
    brush <- input$plot1_brush
    if (!is.null(brush)) {
      ranges$x <- c(brush$xmin, brush$xmax)
      ranges$y <- c(brush$ymin, brush$ymax)

    } else {
      ranges$x <- NULL
      ranges$y <- NULL
    }
  })

}
shinyApp(ui, server)

Answer 1

我认为你应该使用verbatimTextOutput("txt")和output$txt <- renderPrint({ ... })，而不是uiOutput("txt")。但这会给你一个文本输出的情节，这听起来不像你想要的那样......？

如果希望文本在悬停时出现在光标旁边，则会有一个名为ggiraph：gazxswpoi的ggplot2扩展名。但我不确定它是否与刷牙兼容。

所以我同意李克强提出的使用情节的建议。刷过的信息与ggplot不同，因此您可能会发现此示例很有用：http://davidgohel.github.io/ggiraph/index.html

祝好运！