如何在ggplot的facet_wrap中单独移动一组分面标签？

方案一：使用ggh4x包的facet_grid2（推荐） #

ggh4x扩展了ggplot2的分面能力，支持为行、列分面变量分别设置标签位置，同时让统计量按单个分面计算。

先安装并加载依赖包：

install.packages("ggh4x")
library(ggh4x)
library(ggplot2)

替换原代码中的facet_grid为facet_grid2，通过strip.position参数指定行、列标签的位置：

ggplot(mtcars, aes(x = wt, y = qsec)) +
  geom_point() +
  facet_grid2(rows = vars(gear), cols = vars(vs), 
              scales = "free",
              strip.position = list(rows = "right", cols = "top")) +
  geom_vline(aes(xintercept = mean(wt)))

此方法既保留了facet_grid的标签布局（gear标签在右侧，vs标签在顶部），又能让每个分面的竖线使用各自分组的wt均值。

方案二：手动计算分面均值（无需额外包） #

如果不想引入第三方包，可以提前计算每个分面组合的wt均值，再传入geom_vline中：

先计算各分面的均值：

library(dplyr)

facet_means <- mtcars %>%
  group_by(gear, vs) %>%
  summarise(wt_mean = mean(wt), .groups = "drop")

再绘制图形，将预计算的均值数据集传入geom_vline：

ggplot(mtcars, aes(x = wt, y = qsec)) +
  geom_point() +
  facet_grid(rows = vars(gear), cols = vars(vs), scales = "free") +
  geom_vline(data = facet_means, aes(xintercept = wt_mean))

这种方式同样能实现每个分面显示对应均值的竖线，同时保留facet_grid的原生标签布局。

内容的提问来源于stack exchange，提问作者J. Doe