Resolved: plot by group in shiny

library(shiny)<br />
library(ggplot2)<br />
library(dplyr)</p>
<p>ui <- fluidPage(

    # Application title
    titlePanel("Plot By by"),

    # Sidebar with a slider input for number of bins 
    sidebarLayout(
        
      sidebarPanel( width = 2, selectInput(inputId = "by", 
                                           label = "dataset by",
                                           choices = c("by.1", "by.2"), 
                                           selected = "by.1")
                    ),

        
        
        
       
        mainPanel(
           plotOutput("distPlot")
        )
    )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$distPlot <- renderPlot({
      
      
      df <- data.frame(dose = c("D0.5", "D1", "D2", "D3", "D4", "D5"),
                       len = c(4.2, 10, 29.5, 5, 7, 15), 
                       by = c("by.1", "by.1","by.1","by.2","by.2","by.2"))

      
      mycols <- c("#92d050", "#57d3ff", "#ffc000")
      
      df <- df %>%<br />
        arrange(desc(len)) %>%<br />
        mutate(fills = ifelse(row_number() <= length(mycols), mycols, "grey50"))
      
      ggplot(data = df, aes(x = len, y = reorder(dose, len))) +
        geom_col(aes(fill = I(fills)))+
        geom_text(aes(x = len/2, label = glue::glue("{dose} ({len}%)"))) +
        theme_minimal() +
        ## remove expansion and x title
        scale_x_continuous(NULL, expand = c(0,0)) +
        # remove the y bits
        theme(axis.ticks.y = element_blank(), 
              axis.title.y = element_blank(), 
              axis.text.y = element_blank())
    })
    
    
}

# Run the application 
shinyApp(ui = ui, server = server)
[/code]

</p>



<h2 class="wp-block-heading">Answer:</h2>



I'd suggest using <code>multiple = TRUE</code> for your <code>selectInput</code> - also note the <code>filter()</code> call:<br> 


<p>[code]library(shiny)<br />
library(ggplot2)<br />
library(dplyr)<br />
library(shinyWidgets)</p>
<p>DF <- data.frame(dose = c("D0.5", "D1", "D2", "D3", "D4", "D5"),
                 len = c(4.2, 10, 29.5, 5, 7, 15), 
                 by = c("by.1", "by.1","by.1","by.2","by.2","by.2"))

ui <- fluidPage(
  titlePanel("Plot By by"),
  sidebarLayout(
    sidebarPanel( width = 2, selectizeInput(inputId = "by", 
                                         label = "dataset by",
                                         choices = c("by.1", "by.2"), 
                                         selected = "by.1",
                                         multiple = TRUE,
                                         options = list('plugins' = list('remove_button')))
    ),
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({

    mycols <- c("#92d050", "#57d3ff", "#ffc000")
    
    DF <- DF %>%<br />
      arrange(desc(len)) %>%<br />
      mutate(fills = ifelse(row_number() <= length(mycols), mycols, "grey50")) %>% filter(by %in% input$by)</p>
<p>    ggplot(data = DF, aes(x = len, y = reorder(dose, len))) +<br />
      geom_col(aes(fill = I(fills)))+<br />
      geom_text(aes(x = len/2, label = glue::glue("{dose} ({len}%)"))) +<br />
      theme_minimal() +<br />
      ## remove expansion and x title<br />
      scale_x_continuous(NULL, expand = c(0,0)) +<br />
      # remove the y bits<br />
      theme(axis.ticks.y = element_blank(),<br />
            axis.title.y = element_blank(),<br />
            axis.text.y = element_blank())<br />
  })<br />
}</p>
<p>shinyApp(ui = ui, server = server)