使用操作按钮的闪亮 renderPlot

Question

我正在尝试创建一个闪亮的应用程序，用户可以在其中 select 绘制 x 和 y 轴，然后单击 "Add Graph" 绘制图形 - 但这段代码不是工作，我不确定为什么。我需要将 input$x_iris 和 input$y_iris 设置为反应式吗？

library(shiny)
library(ggplot2)

ui <- fluidPage(

  titlePanel("4 Plot Generator"),

  sidebarLayout(
    sidebarPanel(
      fluidRow(
        column(6, selectInput("x_iris", "X:", choices= c(unique(colnames(iris))))),
        column(6, selectInput("y_iris", "Y:", choices = c(unique(colnames(iris)))))
      ),

      # button to add graph
      # button to remove graph
      fluidRow(
        column(6, actionButton("add_graph", "Add Graph")),
        column(6, actionButton("reset_graph", "Reset Graphs"))
      )

    ),

    # Show graph
    mainPanel(
      plotOutput("plots")
    )
    )
  )

# Define server logic required to draw a histogram
server <- function(input, output) {

  observeEvent(input$add_graph,{
    # not sure why this isn't working
    plot1 <- ggplot(iris, aes(x = input$x_iris, y = input$y_iris)) + geom_point()
    output$plots <- renderPlot({
      plot1
    })
  })

  observeEvent(input$reset_graph,{
    plot1 <- NULL
    output$plots <- renderPlot({
      plot1
    })
  })


}

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

问题是 selectInput 小部件正在返回 character 值，而 aes() 不希望如此。因此，要告诉它正确评估输入值，您可以组合使用 aes_() 和 as.name():

ggplot(iris, aes_(x = as.name(input$x_iris), y = as.name(input$y_iris)))

使用操作按钮的闪亮 renderPlot

Shiny renderPlot using action button

r

shiny

shiny-reactivity