如何为 Shiny web 页面制作箱线图

Question

再会

我正在尝试为 shiny web 页面制作一个简单的箱线图，但由于某种原因，它无法正常工作。 我使用下面的代码在 markdown 中完成了它，我得到了我想要的结果。

ggplot(test, aes(x = Date, y = test$Var1, group = Date)) +
  geom_boxplot()

这就是我在 markdown 中得到的，这也是我想要的 shiny web 页面

以下代码是我用于 shiny web 页面的代码

library(readxl)
library(shiny)
library(ggplot2)
library(dplyr)


ui <- fluidPage(
  titlePanel("questionnaire"),
  sidebarLayout(
    sidebarPanel(
      selectInput("question", "Choose a question",
                  colnames(test))
    ),
    mainPanel(
      plotOutput("coolplot")
    )
  )
)

server <- function(input, output) {
  output$coolplot <- renderPlot(
    ggplot(test, aes(x = Date, y = input$question, group = Date)) +
      geom_boxplot()
  )
  
}

shinyApp(ui = ui, server = server)

如您所见，我在这里创建箱线图的代码与我在 markdown 中使用的代码几乎相同。 那么为什么我在运行应用程序时会得到这个？

任何解决此问题的帮助将不胜感激！

Answer 1

我不得不使用以下代码来解决我的问题

server <- function(input, output) {
  output$coolplot <- renderPlot(
    ggplot(test, aes(x = Date, y = get(input$question), group = Date)) +
      geom_boxplot()
  )