在RShiny中使用Plotly Subplot设置统一绘图尺寸

你的子图尺寸不一致，核心原因是subplot()默认会根据子图内容自动分配空间，加上子图数量与nrows设置不匹配、y轴标题长度差异，导致布局混乱。以下是具体修改方案：

关键修改点 #

• 统一每个子图的边距、轴标题样式，消除内容差异对布局的影响
• 修正subplot()的nrows参数匹配实际子图数量（你有9个子图，之前设为8）
• 强制指定每个子图的高度比例，确保尺寸均等

修改后的完整代码 #

library(shiny)
library(ggplot2)
library(dplyr)
library(dataRetrieval)
library(cowplot)
library(plotly)
library(lubridate)

ui <- fluidPage(
  titlePanel("USGS Streamflow Data"),
  
  sidebarLayout(
    sidebarPanel(dateInput("start_date", "Start Date:", value = Sys.Date() - 7), width = 2),
    mainPanel(
      tabsetPanel(
        tabPanel("Carson Basin", plotlyOutput("C_plot_panel", width = "100%", height = "2700px"))
      )
    )
  )
)

server <- function(input, output) {
  
  #_______________ Carson Plot Panel
  output$C_plot_panel <- renderPlotly({
    # Split the site numbers entered by the user
    C_site_numbers <- list("10308200", "10309000", "10309010", "10310000",  "10311000","10311400", "10312000", "10312100", "10312150")
    C_site_names <- list("Markleeville (cfs)", "Gardnerville (cfs)", "Dresslerville (cfs)", "Woodfords (cfs)", "Carson @ Carson (cfs)", "Deer Run (cfs)", "Ft Churchill (cfs)", "Lahontan (acre-ft)", "Blw Lahontan (cfs)")
    
    # Create an empty list to store the individual plots
    C_plots <- list()
    
    # Loop through each site number and download/streamflow data
    for (C_site_number in C_site_numbers) {
      
      # Download streamflow data using dataRetrieval package
      start_date <- input$start_date
      end_date <- as.Date(Sys.Date())
      n <- which(C_site_numbers == C_site_number)
      plot_n <- unlist(C_site_names[n])
      para_code = if(plot_n == 'Lahontan (acre-ft)'){'00054'} else {'00060'}
      streamflow <- readNWISuv(siteNumbers = C_site_number, parameterCd = para_code, 
                               startDate = start_date, endDate = end_date)
      attr(streamflow$dateTime, 'tzone') <- "America/Los_Angeles"

      # Prepare data for plotting
      streamflow_df <- data.frame(
        Date = as.POSIXct(streamflow$dateTime, format = "%Y-%m-%d %H:%M"),
        Flow = if(plot_n == 'Lahontan (acre-ft)'){streamflow$X_00054_00000} else {streamflow$X_00060_00000}
      )
      colnames(streamflow_df[2]) <- plot_n

      # Create the plot using plotly - 统一子图布局参数
      plot <- plot_ly(data = streamflow_df, x = ~ Date, y = ~Flow, type = "scatter", mode = "lines") %>%
        layout(
          yaxis = list(
            title = plot_n,
            titlefont = list(size = 10), # 统一标题字体大小
            automargin = TRUE
          ),
          xaxis = list(title = ""), # 移除重复的x轴标题
          hovermode = "x unified", 
          plot_bgcolor = 'rgb(212,213,214)', 
          showlegend = FALSE,
          margin = list(l = 80, r = 20, t = 30, b = 20) # 统一边距，确保y轴标题空间一致
        )
      C_plots[[C_site_number]] <- plot
    }
    # 修正nrows为9，指定每个子图高度均等
    C_plot_panel <- subplot(C_plots, nrows = 9, titleY = TRUE, margin = 0.04, heights = rep(1/9, 9)) %>%
      layout(showlegend = FALSE)
  })
}

shinyApp(ui = ui, server = server)

说明 #

1. 子图布局统一：给每个子图设置相同的边距、y轴标题字体大小，避免因标题长度不同导致子图宽度偏移
2. 匹配子图数量：将nrows从8改为9，和你实际的9个子图对应，让布局引擎正确分配空间
3. 强制高度均等：heights = rep(1/9,9)让每个子图占据总高度的1/9，确保所有子图高度完全一致
4. 调整UI高度：把plotlyOutput的height设为2700px，对应9个子图每个约300px的高度，布局更合理

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