r - 显示模态 onclick 条形图

Question

当我点击绘图的条形图时，我想要一个弹出窗口。

library(shiny)
library(shinymaterial)
df1 <- data.frame(x = 1:10, y = 1:10)
df2 <- data.frame(x = c(rep('a', 10), rep('b', 10)),
y = c(rnorm(10), rnorm(10, 3, 1)))
ui <- material_page(title = "Material Design",
  tags$br(),
  font_color = "cyan darken-5",
  nav_bar_color = "cyan darken-5",
  plotlyOutput('scatter')
)
server <- function(input, output) {
  output$scatter <- renderPlotly({
    plot_ly(df1, x = df1$x, y = df1$y, type = 'bar', source = 'scatter')
  })
}
shinyApp(ui = ui, server = server)

我突然意识到我需要帮助；我想要点击时弹出窗口 条形图上显示相应的内容。 请帮助我。

Answer 1

您可以使用观察者和散点图中的 event_data 来完成此任务。下面是工作示例，希望对您有所帮助!

library(shiny)
library(plotly)
df1 <- data.frame(x = 1:10, y = 1:10)
df2 <- data.frame(x = c(rep('a', 10), rep('b', 10)),
                  y = c(rnorm(10), rnorm(10, 3, 1)))
ui <- fluidPage(
                    plotlyOutput('scatter')
)
server <- function(input, output) {
  output$scatter <- renderPlotly({
    plot_ly(df1, x = df1$x, y = df1$y, type = 'bar', source = 'scatter')
  })

  observeEvent(event_data("plotly_click", source = "scatter"),
               {
                 event_data = event_data("plotly_click", source = "scatter")
                 showModal(modalDialog(
                   title = "Important message",
                   paste0('x: ', event_data$x, ', y: ', event_data$y)
                 ))
               }
               )
}
shinyApp(ui = ui, server = server)