Wsrtjtyk

I have the shiny app below which displays a stacked bar chart with five bars. This bar chart is dependent on the FinalDF dataframe. What I would like to do is when I click on -lets say- the 1st bar "TC" to generate a table below with the info only related to "TC" (FinalDF$Name=="TC"). The same logic is needed for all the bars.

library(plotly)



ui <- fluidPage(

  plotlyOutput("plot"),

  dataTableOutput("click")



)



server <- function(input, output) {

  Name<-c("DCH","DCH","DCH","DGI","DGI","DGI","LDP","LDP","LDP","RH","RH","RH","TC","TC","TC")

  Class<-c("Class1","Class2","Overlap","Class1","Class2","Overlap","Class1","Class2","Overlap","Class1","Class2","Overlap","Class1","Class2","Overlap")

  count<-c(2077,1642,460,1971,5708,566,2316,810,221,2124,3601,413,2160,1097,377)

  FinalDF<-data.frame(Name, Class,count)





    output$plot <- renderPlotly({

      # Create the stacked bar plot using ggplot()

      stackedBarPlot<- ggplot(data = FinalDF,key=key) +

        geom_col(mapping = aes(x = Name, y = count, fill = Class,reference="DB"), width = rep(0.9,5),

                 color = "black", position = position_fill(reverse = T)) +

        geom_text(size = 4, position = position_fill(reverse = T, vjust = 0.50), color = "black", 

                  mapping = aes(x = Name, y = count, fill = Class, label = round(count),Reference="DB")) +

        coord_flip() +

        scale_fill_manual(values = c('lemonchiffon', 'palegreen3', 'deepskyblue2'),breaks=c("Class1", "Overlap", "Class2"), labels = c(paste("Unique to","DB"), "Overlap", "Unique to Comparison Dataset "),

                          guide = guide_legend(label.position = 'left', label.hjust = 0, label.vjust = 0.5))





      ggplotly(stackedBarPlot)

    })

    output$click <- renderDataTable({

      d <- event_data("plotly_click")

     if (is.null(d)) "Click events appear here (double-click to clear)" else FinalDF

    })







}



shinyApp(ui, server)