R Shiny仪表盘多行直方图布局问题求助

你的代码核心问题是所有plotOutput都使用了同一个ID CPlot。Shiny要求每个输出组件的ID必须唯一，重复ID会导致渲染逻辑冲突，所以单行布局（仅一个输出）时正常，多行多输出就出问题了。

修改后的完整代码 #

pacman::p_load(tidyverse, tidyr, shiny, shinydashboard)

data <- as.data.frame(mtcars)

# 封装直方图绘制函数，避免重复代码
create_histogram <- function(metric, title_suffix = "") {
  ggplot(data, aes(x = .data[[metric]])) +
    geom_histogram(fill="#D55E00", color="#e9ecef", alpha=0.9) +
    labs(
      title = paste0("Distribution of ", metric, title_suffix),
      x = metric,
      y = "Count") +
    theme_minimal()
}

ui <- dashboardPage(
  skin = "yellow",
  dashboardHeader(title = "My dashboard"),
  dashboardSidebar(
    sidebarMenu()
  ),
  dashboardBody(
    fluidRow(
      box(title = "Primary Metric:", status = "primary", solidHeader = T, plotOutput("mainPlot"), width = 7),
      box(selectInput("metric", 
                      "Metric:", 
                      c("mpg",  "cyl", "hp", "wt")),  
          width = 3
      )
    ),
    fluidRow(
      box(title = "Sub-Metric1", width = 4,  status = "warning", solidHeader = T, plotOutput("subPlot1")),
      box(title = "Sub-Metric2", width = 4,  status = "warning", solidHeader = T, plotOutput("subPlot2")),
      box(title = "Sub-Metric3", width = 4,  status = "warning", solidHeader = T, plotOutput("subPlot3"))
    )
  )
)

server <- function(input, output){
  # 主图渲染
  output$mainPlot <- renderPlot({
    create_histogram(input$metric, " over the last 12 month")
  })
  
  # 三个子图渲染，这里和主图用相同逻辑，也可以单独修改
  output$subPlot1 <- renderPlot({
    create_histogram(input$metric)
  })
  
  output$subPlot2 <- renderPlot({
    create_histogram(input$metric)
  })
  
  output$subPlot3 <- renderPlot({
    create_histogram(input$metric)
  })
}

shinyApp(ui = ui, server = server)

关键改动说明 #

• 新增create_histogram函数，把重复的ggplot绘图逻辑抽离出来，后续修改样式只需改这一处
• UI中四个plotOutput分别使用mainPlot、subPlot1、subPlot2、subPlot3四个唯一ID，解决冲突问题
• Server端为每个ID单独写renderPlot，调用封装好的函数生成图形，主图保留了原有的标题后缀，子图可以根据需求调整内容

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