Subset a dataframe based on plotly click event

Question

I have the data frame below:

Name<-c("John","Bob","Jack")
Number<-c(3,3,5)
NN<-data.frame(Name,Number)

And a simple shiny app which creates a plotly histogram out of it. My goal is to click on a bar of the histogram and display the Name in a datatable that correspond to this bar. For example if I click on the first bar which is 3 I will take a table with John and Bob names.

library(plotly)
library(shiny)
library(DT)

ui <- fluidPage(
  mainPanel(
    plotlyOutput("heat")
  ),
  DT::dataTableOutput('tbl4')
)

server <- function(input, output, session) {
  output$heat <- renderPlotly({
    p <- plot_ly(x = NN$Number, type = "histogram")
  })

  output$tbl4 <- renderDataTable({
    s <- event_data("plotly_click")
    if (length(s) == 0) {
      "Click on a bar in the histogram to see its values"
    } else {
      NN[ which(NN$Number==as.numeric(s[2])), 1]

    }
  })

}

shinyApp(ui, server)

It is easy if you add one more column with count 2,2,1. Bcoz when you click on plot, you will get count from histogram not the actual values. Is it okay for you? — Saurabh Chauhan
– Saurabh Chauhan, Commented Jan 30, 2019 at 15:40
I have added a solution for you. Please let me know your views. — Saurabh Chauhan
– Saurabh Chauhan, Commented Jan 30, 2019 at 15:49

Saurabh Chauhan · Accepted Answer · 2019-01-30 15:54:10Z

2

I am adding the solution by modifying your data.frame as mentioned in the comment:

    library(plotly)
    library(shiny)
    library(DT)

    ui <- fluidPage(
      mainPanel(
        plotlyOutput("heat")
      ),
      DT::dataTableOutput('tbl4')
    )

    server <- function(input, output, session) {
      output$heat <- renderPlotly({
        Name<-c("John","Bob","Jack")
        Number<-c(3,3,5)
        Count<-c(2,2,1)
        NN<-data.frame(Name,Number,Count)
        render_value(NN) # You need function otherwise data.frame NN is not visible
        p <- plot_ly(x = NN$Number, type = "histogram",source="subset") # set source so
                          # that you can get values from source using click_event

      })

      render_value=function(NN){
        output$tbl4 <- renderDataTable({
          s <- event_data("plotly_click",source = "subset")
          print(s)
          return(DT::datatable(NN[NN$Count==s$y,]))           
        })  
      }           
    }

    shinyApp(ui, server)

Screenshot from solution:

edited Jan 30, 2019 at 15:54

answered Jan 30, 2019 at 15:46

Saurabh Chauhan

3,2214 gold badges23 silver badges47 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

firmo23 Over a year ago

I like your solution what if I use s$x instead of s$y and do not add another column?

Saurabh Chauhan Over a year ago

I am not sure because sometimes you get value like 3.5 which doesn't exist in your dataset.

firmo23 Over a year ago

MAYBE YOU COULD CHECK THIS stackoverflow.com/questions/73545778/…

Collectives™ on Stack Overflow

Subset a dataframe based on plotly click event

1 Answer 1

3 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related