R-ggplot：獲取點擊圖的ID

Question

Plotly具有event_data函數，該函數將響應對圖形點的單擊。 但是，您必須為event_data指定一個“源”，以標識要觀看的劇情。

ggplot中是否也提供這種功能。 如果否，那么我們如何找到單擊的圖的ID。

注意：我將wordcloud稱為圖，並且這些圖是動態生成的。

Answer 1

這是一個最小的示例，用於檢查單擊了哪個圖。 每當發生點擊事件時，反應值selected_plot都會更新。

library(shiny)

ui = fluidPage(
  verbatimTextOutput("text"),
  plotOutput("plot1", click = "plot1_click"),
  plotOutput("plot2", click = "plot2_click")
)

server = function(input, output, session){
  output$plot1 = renderPlot({
    hist(rnorm(1000))
  })
  output$plot2 = renderPlot({
    plot(cumsum(rnorm(1000)))
  })

  selected_plot = reactiveVal()
  observeEvent(input$plot1_click, {selected_plot(1)})
  observeEvent(input$plot2_click, {selected_plot(2)})

  output$text = renderPrint({
    cat("selected plot:", selected_plot())
  })
}

shinyApp(ui, server)

請注意，您還可以指定click在使用服務器端選項outputArgs的說法renderPlot 。

Answer 2

ggplot圖並使用event_data()函數后，可以將其轉換為plotly -Graph來調用ggplotly(<yourplot>) ：

library(plotly)

set.seed(100)
d <- diamonds[sample(nrow(diamonds), 1000), ]    
p <- ggplot(data = d, aes(x = carat, y = price)) + geom_point()
ggplotly(p)

Answer 3

沒有任何例子很難解釋。 但是，由於使用ggiraph軟件包，在使用Shiny ，您可以將geom_point更改為geom_point_interactive ，然后再使用以下代碼：

selected_dot <- reactive({
  input$plot_selected
})

希望能有所幫助