如何在R中按变量组合将16个箱线图排列为复合图？

• 我是R尤其是数据可视化领域的纯新手，若问题较为浅显还请见谅，我完全不知该如何着手。
• 有四个变量X、Y、Z、W，每个变量均有“高”“低”两种取值（大写代表高值，小写代表低值），由此共产生16种组合（如XYzw、XyZw、xyZw等）。每种组合对应多次实验的数值结果，已能生成单个箱线图。
• 需求：将这些箱线图排列在一张复合图中，把X/Y的组合（XY、Xy、xY、xy）作为x轴分组，Z/W的组合（ZW、Zw、zW、zw）作为y轴分组，每个位置对应对应组合的箱线图。
• 数据格式示例：

combs <- data.frame(xyzw=sample(1:100,10),xyzW=sample(1:100,10),xyZW=sample(1:100,10),xyZw=sample(1:100,10),
                    xYzW=sample(1:100,10),xYzw=sample(1:100,10),xYZW=sample(1:100,10),xYZw=sample(1:100,10),
                    XyzW=sample(1:100,10),Xyzw=sample(1:100,10),XyZW=sample(1:100,10),XyZw=sample(1:100,10),
                    XYzW=sample(1:100,10),XYzw=sample(1:100,10),XYZW=sample(1:100,10),XYZw=sample(1:100,10))

• 当前尝试：可通过循环绘制单个箱线图，如for (comb in combs) { boxplot(comb) }，但不知如何按要求排列成复合图。

要实现这种布局，核心是先把宽格式数据转换为长格式，再用ggplot2的分面功能来排列箱线图。

步骤1：安装并加载必要工具包 #

需要tidyr处理数据格式，ggplot2绘图：

install.packages(c("tidyr", "ggplot2"))
library(tidyr)
library(ggplot2)

步骤2：转换数据格式 #

把当前的宽格式数据拆分成包含分组信息的长格式：

# 将宽格式转为长格式，提取组合名称和对应数值
combs_long <- pivot_longer(combs, cols = everything(), names_to = "combination", values_to = "value")

# 从组合名称中拆分出X/Y分组和Z/W分组（每个组合名前2位是X/Y，后2位是Z/W）
combs_long$xy_group <- substr(combs_long$combination, 1, 2)
combs_long$zw_group <- substr(combs_long$combination, 3, 4)

步骤3：绘制复合箱线图 #

用facet_grid实现按X/Y（列，对应x轴）和Z/W（行，对应y轴）的布局：

ggplot(combs_long, aes(x = xy_group, y = value)) +
  geom_boxplot() +
  facet_grid(zw_group ~ xy_group) +  # 行是Z/W分组，列是X/Y分组，对应需求的y轴和x轴
  labs(title = "16种变量组合实验结果箱线图", x = "X/Y组合", y = "实验结果数值") +
  theme_bw()  # 采用简洁的白色背景主题

可选调整 #

如果需要优化图的显示效果，可以添加以下参数：

• 调整分组标签大小：theme(strip.text = element_text(size = 12))
• 统一所有子图的y轴范围：scale_y_continuous(limits = c(0, 100))
• 修改箱线图填充色：geom_boxplot(fill = "#4292c6")

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