将事件数据信息映射到Shiny无效图中的绘图信息

1 回答

• 1

  curveNumber 是 colour = factor(vs) 变量， pointNumber 是组内的行号1（vs的0或1） .

  所以使用这两个你可以做到以下几点：

  library(plotly)
  library(shiny)
  library(dplyr)
  ui <- fluidPage(
    plotlyOutput("plot"),
    verbatimTextOutput("click")
  )
  server <- function(input, output, session) {
    output$plot <- renderPlotly({
      key <- row.names(mtcars)
      p <- ggplot(mtcars, aes(x = mpg, y = wt, colour = factor(vs), key = key)) + 
        geom_point()
      ggplotly(p) %>% layout(dragmode = "select")
    })
    output$click <- renderPrint({
      d <- event_data("plotly_click")
      if (is.null(d)) "Click events appear here (double-click to clear)" else mtcars %>% tibble::rownames_to_column() %>% filter(vs==d$curveNumber) %>% filter(row_number()==d$pointNumber+1)
  
    })
  }
  shinyApp(ui, server)
  

  或者，第二个选项，您需要从 event_data 和子集mtcars中提取 key ，如下所示：

  output$click <- renderPrint({
      d <- event_data("plotly_click")
      if (is.null(d)) "Click events appear here (double-click to clear)" 
      else mtcars[rownames(mtcars) == d$key,]
    })
  

  完整的应用程序：

  library(plotly)
  library(shiny)
  ui <- fluidPage(
    plotlyOutput("plot"),
    verbatimTextOutput("click")
  )
  server <- function(input, output, session) {
    output$plot <- renderPlotly({
      key <- row.names(mtcars)
      p <- ggplot(mtcars, aes(x = mpg, y = wt, colour = factor(vs), key = key)) + 
        geom_point()
      ggplotly(p) %>% layout(dragmode = "select")
    })
    output$click <- renderPrint({
      d <- event_data("plotly_click")
      if (is.null(d)) "Click events appear here (double-click to clear)" else mtcars[rownames(mtcars) == d$key,]
    })
  }
  shinyApp(ui, server)
  

  回复于 2024-05-03T09:59:10+08:00