ggplot纵向排列多图显示异常：如何扩展整体视图高度？

当使用patchwork将多张ggplot图表纵向排列时，整体视图框架高度未自动扩展，导致每张图表被压缩，无法正常显示，示例截图如下：

对应代码：

p_load(ggplot2)
library(patchwork)
p1 <- ggplot(mpg) + 
  geom_point(aes(x = displ, y = hwy))

p2 <- ggplot(mpg) + 
  geom_bar(aes(x = as.character(year), fill = drv), position = "dodge") + 
  labs(x = "year")

p3 <- ggplot(mpg) + 
  geom_density(aes(x = hwy, fill = drv), colour = NA) + 
  facet_grid(rows = vars(drv))

p4 <- ggplot(mpg) + 
  stat_summary(aes(x = drv, y = hwy, fill = drv), geom = "col", fun.data = mean_se) +
  stat_summary(aes(x = drv, y = hwy), geom = "errorbar", fun.data = mean_se, width = 0.5)

p5 <- ggplot(mpg, aes(x = displ, y = hwy)) + 
  geom_point()

p6 <-ggplot(mpg, aes(displ, hwy, colour = class)) + 
  geom_point()

p1/ p2 / p3 / p4 / p5 / p6

解决方法 #

1. RStudio交互环境中调整 #

方式一：导出时指定整体高度

使用ggsave()导出组合图表，设置足够大的height参数，保证每张图表有充足显示空间：

combined_plot <- p1/ p2 / p3 / p4 / p5 / p6
ggsave("combined_plots.png", combined_plot, height = 24, width = 8, dpi = 300)

可根据图表数量和内容调整height数值，图表越多，设置的高度值应越大。

方式二：分配单图相对高度

通过plot_layout()为不同图表设置相对高度，比如给带分面的p3分配更多高度：

p1/ p2 / p3 / p4 / p5 / p6 + 
  plot_layout(heights = c(1, 1, 2, 1, 1, 1))

heights向量长度与图表数量一致，数值代表对应图表的相对高度比例。

2. HTML Knit输出时调整 #

在R Markdown的代码块中添加fig.height参数，指定整体图形的输出高度：

```{r fig.height=24, fig.width=8}
combined_plot <- p1/ p2 / p3 / p4 / p5 / p6
combined_plot

根据实际需求调整`fig.height`的数值，确保所有图表正常显示。

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