如何在 Shiny 中将列更改为 plot 和 geom_bar()？

Question

我需要创建一个selectInput到 select 一列到 plot 一个geom_bar() 。

我一直在尝试：

用户界面

      tabItems(
        tabItem("Coop_ativas", 
                fluidPage(h1("Cooperativas Brasileiras")),
                dataTableOutput("cooptable"), 
                box(plotOutput("correlation_plot"), widht = 8), 
                box(selectInput("features", "Características:", 
                                c("situacao_cadastral", "identificador_matriz_filial")), width = 4),
                box(plotOutput("regiao_plot"), widht = 8), 
                box(selectInput("regiao", "Região:", 
                                choices = list("Estado" = "uf", "Região" = "regiao"),
                                selected = "Estado"))
                ))

服务器

 output$regiao_plot <- renderPlot({
      

      Coop_ativas %>% select(input$regiao[1]) %>% group_by(input$regiao[1]) %>% count() %>% arrange(desc(n)) %>% head(10) %>% 
                      ggplot(aes(reorder(input$regiao[1], n), n), ) + 
                      geom_bar(stat="identity", fill="steelblue") +
                      geom_text(aes(label=n), vjust=0.5, hjust=-0.5, color="darkgrey", size=3) +
                      labs(title = "Cooperativas Ativas por Estado",
                           subtitle = "02/2020",
                           caption = "Fonte: RFB, tratado por OBSCOOP/USP",
                           #tag = "Figure 1",
                           x = "Estado",
                           y = "Quantidade") +
                      theme_minimal() + theme(plot.title = element_text(hjust = 0.5),
                                              plot.subtitle = element_text(hjust = 0.5),
                                              plot.caption = element_text(0.0)) +         
                      coord_flip() 
  
    
  })

input$regiao[1]在哪里我希望它是uf或regiao 。

Answer 1

好的，刚找到。

只需要将input$regiao转换为sym 。 并与!! .

  output$regiao_plot <- renderPlot({
      
      col <- sym(input$regiao)

      Coop_ativas %>% select(!! col) %>% group_by(!! col) %>% count() %>% arrange(desc(n)) %>% head(10) %>% 
                      ggplot(aes(reorder(!! col, n), n), )