使用checkboxGroupInput仅显示绘图上的特定条形图

library(shiny)

ui <- fluidPage(
  checkboxGroupInput("selected_plots", "选择要显示的条形图:",
                     choices = c("图1", "图2", "图3", "图4"),
                     selected = c("图1", "图2", "图3", "图4")),
  plotOutput("barplot")
)

server <- function(input, output) {
  output$barplot <- renderPlot({
    # 根据用户选择的选项来绘制条形图
    if ("图1" %in% input$selected_plots) {
      # 绘制图1的条形图
      # ...
    }
    if ("图2" %in% input$selected_plots) {
      # 绘制图2的条形图
      # ...
    }
    if ("图3" %in% input$selected_plots) {
      # 绘制图3的条形图
      # ...
    }
    if ("图4" %in% input$selected_plots) {
      # 绘制图4的条形图
      # ...
    }
  })
}

shinyApp(ui, server)