如何调整ggplot2分面布局，使多列分面呈现规整方形样式？

问题背景 #

使用facet_grid(group2 ~ group1)生成的分面图因group1包含6个水平（A-F），导致列数过多，整体布局狭长。需要将group2的G、H分组各自拆分为两行，让整体布局更接近方形。

原始代码 #

# 创建模拟数据
set.seed(123)
mydata <- data.frame(
  x = rnorm(120),
  y = rnorm(120),
  group1 = rep(c("A", "B", "C","D", "E", "F"), each = 40),
  group2 = rep(c("G", "H"), each = 40)
)

# 使用facet_grid生成分面图
library(ggplot2)

ggplot(mydata, aes(x = x, y = y)) +
  geom_point() +
  facet_grid(group2 ~ group1)

解决方案 #

方法1：自定义分组变量 + facet_wrap #

为group1创建分组标记，将6个水平拆分为每组3个，结合group2形成复合分组，用facet_wrap控制列数为3，实现G、H各自占两行：

library(dplyr)
library(ggplot2)

# 新增分组变量，将group1每3个水平归为一个区块
mydata <- mydata %>%
  mutate(group1_chunk = rep(c("Chunk 1", "Chunk 2"), each = 3, times = 2))

# 用facet_wrap布局，按group2和group1_chunk拆分，固定列数3
ggplot(mydata, aes(x = x, y = y)) +
  geom_point() +
  facet_wrap(~ group2 + group1_chunk, ncol = 3)

方法2：patchwork拼接独立分面图 #

分别生成G、H两组的分面图（各设为2行3列），再垂直拼接，完全控制每组的布局：

library(ggplot2)
library(patchwork)

# 生成G组分面图（2行3列）
plot_g <- ggplot(subset(mydata, group2 == "G"), aes(x, y)) +
  geom_point() +
  facet_wrap(~ group1, ncol = 3) +
  ggtitle("Group G")

# 生成H组分面图（2行3列）
plot_h <- ggplot(subset(mydata, group2 == "H"), aes(x, y)) +
  geom_point() +
  facet_wrap(~ group1, ncol = 3) +
  ggtitle("Group H")

# 垂直拼接两个图
plot_g / plot_h

方法3：调整facet_grid的行列映射（可选） #

如果坚持用facet_grid，可以将group1拆分为行和列的组合，通过额外变量辅助实现目标布局：

mydata <- mydata %>%
  mutate(
    row = case_when(
      group1 %in% c("A", "B", "C") ~ "Row 1",
      group1 %in% c("D", "E", "F") ~ "Row 2"
    ),
    col = group1
  )

ggplot(mydata, aes(x, y)) +
  geom_point() +
  facet_grid(group2 + row ~ col)

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