2

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

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

这个想法是将它们连接在一起。其中一个中的刷点将突出显示另一个箱形图中的点和点。

现在，在一个箱形图中选择点似乎不能正常工作。

并且箱线图与facet_grideven 本身不起作用。

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。

谢谢。

4

0 回答 0