R带有facet_grid的闪亮画笔不会选择正确的点

Question

请先在此处运行可重现的代码。

这是创建的两个箱形图。上面的很简单。底部是带有facet_grid的箱形图。

想法是将它们联系在一起。其中一个中的刷点将突出显示其他方框图中的点和点。

现在，在一个方框图中选择点似乎运作不佳。

带facet_grid的方框图甚至不适用于自己。

library(shiny)
library(ggplot2)


server <- function(input, session, output) {

  mtcars$cyl = as.character(mtcars$cyl)
  mtcars$gear = as.character(mtcars$gear)

  vals <- reactiveValues( keeprows = FALSE)

  observeEvent(input$brush_1,{
    Res=brushedPoints(mtcars,input$brush_1,allRows = TRUE)
    vals$keeprows = Res$selected_
  })
  observeEvent(input$brush_2,{
    Res=brushedPoints(mtcars,input$brush_2,allRows = TRUE)
    vals$keeprows = Res$selected_
  })


  output$table1 = renderPrint({
    brushedPoints(mtcars,input$brush_1,allRows = TRUE)
  })

  output$table2 = renderPrint({
    brushedPoints(mtcars,input$brush_2,allRows = TRUE)
  })

  output$plot_1 = renderPlot({
    set.seed(123)
    ggplot(mtcars,aes(x=cyl,y=mpg)) + 
      geom_boxplot(outlier.shape = NA) + 
      geom_jitter(aes(color=vals$keeprows),width=0.2)+
      scale_color_manual(values = c("black","red"),guide=FALSE)    
  })
  output$plot_2 = renderPlot({
    set.seed(123)
    ggplot(mtcars,aes(x=cyl,y=mpg)) + 

      facet_grid(.~gear)+

      geom_boxplot(outlier.shape = NA) + 
      geom_jitter(aes(color=vals$keeprows),width=0.2)+
      scale_color_manual(values = c("black","red"),guide=FALSE)

  })


}

ui <- fluidPage(

  plotOutput("plot_1",brush = brushOpts("brush_1",resetOnNew = FALSE)),
  plotOutput("plot_2",brush = brushOpts("brush_2",resetOnNew = FALSE)),
  splitLayout(verbatimTextOutput("table1"),verbatimTextOutput("table2"))

)

shinyApp(ui = ui, server = server)

我认为关键问题在于facet_grid功能。

我们如何才能facet_grid使brush正常工作。

感谢。