问Shiny的问题，参数的长度必须相同

EN

library(shiny)
library(tidyverse)
df_bransch <- data_frame(
        kommun = c("Bjuv", "Bjuv", "Bjuv", "Bromölla", "Bromölla", "Bromölla", "Båstad", "Båstad", "Båstad", "Helsingborg", "Helsingborg", "Helsingborg"),
        bransch = c("Besöksnäring", "Byggnadsmaterial", "Fastigheter", "Besöksnäring", "Byggnadsmaterial", "Fastigheter", 
                    "Besöksnäring", "Byggnadsmaterial", "Fastigheter", "Besöksnäring", "Byggnadsmaterial", "Fastigheter"),
        Anställda = c(46, 369, 36, 57, 40, 36, 525, 5, 1133, 2392, 195, 1042),
        Förädlingsvärde = c(20724, 579892, 91406, 26097, 136440, 51731, 252891, 3852, 1343391, 1257333, 176595, 5017640))

ui <- fluidPage(
        navbarPage(title = "TEST", id = "nav",
                   tabPanel("Branschstruktur",
                            sidebarLayout(
                                    sidebarPanel(selectInput("kom", "Kommun", choices = unique(df_bransch$kommun), selected = "Malmö"),
                                                 varSelectInput("var", "Variabel", df_bransch[c(3,4)])),
                                    mainPanel(plotOutput("plot"))),
                   tabPanel("Utveckling"))))

server <- function(input, output, session) {
        
        df <- reactive({df_bransch %>%
                        req(input$var, input$kom) %>% 
                filter(kommun == input$kom)
        })
        
        output$plot <- renderPlot({
                ggplot(df(), aes(x = reorder(bransch, input$var), y = input$var)) +
                        geom_bar(position = "dodge", stat = "identity") +
                        labs(title = paste0("Branschstruktur, ", input$kom, " år 2018"),
                             subtitle = paste0("Variabel: ", input$var),
                             caption = "Källa: Bisnode") +
                        coord_flip()
        })
}



shinyApp(ui, server)