如何在 R Shiny 中显示 plotly_click 中的许多点?
How to display many points from plotly_click in R Shiny?
我在 R Shiny 中有一个情节。我希望能够单击多个点并将它们显示在 table 中。情节运作良好,我可以得到 1 plotly_click(通过 event_data())显示在 table 中。如何增长许多 event_data 点的向量。这是一些示例代码。我试图在 d_save 中保存事件。谢谢。
library(shiny)
library(plotly)
data1 <- data.frame(cbind(seq(1,1000,1),seq(1,1000,1)*5))
colnames(data1) <- c('index','data')
data_points <- data.frame(cbind(seq(1,1000,5),seq(1,1000,5)*5))
colnames(data_points) <- c('index','data')
ui <- fluidPage(
plotlyOutput("plot1"),
tableOutput("dataTable")
)
d_save <- vector()
server <- function(input, output, session) {
# make plotly plot
output$plot1 <- renderPlotly({
p <- plot_ly(data1, x = data1$index, y = data1$data,mode = "lines")
add_trace(p, x = data_points$index, y = data_points$data, mode = "markers")
})
# show table of stances
output$dataTable <- renderTable({
d <- event_data("plotly_click")
d_save <- c(d_save,d$pointNumber[2]+1)
data.frame(d_save)
})
}
shinyApp(ui, server)
这并没有什么严重的问题,奇怪的是它从未得到答复。这不是一个纯情节的坏例子(不使用 ggplot)。
我通过以下方式修复了它:
- 将
d_save <- c(...)
分配更改为 d_save <<- c(...)
(此处使用 reactiveValues
会更干净)。
- 将 plotly 调用更改为管道,这似乎允许保留某些设置(如
type=scatter
默认值)- 消除警告:
No trace type specified: Based on info supplied, a 'scatter' trace
seems appropriate.
- 修复了
d_save
赋值中的 "off-by-one" 索引错误。
- 添加了一个
layout(...)
给它一个标题(这对很多事情都很有用)。
结果代码:
library(shiny)
library(plotly)
data1 <- data.frame(cbind(seq(1,1000,1),seq(1,1000,1)*5))
colnames(data1) <- c('index','data')
data_points <- data.frame(cbind(seq(1,1000,5),seq(1,1000,5)*5))
colnames(data_points) <- c('index','data')
ui <- fluidPage(
plotlyOutput("plot1"),
tableOutput("dataTable")
)
d_save <- vector()
server <- function(input, output, session) {
# make plotly plot
output$plot1 <- renderPlotly({
plot_ly(data1, x=data1$index, y=data1$data,mode = "lines") %>%
add_trace(x = data_points$index, y=data_points$data, mode = "markers") %>%
layout(title="Plotly_click Test")
})
# show table of point markers clicked on by number
output$dataTable <- renderTable({
d <- event_data("plotly_click")
d_save <<- c(d_save,d$pointNumber[1]+1)
data.frame(d_save)
})
}
shinyApp(ui, server)
图片:
我在 R Shiny 中有一个情节。我希望能够单击多个点并将它们显示在 table 中。情节运作良好,我可以得到 1 plotly_click(通过 event_data())显示在 table 中。如何增长许多 event_data 点的向量。这是一些示例代码。我试图在 d_save 中保存事件。谢谢。
library(shiny)
library(plotly)
data1 <- data.frame(cbind(seq(1,1000,1),seq(1,1000,1)*5))
colnames(data1) <- c('index','data')
data_points <- data.frame(cbind(seq(1,1000,5),seq(1,1000,5)*5))
colnames(data_points) <- c('index','data')
ui <- fluidPage(
plotlyOutput("plot1"),
tableOutput("dataTable")
)
d_save <- vector()
server <- function(input, output, session) {
# make plotly plot
output$plot1 <- renderPlotly({
p <- plot_ly(data1, x = data1$index, y = data1$data,mode = "lines")
add_trace(p, x = data_points$index, y = data_points$data, mode = "markers")
})
# show table of stances
output$dataTable <- renderTable({
d <- event_data("plotly_click")
d_save <- c(d_save,d$pointNumber[2]+1)
data.frame(d_save)
})
}
shinyApp(ui, server)
这并没有什么严重的问题,奇怪的是它从未得到答复。这不是一个纯情节的坏例子(不使用 ggplot)。
我通过以下方式修复了它:
- 将
d_save <- c(...)
分配更改为d_save <<- c(...)
(此处使用reactiveValues
会更干净)。 - 将 plotly 调用更改为管道,这似乎允许保留某些设置(如
type=scatter
默认值)- 消除警告:
No trace type specified: Based on info supplied, a 'scatter' trace seems appropriate.
- 修复了
d_save
赋值中的 "off-by-one" 索引错误。 - 添加了一个
layout(...)
给它一个标题(这对很多事情都很有用)。
结果代码:
library(shiny)
library(plotly)
data1 <- data.frame(cbind(seq(1,1000,1),seq(1,1000,1)*5))
colnames(data1) <- c('index','data')
data_points <- data.frame(cbind(seq(1,1000,5),seq(1,1000,5)*5))
colnames(data_points) <- c('index','data')
ui <- fluidPage(
plotlyOutput("plot1"),
tableOutput("dataTable")
)
d_save <- vector()
server <- function(input, output, session) {
# make plotly plot
output$plot1 <- renderPlotly({
plot_ly(data1, x=data1$index, y=data1$data,mode = "lines") %>%
add_trace(x = data_points$index, y=data_points$data, mode = "markers") %>%
layout(title="Plotly_click Test")
})
# show table of point markers clicked on by number
output$dataTable <- renderTable({
d <- event_data("plotly_click")
d_save <<- c(d_save,d$pointNumber[1]+1)
data.frame(d_save)
})
}
shinyApp(ui, server)
图片: