ggplot2+ggh4x中facet_nested标签错位、嵌套线缺失的解决方法

先给你理清楚两个问题的根源和解决办法：

为啥会出这俩问题？ #

1. x1标签在底部：你现在把连续变量x1直接当x轴了，ggplot默认x轴标签就放底部，而且你的分面只设了x2，x1根本没参与分面嵌套，自然标签不会跑到顶部。
2. 嵌套线不显示：facet_nested的nest_line参数得有至少两层分面才会生效，你现在只给了一个x2当分面变量，没有嵌套层级，当然看不到线。

修正方案（按你要的「x2分面+ x1分组」逻辑来） #

首先得把连续的x1转成分类分组（比如按数值分成低中高三组），让它成为嵌套分面的内层变量，再调整主题把x轴标签移到顶部：

完整可运行代码 #

library(ggplot2)
library(ggh4x)

n <- 100
x1 <- rnorm(n, mean = 50, sd = 10)
x2 <- factor(sample(c('X', 'Y', 'Z'), size = n, replace = TRUE))
data <- data.frame(x1 = x1, x2 = x2)
data$y <- x1 + rnorm(n, mean = 0, sd = 3)

# 把连续的x1转成分组变量（这里按三分位数切分）
data$x1_group <- cut(data$x1, breaks = 3, labels = c("低", "中", "高"))

# 绘制嵌套分面箱线图
ggplot(data, aes(x = x1_group, y = y)) +
  geom_boxplot(fill = "lightblue") +
  labs(title = "按x2分面、x1分组的y箱线图", 
       x = "x1分组", y = "y") +
  theme_minimal() +
  # 外层分面x2，内层分面x1_group，开启嵌套线
  facet_nested(~ x2 + x1_group, nest_line = TRUE) +
  # 把x轴标签移到顶部
  theme(axis.title.x.position = "top")

要是你只想保留x1为连续变量的情况 #

如果不想把x1转成分组，只是单纯解决标签位置和嵌套线问题，那得加个虚拟的内层分面变量，再隐藏它的标签：

library(ggplot2)
library(ggh4x)

n <- 100
x1 <- rnorm(n, mean = 50, sd = 10)
x2 <- factor(sample(c('X', 'Y', 'Z'), size = n, replace = TRUE))
data <- data.frame(x1 = x1, x2 = x2)
data$y <- x1 + rnorm(n, mean = 0, sd = 3)

# 加个虚拟分组当内层分面
data$dummy <- " "

ggplot(data, aes(x = x1, y = y)) +
  geom_boxplot(fill = "lightblue") +
  labs(title = "按x2分面的y箱线图", 
       x = "x1", y = "y") +
  theme_minimal() +
  # 双层分面触发嵌套线
  facet_nested(~ x2 + dummy, nest_line = TRUE, scales = "free_x") +
  theme(
    # x轴标签移到顶部
    axis.title.x.position = "top",
    # 隐藏虚拟分组的标签
    strip.text.x = element_text(size = 0)
  )

注意点 #

• axis.title.x.position = "top"是ggplot2 3.5.0及以上版本才有的参数，要是你用的版本低，要么升级ggplot2，要么用theme(axis.title.x = element_text(vjust = -1))手动调整位置。
• 嵌套线必须要有至少两层分面变量，这是facet_nested的硬性要求，单一分面变量不可能出嵌套线。

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