Блестящее приложение не реагирует на нажатия точек в R

Question

Уже несколько дней я пытаюсь заставить мое приложение Shiny работать так, чтобы при перемещении мыши к определенным точкам графика они отображались в таблице, но, к сожалению, это не работало. Я не уверен, что я делаю неправильно, вы можете мне помочь?

border <- таблица $ A <0,03 </p>

ui <- liquidPage (mainPanel (plotOutput ("Plot", click =) "plot_click"), tableOutput ("HitSpots") <br>))

server <- функция (вход, выход) {</p>

output$Plot <- renderPlot({ 
    ggplot(table,aes(x=table$A, y=table$B), colour=border)) +
        geom_point() 
})

hit <- реактивный ({nearPoints (таблица , введите $ plot_click.))

Answer 1

Есть некоторые проблемы с вашими скобками. Но главная проблема в том, что вы делаете ggplot(table, aes(x=table$A, y=table$B)), а затем nearpoints ищет столбцы с именами table$A и table$B. Сделайте ggplot(table, aes(x=A, y=B)) вместо этого.

library(shiny)
library(ggplot2)

table <- data.frame(
  A = c(1,2,3),
  B = c(3,2,1)
)

ui <- fluidPage(
  mainPanel(
    plotOutput("Plot", click="plot_click"), 
    tableOutput("HitSpots")
  )
)

server <- function(input, output){

  output$Plot <- renderPlot({ 
    ggplot(table, aes(x=A, y=B)) + geom_point() 
  })

  hit <- reactive({ nearPoints(table, input$plot_click) })

  output$HitSpots <- renderTable({
    hit()
  })

}

shinyApp(ui = ui, server = server)