如何调整ggplot中facet_grid的分面行高度？

嘿，我来帮你搞定这个分面行高度的问题！你之前试的几个方法没效果很正常——咱们来拆解下原因：

• scale_x_discrete(expand=c(0,5))是用来调整坐标轴两端的空白扩展量，和分面本身的高度完全不相关；
• facet_grid的scale和space参数是控制分面是否共享刻度、是否按数据范围分配空间，也不是直接调整行高度的；
• 旧版的heights/widths参数确实已经被移除了，所以肯定没用啦。

下面给你两个靠谱的实现方法，按需选择：

方法1：用gtable手动修改面板高度 #

这个方法适合基于已有的facet_grid图直接调整，不需要拆分绘图：

library(ggplot2)
library(gtable)
library(grid)

# 先准备示例数据（你可以替换成自己的数据集）
df <- expand.grid(x = 1:5, y = 1:3, facet_row = c("Group1", "Group2", "Group3"))
df$value <- rnorm(nrow(df))

# 绘制基础的facet_grid图
p <- ggplot(df, aes(x, value)) +
  geom_point() +
  facet_grid(facet_row ~ ., switch = "y") # switch参数是把分面标签移到左侧，可根据需求调整

# 将ggplot对象转换为gtable（底层绘图结构）
gt <- ggplotGrob(p)

# 找到所有面板的位置（可以通过print(gt$layout)查看详细布局）
panel_indices <- grep("panel", gt$layout$name)

# 修改面板高度：这里把每个面板高度改成原来的0.4倍（用"null"相对单位，也可以用绝对单位比如unit(2, "cm")）
gt$heights[gt$layout$t[panel_indices]] <- unit(0.4, "null")

# 绘制调整后的图
grid.draw(gt)

方法2：用patchwork灵活拼接子图 #

如果需要更精细化控制每个分面的高度比例，用patchwork包拆分绘图再拼接会更直观：

library(ggplot2)
library(patchwork)

# 按分面拆分数据，分别绘制子图
p_group1 <- ggplot(subset(df, facet_row == "Group1"), aes(x, value)) +
  geom_point() +
  labs(title = "Group1") +
  theme(plot.title = element_text(hjust = 0.5))

p_group2 <- ggplot(subset(df, facet_row == "Group2"), aes(x, value)) +
  geom_point() +
  labs(title = "Group2") +
  theme(plot.title = element_text(hjust = 0.5))

p_group3 <- ggplot(subset(df, facet_row == "Group3"), aes(x, value)) +
  geom_point() +
  labs(title = "Group3") +
  theme(plot.title = element_text(hjust = 0.5))

# 拼接时指定高度比例：比如Group3的高度是前两个的一半
p_group1 + p_group2 + p_group3 +
  plot_layout(ncol = 1, heights = c(2, 2, 1)) # 比例可自定义

如果你的需求是让所有分面行高度一致但整体缩小，还可以结合theme(panel.spacing.y = unit(0.2, "cm"))来减小分面之间的垂直间距，配合上面的方法一起使用效果更好。

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