Display DT table below when user hovers any data point on the graph

[vinayprakash808]

Hi all,

Can we display a DT table below the plot when the mouse hovers over any data point. Basically the DT table should display only the point where the hovering is happening

library(shiny)
library(plotly)

ui <- fluidPage(
  plotlyOutput("lchart")
)

server <- function(input, output, session) {
  output$lchart <- renderPlotly({
    
    plot_ly(iris) %>% 
      layout(yaxis = list(title = "Total")) %>%
      add_trace(x = ~Sepal.Width, y = ~Petal.Width, type='scatter', yaxis = "y1", color = I("#3090C7"),name = 'Plot') 
})
}

shinyApp(ui, server)

[leungi]

@vinayprakash808, the key is using event_data() of type plotly_hover; these keep track of where the user hovers (returns the data row id), which one may then use on shiny server-side to filter the data for DT display.

Here are 2 useful resources:

• Accessing and responding to Plotly events in Shiny - RStudio
• Graphs generated dynamically on hover (using R, shiny and plotly) – Do You Even Data – We like data.