带R的交互式闪亮应用程序 - 将鼠标悬停在点上并显示信息

Question

我在R工作创建一个闪亮的应用程序。

以下是我正在使用的示例数据：

data <- data.frame("name" = c("A", "A", "B", "B", "C", "C"),
                   "code_name" = c("A1", "A2", "B1", "B2", "C1", "C2"),
                   "x" = c(.13, .64, .82, .39, .51, .03),
                   "y" = c(.62, .94, .10, .24, .20, .84))

我正在尝试使用一个闪亮的应用程序，允许用户从列name中选择一个选项，显示x和y值的散点图，并在您将鼠标悬停在附近时打印图表下的code_name列中的值某一点。

这是ui的代码：

library(ggplot2)
library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "x",
                  label = "Choose a Letter:",
                  choices = levels(data$name),
                  selected = "A")
    ),
    mainPanel(
      plotOutput(outputId = "scatterplot",
                 hover = hoverOpts(id ="plot_hover")),
      verbatimTextOutput("hover_info")
    )
  )
)

这是server的代码：

server <- function(input, output) {
  output$scatterplot <- renderPlot({
    data %>%
      filter(name == input$x) %>%
      ggplot(aes(x, y)) +
      geom_point() +
      xlim(c(0, 1)) +
      ylim(c(0, 1))
    })

  output$hover_info <- renderPrint({
    if(!is.null(input$plot_hover)){
      hover = input$plot_hover
      dist = sqrt((hover$x-data$x)^2 + (hover$y-data$y)^2)
      cat("Name
")
      if(min(dist) < 3)
        data$code_name[which.min(dist)]
    }
  })
}

然后，当然：

shinyApp(ui, server)

第一个输出对象output$scatterplot可以按需运行。它是x和y值的散点图，其中data$name是来自input$x的选定值。

问题出在第二个对象output$hover_info上。我想要的是renderPrint的文本框结果，只打印code_name用于data$name == input$x的观察。现在的方式，如果我从下拉菜单中选择“A”，并将鼠标悬停在其中一个绘图点上，它会正确地在该图下方打印该点的code_name。但是，如果我将鼠标悬停在两个点附近的随机点上，它将获取其他一个name选项点的位置，并显示该观测值的code_name。

例如，如果您按原样运行代码（其中name == "A"是下拉列表中的默认选项），并将鼠标悬停在坐标x = 0.5，y = 0.5附近，它将在图表下方打印B2。我想避免这种情况。这里并不是什么大问题，每个名称选择只有2个数据点，但是当使用相同的框架和更大的数据集时，它会变得非常混乱。

我一直试图在filter对象中包含某种类型的output$hover_info调用，以便它只考虑通过下拉菜单定义的观察，但每次尝试时都会出错。

有任何想法吗？谢谢！