如何在ggplot2中用facet_wrap排列列与子列？求分组绘图R包

你说得没错，facet_wrap() 和 facet_grid() 确实没法直接实现这种主列带子列嵌套的自定义分面布局——它们更适合规整的网格分面场景。不过有几个R包专门用来解决这种灵活的绘图拼接需求，我给你推荐两个最常用的：

1. patchwork：简洁灵活的绘图拼接工具 #

patchwork 是ggplot生态里最受欢迎的拼接工具之一，语法非常直观，用简单的运算符就能组合出复杂布局。比如要实现你需要的主列分组+子列排列，可以先把同一主组的子图拼接成一个“组合块”，再把不同主组的块上下/左右组合：

library(ggplot2)
library(patchwork)

# 先创建几个示例子图
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_point() + ggtitle("A1")
p2 <- ggplot(mtcars, aes(mpg, hp)) + geom_point() + ggtitle("A2")
p3 <- ggplot(mtcars, aes(mpg, drat)) + geom_point() + ggtitle("B1")
p4 <- ggplot(mtcars, aes(mpg, wt)) + geom_point() + ggtitle("B2")
p5 <- ggplot(mtcars, aes(mpg, qsec)) + geom_point() + ggtitle("B3")

# 组合布局：A组2个图横向排列，B组3个图横向排列，两组纵向堆叠
(p1 + p2) / (p3 + p4 + p5) + 
  plot_annotation(title = "自定义列分组布局") +
  plot_layout(guides = "collect") # 如果子图有相同图例，统一收集到侧边

如果需要调整不同主组的宽度比例，还可以用 plot_layout(widths = c(2, 3)) 这样的参数来精细控制。

2. ggpubr：自带美化和分组标签的拼接工具 #

如果你需要给主分组添加醒目的标签（比如大的A、B标识），ggpubr 的 ggarrange() 函数会更省心，它自带分组标签、图例调整等功能：

library(ggpubr)

# 先拼接子组内的图，再拼接主组
ggarrange(
  # A组：2个子图横向排列
  ggarrange(p1, p2, ncol = 2, labels = c("A1", "A2")),
  # B组：3个子图横向排列
  ggarrange(p3, p4, p5, ncol = 3, labels = c("B1", "B2", "B3")),
  nrow = 2,
  # 给主组添加大标签
  labels = c("A", "B"),
  font.label = list(size = 14, color = "darkblue", face = "bold")
)

额外提示 #

如果你需要更极致的布局控制（比如不规则的跨行列布局），还可以试试 gridExtra 包的 grid.arrange() 函数，不过它的语法相对繁琐一些，一般用前两个包就足够覆盖大部分需求了。

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