ShinyApp多图展示问题：调整后代码仍无法正常生成任何绘图

核心错误原因 #

• UI层输出绑定错误：mainPanel中没有使用plotOutput("myPlot")声明绘图渲染位置，错误使用了不存在的outputplot参数，Shiny无法识别绘图输出的容器。
• 服务端响应式变量调用错误：你定义的绘图响应式对象为pt1/pt2/pt3，但renderPlot中直接调用了不存在的p1/p2/p3，且响应式对象取值必须添加后缀()。
• 绘图排列容错不足：未勾选的选项会返回NULL，直接传入grid.arrange会导致函数执行异常，需要先过滤掉空绘图对象再排列。

修正后完整可运行代码 #

library(ggplot2)
library(gridExtra)
library(shiny)

ui <- fluidPage(
  titlePanel("多图并列展示示例"),
  sidebarLayout(
    position = "left",
    sidebarPanel(
      "侧边栏控制区",
      checkboxInput("donum1", "展示FeatureA直方图", value = T),
      checkboxInput("donum2", "展示FeatureB直方图", value = F),
      checkboxInput("donum3", "展示FeatureC直方图", value = F)
    ),
    mainPanel(
      "主面板展示区",
      plotOutput("myPlot")
    )
  )
)

server <- function(input, output, session) {
  
  Feature_A <- c(1, 2, 1, 4, 2)
  Feature_B <- c(4, 5, 6, 6, 6)
  Feature_C <- c(22, 4, 3, 1, 5)
  df <- data.frame(Feature_A, Feature_B, Feature_C)
  
  pt1 <- reactive({
    if (!input$donum1) return(NULL)
    ggplot(data=df, aes(Feature_A)) + geom_histogram(bins = 5, fill = "#1f77b4", alpha = 0.7)
  })
  pt2 <- reactive({
    if (!input$donum2) return(NULL)
    ggplot(data=df, aes(Feature_B)) + geom_histogram(bins = 5, fill = "#ff7f0e", alpha = 0.7)
  })
  pt3 <- reactive({
    if (!input$donum3) return(NULL)
    ggplot(data=df, aes(Feature_C)) + geom_histogram(bins = 5, fill = "#2ca02c", alpha = 0.7)
  })
  
  output$myPlot = renderPlot({
    # 收集所有非空绘图
    plot_list <- list(pt1(), pt2(), pt3())
    valid_plots <- Filter(Negate(is.null), plot_list)
    # 仅当存在有效绘图时排列
    if (length(valid_plots) > 0) {
      do.call(grid.arrange, c(valid_plots, ncol = 2, top = "多特征直方图汇总"))
    }
  })
  
}

shinyApp(ui, server)

补充说明 #

• 代码中已给直方图添加了默认分箱数和配色，你可以根据需求自行调整geom_histogram的参数。
• 勾选不同的复选框即可动态调整展示的绘图，排版会自动适配有效绘图的数量。

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