Question

我正在构建一个闪亮的应用程序，并且尝试使用singlePoints检测stat_qq图中的点击点。我正在努力使此代码正常工作，但总是会收到错误消息： nearPoints: not able to automatically infer xvar from coordinfo.

我试图在nearPoints函数内部指定xvar和yvar，但是，对于qq-plot我只需要指定一个变量。我指定的任何一个，另一个都会产生错误。

library(shiny)
library(ggplot2)

ui <- fluidPage(
  mainPanel(
    plotOutput("qqplot", click = "qqplot_click"),
    verbatimTextOutput("excl")
  ) 
)

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

  rdata <- data.frame(rnorm(200, 20, 2), rep(TRUE, 200))
  names(rdata) <- c("data","Select")

  output$qqplot <- renderPlot({ggplot(data=rdata, aes(sample=data)) + stat_qq() + stat_qq_line()

  })


  excl.data <- eventReactive(input$qqplot_click, {
    res <- nearPoints(rdata, input$qqplot_click, yvar='data', allRows = TRUE)
    xor(rdata$Select, res$selected_)
  })

  output$excl <- renderPrint(excl.data())

}

shinyApp(ui, server)

有人知道我想念什么吗？

Answer 1

您必须使用ggplot_build来获取渲染的数据。

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

  rdata <- data.frame(rnorm(200, 20, 2), rep(TRUE, 200))
  names(rdata) <- c("data","Select")

  gg <- ggplot(data=rdata, aes(sample=data)) + stat_qq() + stat_qq_line()
  ggdata <- ggplot_build(gg)$data[[1]]

  output$qqplot <- renderPlot({
    gg
  })

  observe({
    print(input$qqplot_click)
  })  

  excl.data <- eventReactive(input$qqplot_click, {
    res <- nearPoints(ggdata, input$qqplot_click, 
                      xvar="theoretical", yvar="sample", allRows = TRUE)
    xor(rdata$Select, res$selected_)
  })

  output$excl <- renderPrint(excl.data())

}

是否可以使用NearPoints从ggplot stat_qq图中读取点？

1 个答案: