我怎样才能从ggplotly中获取闪亮的数据行 [英] How can I grab the row of data from a ggplotly in shiny
本文介绍了我怎样才能从ggplotly中获取闪亮的数据行的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
下面的代码.
我正在尝试使用plotly_click
事件来确定正在选择哪些数据.但是,我不知道该怎么做. plotly_click提供的数据非常少,根本不包含分组.我没有任何JS经验,但是我知道一定有办法!我的目标是能够选择一个数据点并能够抓住它在data.frame d1
I'm trying to use the plotly_click
event to figure out what data is being selected. However, I can't figure out how to do it. The data provided by plotly_click is very minimal and doesn't include the grouping or groups at all. I don't have any JS experience, but I know there must be a way! My goal is to be able to select a data point and be able to grab the row it corresponds to in a 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)
推荐答案
我不确定这是否是您想要的,但是您可以尝试:
I am not sure if this is what you want, but you could try:
library(shiny)
library(plotly)
library(DT)
ui <- fluidPage(
fluidRow(plotlyOutput('keywords')),
fluidRow(verbatimTextOutput("selection")),
fluidRow(DT::dataTableOutput("table1"))
)
server = function(input,output){
output$keywords = renderPlotly({
d0 = d1
key <- row.names(d0)
d0 <- data.frame(d3, key)
p = ggplot(d0, aes(reorder(Topic,-value), value, key = key)) +
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")
data.frame(s)
})
selection2 <- reactive({
s <- event_data("plotly_click")
cat("You selected: \n\n")
df <- data.frame(s)
})
output$table1 = renderDT({
d2 <- d1 %>% filter(key == selection2()$key)
d2
})
}
shinyApp(ui, server)
这篇关于我怎样才能从ggplotly中获取闪亮的数据行的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文