使用 ggvis/shiny 时的反应性

Question

我是 Shiny/ggvis 的新手，我想创建一个散点图，允许用户从 X 和 Y 下拉列表中进行选择。我尝试过这个壮举可能多次无济于事，非常感谢一些帮助。请看下面的代码。

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

# Define the user interface

  shinyUI(pageWithSidebar(
    # Add a title to this page

    headerPanel(
      h1("Test the Header Panel!")),


    sidebarPanel(
      uiOutput("ggvis_ui"),
      sliderInput(inputId = "size",label = "Area",10, 1000, value = c(10)),
      selectInput(inputId = "yAxis",label = "Y variable", c("wt","drat")),      
      selectInput(inputId = "xAxis",label = " X variable", c("cyl", "am","gear"))),



    mainPanel(
      h1("Please review the chart below showing nothing!"),

      ggvisOutput("ggvis")

      )


  )

  )

服务器.r

# Create server.R

    shinyServer(function(input, output, session) {

      # A reactive expression wrapper for input$size
      input_size <- reactive(input$size)
      input_xAxis <- reactive(input$xAxis)
      input_yAxis <- reactive(input$yAxis)

      # A reactive expression wrapper for input$size


      mtcars %>% 
        ggvis(x =input_xAxis, y = input_yAxis, size := input_size) %>%
        layer_points() %>%
        bind_shiny("ggvis", "ggvis_ui")


    })

Answer 1

您缺少的两件事是使绘图具有反应性，并在变量名称为字符串时使用prop 设置属性。

对服务器代码的以下更改会返回一个反应图形：

plot = reactive({
    mtcars %>%
    ggvis(prop("x", as.name(input_xAxis())), 
         prop("y", as.name(input_yAxis())), 
         size := input_size) %>%
    layer_points()
    })

plot %>%
    bind_shiny("ggvis", "ggvis_ui")