使用ggvis/闪亮时的反应性

Question

我对闪亮/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")

      )


  )

  )

Server.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")