Hover在ggplot中不起作用，在一个闪亮的应用程序上有facet

Question

我从here中获取了一个示例，该示例显示ggplot上带有构面的绘图功能，并将其更改为查看悬停行为。悬停的任何原因都不适用于方面？

library(shiny)
library(ggplot2)

runApp(shinyApp(
  ui <- basicPage(
    plotOutput("plot1", hover = "plot_hover", height = 250),
    verbatimTextOutput("info")
  ),
  server = function(input, output) {
    output$plot1 <- renderPlot({
      ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
        facet_grid(. ~ cyl) +
        theme_bw()
    })
    output$info <- renderPrint({
      input$plot_hover
    })
  }
))