R Shiny：使用ggplot2刷子功能的奇怪行为

Question

请运行示例代码。

当我在散点图中选择点时，这些选定的点将从图表中删除。除了当我选择靠近图表角落的一些点时，这些点将在快速双重自我更新后返回。

对于居住在图表中间部分的点数，它运作正常。

如何解释这种奇怪的行为？

library(ggplot2)
library(shiny)

server <- function(input, output) {

  vals = reactiveValues(keeprows = TRUE)

  observeEvent(input$brush_1,{
    cat("---------------\n")
    print("brush_1")
    Res = brushedPoints(mtcars,brush = input$brush_1,allRows = TRUE)
    vals$keeprows = !Res$selected_    
  })

  observeEvent(input$brush_2,{
    cat("---------------\n")
    print("brush_2")
    Res = brushedPoints(mtcars,brush = input$brush_2,allRows = TRUE)
    vals$keeprows = !Res$selected_    
  })

  D = reactive({
    print("D")
    mtcars[vals$keeprows,]
  })

  output$p1 = renderPlot({
    print("plot_1")
    X = D()
    ggplot(X,aes(x=mpg,y=cyl))+geom_point()
  })
  output$p2 = renderPlot({
    print("plot_2")

    ggplot(D(),aes(x=mpg,y=wt))+geom_point()
  })

  output$L = renderPrint({
    Res = brushedPoints(mtcars,brush = input$brush_1,allRows = TRUE)
    Res
  })
}


ui <- fluidPage(
  splitLayout(plotOutput("p1",brush = "brush_1"),plotOutput("p2",brush = "brush_2"))
              ,
  verbatimTextOutput("L")
)


shinyApp(ui = ui, server = server)

似乎brush_1事件被触发两次，当选择了这些奇怪点时，情节会重置。

Answer 1

当您取消选择绘图边界处的点时会出现问题，因为它会重新绘制以适合整个空间，这会取消刷子...

您可以在绘图上设置修正限制以防止它：

ggplot(X,aes(x=mpg,y=cyl))+
geom_point()+
scale_x_continuous(limits=c(min(mtcars$mpg),max(mtcars$mpg)))+
scale_y_continuous(limits=c(min(mtcars$cyl),max(mtcars$cyl)))