闪亮的仪表板 - 带有复选框值的反应条形图

问题描述

根据我的数据，我可以准备一个简单的闪避条形图

geo <- data.frame("year" = c(2018,2018,2019,2020,2020),"geo" = c("Europe","Asia","America","Europe","America"),"sales" = c(100,150,200,500,1200,1800,1200)) 

ggplot(geo,aes(fill=as.factor(year),x=geo,y=sales))+
   geom_bar(position="dodge",stat = "identity")

我想将此图放在 Shiny 仪表板中，并附上一个用于选择年份的复选框。我愿意

library(shiny)
ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),dashboardSidebar(),dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(
     
      Box(plotOutput("plot1",height = 250)),Box(
       
        checkBoxGroupInput("checkGroup",label = "Year",choices = list("2018"=2018,"2019" = 2019,"2020" = 2020),selected = 2018)
      )
    )
  )
)

server <- function(input,output) {

  output$plot1 <- renderPlot({
    ggplot(geo,aes(fill=as.factor(input$checkGroup),y=sales))+
      geom_bar(position="dodge",stat = "identity")
    
  })
}

shinyApp(ui,server)

我收到两种类型的错误：

1. 绘图上的值不会根据复选框选择而改变 - 绘图每年都相同（并且值是错误的）
2. 我无法生成选择超过一年的绘图。我收到以下错误：“错误：美学必须是长度 1 或与数据相同（9）：填充”

有人可以帮忙吗？

解决方法

这可以像这样实现：

1. 您必须根据检查的年份过滤数据集。为此，请使用 reactive。
2. 在renderPlot 中使用reactive 返回的数据框进行绘图并简单地将year 映射到fill 上

    library(shiny)
    library(shinydashboard)
    
    geo <- data.frame("year" = c(2018,2018,2019,2020,2020),"geo" = c("Europe","Asia","America","Europe","America"),"sales" = c(100,150,200,500,1200,1800,1200)) 
    
    ui <- dashboardPage(
      dashboardHeader(title = "Basic dashboard"),dashboardSidebar(),dashboardBody(
        # Boxes need to be put in a row (or column)
        fluidRow(
          
          box(plotOutput("plot1",height = 250)),box(
            
            checkboxGroupInput("checkGroup",label = "Year",choices = list("2018"=2018,"2019" = 2019,"2020" = 2020),selected = 2018)
          )
        )
      )
    )
    
    server <- function(input,output) {
      
      dat <- reactive({
        filter(geo,year %in% input$checkGroup)
      })
      
      output$plot1 <- renderPlot({
        ggplot(dat(),aes(fill=as.factor(year),x=geo,y=sales))+
          geom_bar(position="dodge",stat = "identity")
        
      })
    }
    
    shinyApp(ui,server)