如何用ggplot制作2x2布局图表？已有data.frame变量及部分操作

嘿，我猜你现在应该是已经搞定了单个ggplot图表的绘制，但是卡在了把它们拼成2x2的整齐布局上对吧？先假设你目前的操作和期望效果大概是这样（如果和实际有出入，随时告诉我调整）：

我目前已完成的操作： #

• 加载了tidyverse包，准备好包含多变量的data.frame（比如名为my_data，包含连续变量x1/x2、响应变量y1/y2，还有分类变量category）
• 分别写出了四个独立的ggplot图表代码，比如：

  # 散点图：x1 vs y1，按category着色
  p1 <- ggplot(my_data, aes(x = x1, y = y1, color = category)) + geom_point()
  # 箱线图：category分组下的y2分布
  p2 <- ggplot(my_data, aes(x = category, y = y2)) + geom_boxplot()
  # 折线图：x2随y1的变化趋势，按category分组
  p3 <- ggplot(my_data, aes(x = x2, y = y1, group = category)) + geom_line()
  # 直方图：x1的分布情况
  p4 <- ggplot(my_data, aes(x = x1)) + geom_histogram(bins = 15)
  

• 现在能单独输出每个图表，但不知道怎么把它们组合成规范的2x2布局

我期望实现的效果： #

• 四个图表整齐排列成2行2列的格式
• 所有图表共享统一的主题风格（比如字体、配色、背景）
• 可以调整图表之间的间距、对齐方式，可选让部分图表共享坐标轴以减少冗余

下面给你两种最实用的实现方案，按需选择：

方法1：用patchwork包（推荐，语法超直观） #

patchwork是专门为ggplot组合而生的工具包，语法简单到像搭积木：

1. 先安装并加载包：

   install.packages("patchwork")
   library(patchwork)
   

2. 一行代码搞定2x2布局：

   # 第一行放p1和p2，第二行放p3和p4，用/分隔行，+分隔列
   (p1 + p2) / (p3 + p4)
   

3. 优化成你想要的效果：
   给整个组合加标题、收集图例、调整间距：

   (p1 + p2) / (p3 + p4) +
     plot_annotation(
       title = "2x2组合分析图表",
       subtitle = "包含散点/箱线/折线/直方图",
       theme = theme(plot.title = element_text(hjust = 0.5, size = 16))
     ) +
     plot_layout(
       guides = "collect",  # 把所有图表的图例收集到一起，避免重复
       heights = c(1, 1),   # 两行高度比例（这里是1:1）
       widths = c(1, 1)     # 两列宽度比例（这里是1:1）
     )
   

   如果想让图表共享坐标轴，只需要在单个图表里统一设置坐标轴范围，比如p1 + scale_x_continuous(limits = c(0, 100))，其他图表也用同样的范围就行。

方法2：用gridExtra包（传统经典方法） #

如果你习惯用传统的网格布局，gridExtra的grid.arrange()也能轻松实现：

1. 安装加载包：

   install.packages("gridExtra")
   library(gridExtra)
   

2. 生成2x2布局：

   grid.arrange(
     p1, p2, p3, p4,
     nrow = 2, ncol = 2,
     top = textGrob("2x2组合图表", gp = gpar(fontsize = 16, fontface = "bold")),
     padding = unit(0.5, "lines")  # 调整图表之间的间距
   )
   

3. 统一主题风格：
   先定义一个共享主题，再应用到所有图表上：

   # 定义共享主题
   shared_theme <- theme_minimal() + 
     theme(
       text = element_text(family = "Arial"),
       plot.background = element_rect(fill = "#f5f5f5")
     )
   # 给每个图表加上共享主题
   p1 <- p1 + shared_theme
   p2 <- p2 + shared_theme
   p3 <- p3 + shared_theme
   p4 <- p4 + shared_theme
   # 再组合
   grid.arrange(p1, p2, p3, p4, nrow=2, ncol=2)
   

额外小技巧 #

如果你的data.frame是长格式（tidy data），也就是所有观测都在一行，有一列用来区分不同图表的类型，那还可以用facet_wrap()来批量生成2x2布局，比如：

# 假设你的数据已经整理成：x, y, plot_type（plot_type有4个取值对应四个图表）
ggplot(my_tidy_data, aes(x = x, y = y)) +
  geom_point() +
  facet_wrap(~plot_type, nrow = 2, ncol = 2)

这种方式更适合同类型图表的批量生成，代码更简洁。

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