The app demonstrates how to fetch group info information from `plot_click` attribute and use it to subset a `dataTableOutput`.

shiny-select-group-from-plot

library(shiny)
library(ggplot2)
library(DT)

### The app demonstrates how to fetch group info information from `plot_click` attribute and use it to subset a `dataTableOutput`.
### redoing the SO answer from https://stackoverflow.com/a/38919892/6327771 (example 2)


ui <- fluidPage(
  #  selectInput("var_y", "Y-Axis", choices = names(iris)),
  plotOutput("distPlot", dblclick = "plot_click"),
  uiOutput("dynamic"),
  dataTableOutput('table')
  )
  


server <- function(input, output) {
  
  output$table <- renderDataTable({
    req(input$plot_click)
    y <- nearPoints(iris, input$plot_click)['Species']
    iris %>% 
      filter(Species == y$Species)
    
  })
  
  output$distPlot <- renderPlot({
    ggplot(iris, aes(Sepal.Width, Petal.Length, group = Species, color = Species)) + 
      geom_point()
  })
  
  output$dynamic <- renderUI({
    req(input$plot_click) 
    verbatimTextOutput("vals")
  })
  
  output$vals <- renderPrint({
    y <- nearPoints(iris, input$plot_click)['Species']
    req(nrow(y) != 0)
    y
  })
  
}
shinyApp(ui = ui, server = server)