Question

我正在尝试创建一个Shiny应用程序，用户可以在其中选择要绘制的x和y轴，然后单击“添加图形”以绘制图形-但是此代码无法正常工作，我不确定为什么。我是否需要将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

1 个答案: