Plotly子图中间列绘图尺寸异常问题求助

哈哈，我之前也被这个问题坑过！你说的中间列（和中间行）子图变窄的情况，其实是Plotly默认自动布局的小毛病——它会根据每个子图的轴标签、内容自动调整空间分配，结果中间的就被挤扁了。别担心，咱们手动给布局定好规则就能解决！

修改后的完整代码示例 #

library(plotly)
library(purrr)

# 先生成9个子图（这里用mtcars按cyl和gear拆分来凑够9个，你可以替换成自己的9个图）
plots <- mtcars %>% 
  split(list(.$cyl, .$gear)) %>% 
  discard(~nrow(.) == 0) %>% # 去掉空的分组，确保刚好9个图
  lapply(function(x) {
    plot_ly(data = x, x = rownames(x), y = ~mpg, type = "bar") %>%
      layout(margin = list(l = 40, r = 40, t = 40, b = 40)) # 给每个子图设置统一的边距
  })

# 创建3×3子图，关键是这几个参数
subplot(plots, 
        nrows = 3, 
        shareX = TRUE, 
        shareY = TRUE,
        # 定义每个子图的宽度和高度占比，每列占1/3宽度，每行占1/3高度
        specs = matrix(list(list(width = 1/3, height = 1/3)), nrow = 3, ncol = 3, byrow = TRUE)
) %>%
  layout(
    showlegend = FALSE,
    # 手动指定每个轴的显示范围，强制每列每行尺寸完全一致
    xaxis = list(domain = c(0, 1/3)),
    xaxis2 = list(domain = c(1/3, 2/3)),
    xaxis3 = list(domain = c(2/3, 1)),
    xaxis4 = list(domain = c(0, 1/3)),
    xaxis5 = list(domain = c(1/3, 2/3)),
    xaxis6 = list(domain = c(2/3, 1)),
    xaxis7 = list(domain = c(0, 1/3)),
    xaxis8 = list(domain = c(1/3, 2/3)),
    xaxis9 = list(domain = c(2/3, 1)),
    yaxis = list(domain = c(2/3, 1)),
    yaxis2 = list(domain = c(2/3, 1)),
    yaxis3 = list(domain = c(2/3, 1)),
    yaxis4 = list(domain = c(1/3, 2/3)),
    yaxis5 = list(domain = c(1/3, 2/3)),
    yaxis6 = list(domain = c(1/3, 2/3)),
    yaxis7 = list(domain = c(0, 1/3)),
    yaxis8 = list(domain = c(0, 1/3)),
    yaxis9 = list(domain = c(0, 1/3))
  )

关键修复点说明 #

1. 共享轴（shareX = TRUE/shareY = TRUE）：开启共享轴后，Plotly会统一所有子图的轴尺寸，避免单个子图的轴内容差异导致空间分配不均。
2. specs参数：通过矩阵定义每个子图的宽度和高度占总画布的1/3，从根源上保证每列每行的子图尺寸一致。
3. 手动设置轴的domain：直接指定每个x轴和y轴的显示范围，强制让每列的宽度、每行的高度完全相同，这是最稳妥的兜底方案。
4. 统一子图边距：给所有子图设置相同的边距，避免边距差异影响整体尺寸。

这样调整之后，你的3×3子图所有列和行的尺寸就会完全一致啦！

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