以交互方式从 R 中的条形图中检索源数据信息

Question

我在 R 中有一个 barplot 闪亮。我想要关注：

当用户单击该条形图中的一个“条形图”时，将弹出另一个框并显示来自使用的数据框的数据信息，显示哪些数据点有助于创建该“条形图”。

代码：

ui <- fluidPage(
  sidebarLayout(sidebarPanel(),
                mainPanel(plotOutput("p",click = "plot_click"),
                textOutput("info"))))

server <- function(input,output) {
    output$p <- renderPlot(ggplot(mtcars,aes(x=factor(carb),y=mpg))+
                         geom_bar(stat="summary",fun.y="mean"))
    output$info <- renderText(
      paste0("x=", input$plot_click$x, "\n",
           "y=", input$plot_click$y))
}
shinyApp(ui, server)

当我点击一个条时，它会显示 (x,y) 坐标值。但我想检索相应的因子（碳水化合物）。 如果我点击一个栏，如何取回源信息。 理想情况是：当用户单击 carb=4 的条形时，它应该显示 carb=4 的 mtcars 数据集的源信息。但我不知道如何从该条形图中以交互方式获取“carb=4”信息。

Answer 1

经过编辑，更具体地适用于分类 x 轴条形图。

您需要将点击值翻译成您想要的表格。我已将单击中的 x 值四舍五入，以子集 mtcars 数据框：

library(ggplot2)
library(shiny)

ui <- fluidPage(
  sidebarLayout(sidebarPanel(),
                mainPanel(plotOutput("p",click = "plot_click"),
                          textOutput("info"),
                          tableOutput("table"))))

server <- function(input,output) {
  output$p <- renderPlot(ggplot(mtcars,aes(x=factor(carb),y=mpg))+
                           geom_bar(stat="summary",fun.y="mean"))
  output$info <- renderText(
    paste0("x=", input$plot_click$x, "\n",
           "y=", input$plot_click$y))

  output$table <- renderTable({
    ##magic happens here##
    output$table <- renderTable({
     carb <- unique(mtcars$carb)
     carb <- carb[order(carb)]
     x <- carb[round(input$plot_click$x)]
     mtcars[mtcars$carb == x,]
   })

  })
}
shinyApp(ui, server)