如何为闪亮的网页制作箱形图

Question

日安

我试图为一个闪亮的网页做一个简单的箱形图，但由于某些原因，它不起作用。我使用下面的代码在markdown中做了这件事，我得到了我想要的结果。

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

这是我在markdown中得到的，这也是我想要的闪亮的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()
  )