如何在ggplot图形中实现双因子嵌套的轴标签布局？

核心思路 #

你的Location和LocationTreatment是嵌套关联（Webb对应Hard/Soft Release，SRS同理），先把LocationTreatment拆分为独立的Location和Treatment列，再借助工具包或手动调整实现轴标签的嵌套展示。

方案一：用ggh4x包快速实现（推荐） #

ggh4x的嵌套分面功能可以直接生成分组轴标签，无需手动调整位置：

1. 数据预处理（拆分因子）

library(tidyr)
# 假设你的数据集名为df，拆分LocationTreatment为Location和Treatment
df <- df %>%
  separate(LocationTreatment, into = c("Location", "Treatment"), sep = "(?=[A-Z])")

正则表达式(?=[A-Z])会在大写字母前拆分，自动把WebbHardRelease拆分为Webb和HardRelease。

2. 绘制嵌套轴箱线图

install.packages("ggh4x") # 首次使用需安装
library(ggh4x)
library(ggplot2)

ggplot(df, aes(x = 响应变量列名, y = Treatment)) +
  geom_boxplot() +
  # 按Location做嵌套分面，自由缩放y轴空间
  facet_nested(. ~ Location, scales = "free_y", space = "free_y") +
  coord_flip() +
  theme(
    strip.text = element_text(hjust = 0), # 分面标签左对齐
    strip.background = element_blank() # 去掉分面背景框，模拟嵌套轴效果
  )

翻转后，Location会作为上层嵌套标签，Treatment作为下层标签，完全符合需求。

方案二：手动实现（无需额外包） #

如果不想安装新包，可通过缩进标签+手动标注分组实现：

1. 数据排序与预处理

library(dplyr)
df <- df %>%
  separate(LocationTreatment, into = c("Location", "Treatment"), sep = "(?=[A-Z])") %>%
  arrange(Location, Treatment) %>% # 按Location和Treatment排序
  mutate(Treatment = factor(Treatment, levels = unique(Treatment)))

2. 绘制带嵌套标签的箱线图

ggplot(df, aes(x = 响应变量列名, y = Treatment)) +
  geom_boxplot() +
  coord_flip() +
  scale_y_discrete(
    # 给Treatment标签添加缩进
    labels = function(x) paste0("  ", x)
  ) +
  # 手动添加Location分组标签，y轴位置需根据Treatment数量调整
  annotate("text", x = min(df$响应变量列名) - 0.1, y = c(1.5, 3.5), 
           label = c("Webb", "SRS"), hjust = 1, size = 4) +
  theme(axis.text.y = element_text(hjust = 0))

注意：y = c(1.5, 3.5)是假设每个Location对应2个Treatment，若数量变化需手动调整位置。

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