Question

我希望使用点击的点的值进行进一步处理，但不清楚如何引用数据

library(shiny)
library(ggvis)
library(dplyr)

df  <- data.frame(a=c(1,2),b=c(5,3)) 



runApp(list(
  ui = bootstrapPage(
  ggvisOutput("plot")

),

server = function(..., session) {

# function to handle click
getData = function(data,location,session){

if(is.null(data)) return(NULL)

# This returns values to console
print(glimpse(data))
# Observations: 1
# Variables:
# $ a (int) 2
# $ b (int) 3

}

 # create plot
 df %>%
  ggvis(~a, ~b) %>%
  layer_points() %>%
  handle_click(getData) %>%
  bind_shiny("plot")

# further processing

clickedData <- reactive({

 # how do I reference the value 'a' e.g. 2 of the clicked point'
})
}
))

TIA

Answer 1

这是一个可以打印出data.frame的工作解决方案。你关闭了。

df <- data.frame(a = 1:5, b = 101:105)

runApp(shinyApp(
  ui = fluidPage(
    ggvisOutput("ggvis")
  ),
  server = function(input, output, session) {
    clickFunc <- function(data, location, session) {
      cat(str(data))
    }

    df %>%
      ggvis(~ a, ~b) %>% 
      layer_points %>%
      handle_click(clickFunc) %>%
      bind_shiny("ggvis")
  }
))

修改：
（免责声明：我从未在5分钟前使用ggvis闪亮，所以也许这不是正确的方法，但这样做有效）

以下是如何使用您的用户界面中的数据

df <- data.frame(a = 1:5, b = 101:105) runApp(shinyApp( ui = fluidPage( div("a:", textOutput("aVal", inline = TRUE)), div("b:", textOutput("bVal", inline = TRUE)), ggvisOutput("ggvis") ), server = function(input, output, session) { clickFunc <- function(data, location, session) { session$output$aVal <- renderText({ data$a }) session$output$bVal <- renderText({ data$b }) } df %>% ggvis(~ a, ~b) %>% layer_points %>% handle_click(clickFunc) %>% bind_shiny("ggvis") } ))

如何在Shiny中引用ggvis图上的点击点

1 个答案: