如何确保面板中不同轴范围的图表保持一致的轴缩放比例？

核心思路是让每个图表的物理宽度与其X轴的数值范围成正比，以此保证X轴上0到1的距离在所有图中完全相同。以下是具体实现步骤：

1. 明确各图表X轴范围比例 #

先整理所有图表的X轴有效范围（下限均为0）：

• p1、p2、p4、p5：范围长度3
• p3：原范围长度6，按需求可扩展至7（不缩小原范围）
• p6、p7、p8：范围长度1.5

将这些长度简化为比例关系：1.5:3:7 ≈ 1:2:4.67，后续布局将以此比例分配各图表的物理宽度。

2. 结合patchwork布局控制实现比例 #

无需修改原design布局结构，通过plot_layout的widths参数指定每行的区块宽度比例，匹配X轴范围比例即可：

library(ggplot2)
library(patchwork)

# 定义图表
p1 <- ggplot() +
  scale_y_continuous(limits = c(0, 6)) +
  scale_x_continuous(limits = c(0, 3)) +
  ggtitle("p1")

p2 <- ggplot() +
  scale_y_continuous(limits = c(0, 6)) +
  scale_x_continuous(limits = c(0, 3)) +
  ggtitle("p2")

# 扩展p3的X范围至0-7，满足不缩小原范围的要求
p3 <- ggplot() +
  scale_y_continuous(limits = c(0, 6)) +
  scale_x_continuous(limits = c(0, 7)) +
  ggtitle("p3")

p4 <- ggplot() +
  scale_y_continuous(limits = c(0, 6)) +
  scale_x_continuous(limits = c(0, 3)) +
  ggtitle("p4")

p5 <- ggplot() +
  scale_y_continuous(limits = c(0, 6)) +
  scale_x_continuous(limits = c(0, 3)) +
  ggtitle("p5")

p6 <- ggplot() +
  scale_y_continuous(limits = c(0, 6)) +
  scale_x_continuous(limits = c(0, 1.5)) +
  ggtitle("p6")

p7 <- ggplot() +
  scale_y_continuous(limits = c(0, 6)) +
  scale_x_continuous(limits = c(0, 1.5)) +
  ggtitle("p7")

p8 <- ggplot() +
  scale_y_continuous(limits = c(0, 6)) +
  scale_x_continuous(limits = c(0, 1.5)) +
  ggtitle("p8")

design <- "AAABBB
           CCCCCC
           DDDEEE
           FFGGHH"

# 按X轴范围比例指定每行宽度
p1 + p2 + p3 + p4 + p5 + p6 + p7 + p8 +
  plot_layout(
    design = design,
    widths = list(
      c(2, 2),       # 第一行：p1、p2的范围均为3，比例2:2
      c(4.67),       # 第二行：p3范围7，对应比例≈4.67
      c(2, 2),       # 第三行：p4、p5范围均为3，比例2:2
      c(1, 1, 1)     # 第四行：p6、p7、p8范围均为1.5，比例1:1:1
    )
  )

3. 补充说明 #

• 若需要更精确的比例，可直接用X轴范围长度作为宽度参数，比如将第二行宽度设为c(7)，第一行设为c(3,3)，这样X轴单位长度会完全一致。
• 所有操作均未缩小任何图表的原X轴范围，仅对p3进行了合理扩展，符合需求要求。

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