如何用ggpubr合并ggplot图且保留坐标轴原比例不压缩？

要保留ggplot图形的原始坐标轴比例、仅缩小尺寸并排显示，核心是固定每个图形的宽高比，避免ggpubr自动调整布局挤压坐标轴。以下是几种可行方案：

方案1：用theme(aspect.ratio)固定图形比例 #

先给每个ggplot对象设置固定的宽高比（数值根据你的原始图形比例调整，比如原始图宽是高的1.5倍，就设aspect.ratio = 1/1.5），再用ggarrange合并：

library(ggplot2)
library(ggpubr)

# 假设你的三个原始图形是p1、p2、p3
# 给每个图形固定宽高比（示例数值，根据你的图实际调整）
p1_fixed <- p1 + theme(aspect.ratio = 0.6)
p2_fixed <- p2 + theme(aspect.ratio = 0.6)
p3_fixed <- p3 + theme(aspect.ratio = 0.6)

# 并排合并图形，保持宽度一致
ggarrange(p1_fixed, p2_fixed, p3_fixed,
          ncol = 3, nrow = 1,
          align = "hv",  # 对齐水平和垂直方向
          widths = c(1, 1, 1))

方案2：用coord_fixed()锁定坐标轴比例 #

如果需要严格锁定x轴和y轴的比例（比如x轴单位长度和y轴单位长度的比值），可以用coord_fixed()：

# ratio参数为x轴长度/y轴长度，根据原始图计算
p1_fixed <- p1 + coord_fixed(ratio = 1.7)
p2_fixed <- p2 + coord_fixed(ratio = 1.7)
p3_fixed <- p3 + coord_fixed(ratio = 1.7)

ggarrange(p1_fixed, p2_fixed, p3_fixed, ncol = 3)

方案3：用gridExtra精准控制图形尺寸 #

如果ggpubr的自动布局仍有问题，可以将ggplot转成grob对象，用grid.arrange更灵活地控制每个图形的原始宽度：

library(gridExtra)

# 将ggplot对象转为grob
g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)
g3 <- ggplotGrob(p3)

# 按每个图形的原始宽度合并
grid.arrange(g1, g2, g3, 
             ncol = 3,
             widths = c(g1$widths[2], g2$widths[2], g3$widths[2]))

配合R Markdown的chunk参数调整 #

在R Markdown中，你可以设置代码块的fig.width和fig.height参数，配合图形的宽高比，确保输出的整体尺寸合适：

{r fig.width=12, fig.height=2.4}
# 总宽度12对应三个图各宽4，高度2.4对应aspect.ratio=0.6（4*0.6=2.4）
ggarrange(p1_fixed, p2_fixed, p3_fixed, ncol=3)

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