R Shiny多图展示问题：选中多个X变量仅显示最后一个图表

你的代码核心问题在于：单个plotOutput只能渲染1个ggplot对象，而plt_func返回的是多个ggplot组成的列表，renderPlot处理列表时只会渲染最后一个元素，因此仅显示最后选中的X变量对应的图表。

以下是三种可行的解决方案：

方案1：用patchwork包拼接所有图表（推荐，布局灵活） #

patchwork是专门用于组合ggplot图表的工具，可将多个图表拼接为一个整体，适配单个plotOutput容器。

完整代码 #

library(dplyr)
library(ggplot2)
library(shiny)
library(patchwork) # 新增拼接工具包

plt_func <- function(x,y){
  plt_list <- list()
  for (X_var in x){
    plt_list[[X_var]] <- mtcars %>% ggplot(aes(get(X_var), get(y)))+ 
      geom_point() + 
      labs(x = X_var, y = y)
  }
  # 将所有图表按2列布局拼接，可自定义ncol调整列数
  reduce(plt_list, `+`) + plot_layout(ncol = 2)
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(selectizeInput(inputId = "x",label = "X", choices = names(mtcars), multiple = T),
                 selectInput(inputId = "y",label = "Y", choices = names(mtcars),multiple = F),
                 actionButton("plot", label = "Plot")),
    mainPanel(
      plotOutput("finalplot")
    )
  )
)

server <- function(input, output, session) {
  
  plt <- eventReactive(input$plot, {
    req(input$x, input$y)
    x <- input$x
    y <- input$y
    plt_func(x,y)
  })

  output$finalplot <- renderPlot({
    plt()
  })

}

shinyApp(ui, server)

方案2：用gridExtra包拼接图表 #

如果习惯使用gridExtra，可通过grid.arrange实现图表拼接：

修改后的Server部分（其余代码不变） #

library(gridExtra)

output$finalplot <- renderPlot({
  # 按2列布局渲染所有图表
  grid.arrange(grobs = plt(), ncol = 2)
})

方案3：动态生成多个独立的plotOutput（适合单独控制图表的场景） #

如果希望每个选中的X变量对应独立的图表容器，可动态生成多个plotOutput：

完整代码 #

library(dplyr)
library(ggplot2)
library(shiny)

plt_func <- function(x,y){
  plt_list <- list()
  for (X_var in x){
    plt_list[[X_var]] <- mtcars %>% ggplot(aes(get(X_var), get(y)))+ 
      geom_point() + 
      labs(x = X_var, y = y)
  }
  return(plt_list)
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(selectizeInput(inputId = "x",label = "X", choices = names(mtcars), multiple = T),
                 selectInput(inputId = "y",label = "Y", choices = names(mtcars),multiple = F),
                 actionButton("plot", label = "Plot")),
    mainPanel(
      uiOutput("dynamic_plots") # 动态UI容器
    )
  )
)

server <- function(input, output, session) {
  
  plt <- eventReactive(input$plot, {
    req(input$x, input$y)
    x <- input$x
    y <- input$y
    plt_func(x,y)
  })

  # 动态生成每个X变量对应的plotOutput
  output$dynamic_plots <- renderUI({
    req(plt())
    plot_outputs <- lapply(names(plt()), function(var) {
      plotOutput(paste0("plot_", var), height = "300px")
    })
    do.call(tagList, plot_outputs)
  })

  # 逐个渲染每个图表
  observeEvent(plt(), {
    plt_list <- plt()
    for (var in names(plt_list)) {
      local({
        current_var <- var
        output[[paste0("plot_", current_var)]] <- renderPlot({
          plt_list[[current_var]]
        })
      })
    }
  })

}

shinyApp(ui, server)

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