如何让ggplot2 barplot中的条形图交互闪亮？

Question

我正在闪亮的应用程序中绘制ggplot2中的条形图。

我想要的是当鼠标悬停在其中一个条形图上时，条形图会突出显示（可能是通过更强的轮廓），当我单击（或双击）条形图时，相应的x值可用于用作textOutput的输入。

我试图在闪亮的文档中找到示例，但它主要是关于从指针位置返回x，y值。有没有一个例子可以作为起点？

Answer 1

我有同样的问题，找到了这篇文章。我意识到这个问题已经很老了，但是也许有人仍然对解决方案感兴趣。

挑战：

您面临的问题是ggplot将被渲染为图像：

因此，您没有可以监听的单独html元素。

解决方案：

但是ggplots中有一个有趣的功能。如果将点击侦听器添加到绘图，则click事件的$x变量将缩放为图片中元素的数量。因此，如果您添加onlick侦听器，则round($click$x)将等于被单击的元素。

在此处查看示例： https://shiny.rstudio.com/articles/plot-interaction-advanced.html

可复制的示例：

我用文本框和突出显示实现了一个解决方案，突出显示部分来自Highlight a single "bar" in ggplot。

解决方案如下：

样本数据：

letters <- data.frame(
  word = c("First", "Second", "Third"),
  num = c(2, 3, 4),
  stringsAsFactors = FALSE
)

应用程序：

library(shiny)
library(ggplot2)

ui <- fluidPage(
  fluidRow(
    column(6,
           plotOutput("plot1", click = "plot1_click")
    ),
    column(5,
           uiOutput("text")
    )
  )
)

server <- function(input, output) {
  global <- reactiveValues(toHighlight = rep(FALSE, length(letters$word)), 
    selectedBar = NULL)

  observeEvent(eventExpr = input$plot1_click, {
    global$selectedBar <- letters$word[round(input$plot1_click$x)]
    global$toHighlight <- letters$word %in% global$selectedBar
  })

  output$plot1 <- renderPlot({
    ggplot(data = letters, aes(x = word, y = num, fill = ifelse(global$toHighlight, 
      yes = "yes", no = "no"))) +
      geom_bar(stat="identity") +
      scale_fill_manual(values = c("yes" = "blue", "no" = "grey" ), guide = FALSE )
  })

  output$text <- renderUI({
    req(global$selectedBar)
    textInput(inputId = "label", label = "selected text:", value = global$selectedBar)
  })
}
shinyApp(ui, server)