1

如何从 even_data 信息中检索用于绘图的原始数据？

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 d
  })


}

shinyApp(ui, server)

单击某个点时，示例输出类似于

  curveNumber pointNumber    x    y       key
1           1           3 24.4 3.19 Merc 240D

有没有办法将这些信息映射到原始数据集mtcars？curveNumber中的信息pointNumber将如何有用？这些字段的含义是什么？

4

1 回答 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)

或者，第二个选项，您需要像这样提取keyfromevent_data和子集 mtcar：

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)
于 2017-08-19T12:39:06.833 回答