如何在复选框应用中显示带标题的多类图表？

核心实现逻辑 #

• UI层：通过checkboxGroupInput创建图表选择复选框，搭配uiOutput动态生成选中图表的输出容器
• Server层：根据复选框选中值，动态渲染对应图表，每个图表用renderPlot生成并添加自定义标题

完整示例代码 #

library(shiny)
library(forecast)
library(ggplot2)

# UI 部分
ui <- fluidPage(
  titlePanel("时间序列图表选择器"),
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput(
        inputId = "selected_plots",
        label = "选择要展示的图表:",
        choices = c(
          "分解图 (Decomposition Plot)" = "decomp",
          "季节图 (GG Season Plot)" = "season",
          "ACF图 (ACF Plot)" = "acf"
        ),
        selected = NULL
      )
    ),
    mainPanel(
      uiOutput("plot_container")
    )
  )
)

# Server 部分
server <- function(input, output) {
  # 动态生成选中的图表输出容器
  output$plot_container <- renderUI({
    if (length(input$selected_plots) == 0) {
      return(p("请选择至少一个图表"))
    }
    
    # 为每个选中的图表创建plotOutput
    plot_outputs <- lapply(input$selected_plots, function(plot_id) {
      plotOutput(outputId = paste0("plot_", plot_id), height = "400px")
    })
    
    do.call(tagList, plot_outputs)
  })
  
  # 渲染分解图
  output$plot_decomp <- renderPlot({
    ts_data <- AirPassengers
    decomp_result <- decompose(ts_data)
    plot(decomp_result, main = "时间序列分解图")
  })
  
  # 渲染季节图
  output$plot_season <- renderPlot({
    ggseasonplot(AirPassengers, main = "时间序列季节图") + theme_minimal()
  })
  
  # 渲染ACF图
  output$plot_acf <- renderPlot({
    ggAcf(AirPassengers, main = "自相关系数图 (ACF)") + theme_minimal()
  })
}

shinyApp(ui = ui, server = server)

关键代码解释 #

1. UI层动态容器：uiOutput("plot_container")会根据复选框选中状态，动态生成对应数量的plotOutput，避免预定义大量冗余容器
2. Server层渲染逻辑：
   • 每个图表对应独立的renderPlot函数，保证各自的渲染逻辑互不干扰
   • 通过paste0("plot_", plot_id)统一命名输出ID，和复选框的选项值对应，方便关联
3. 图表标题设置：在plot()或ggplot的main参数中直接设置自定义标题，满足带标题的需求

内容的提问来源于stack exchange，提问作者Jargentxack