r - 光沢のあるggplotlyからデータの行を取得するにはどうすればよいですか

Question

以下のコード。

イベントを使用して、plotly_click選択されているデータを把握しようとしています。しかし、私はそれを行う方法を理解できません。plotly_click によって提供されるデータは非常に最小限であり、グループ化やグループはまったく含まれていません。私は JS の経験はありませんが、方法があるに違いないことはわかっています。私の目標は、データ ポイントを選択し、data.frame で対応する行を取得できるようにすることです。d1

d1=structure(list(Topic = c("compensation", "manager", "benefits",
                         "family", "communication", "worklifebalance", "perks", "compensation",
                         "benefits", "manager", "communication", "worklifebalance", "family",
                         "perks", "benefits", "compensation", "manager", "communication",
                         "family", "worklifebalance", "perks"),
                  variable = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L),
                                       .Label = c("Prct", "Count"), class = "factor"),
                  value = c(2.23121245555964, 0.723305136692411, 0.576192227534633,
                         0.202280250091946, 0.190020840995464, 0.153242613706019,
                         0.0122594090964816, 0.913705583756345, 0.609137055837563,
                         0.50761421319797, 0.50761421319797, 0.304568527918782, 0.203045685279188,
                         0, 1.49977276170277, 1.21193758521436, 0.893803969095592,
                         0.439327374640206, 0.348432055749129, 0.242387517042872,
                         0.0757460990758976),
                  group = c("APAC", "APAC", "APAC", "APAC",  "APAC", "APAC", "APAC",
                            "EMEA", "EMEA", "EMEA", "EMEA", "EMEA", "EMEA", "EMEA",
                            "AMERICAS", "AMERICAS", "AMERICAS", "AMERICAS", "AMERICAS",
                            "AMERICAS", "AMERICAS")),
             .Names = c("Topic", "variable", "value", "group"), class = c("data.table", "data.frame"),
             row.names = c(NA, -21L))


library(needs)
needs(
  stringr,
  data.table,
  tm,
  ggplot2,
  wordcloud,
  readxl,
  dplyr,
  quanteda,
  topicmodels,
  reshape,
  plotly,
  shiny,
  rCharts,
  ggthemes,
  shinyjs,
  shinyWidgets,DT,shinythemes,
  ggrepel,tidyverse,treemapify
)
options(stringsAsFactors = F)

library(shiny)
ui <- fluidPage(
  fluidRow(plotlyOutput('keywords')),
  fluidRow(  verbatimTextOutput("selection")) )



server = function(input,output){
  output$keywords = renderPlotly({


    d0 = d1
    p = ggplot(d0, aes(reorder(Topic,-value), value)) +
      geom_point(aes(colour = value),
        shape = 16,
        size = 3,
        show.legend = F) +
      facet_wrap(~ group)+
      theme_minimal()
    ggplotly(p)


  })
  output$selection <- renderPrint({
    s <- event_data("plotly_click")
      cat("You selected: \n\n")
      as.list(s)

  })
}


shinyApp(ui, server)