ggplot2的facet_wrap如何仅显示一次行标签且子图支持独立自由坐标轴

解决方案 #

该需求可以通过ggh4x扩展包实现，该包针对ggplot2分面功能做了大量实用扩展，以下是两种适配你需求的实现方案：

方案1：使用facet_grid2同时实现分组标签+全独立轴

原生facet_grid无法设置每个单元格独立轴的问题可以通过facet_grid2的independent参数解决，既保留网格分面的标签无重复布局，又支持每个分面轴完全自由：

# 先安装扩展包：install.packages("ggh4x")
library(ggplot2)
library(ggh4x)

dt <- ggplot2::txhousing[ggplot2::txhousing$year %in% 2000:2002 & ggplot2::txhousing$month %in% 1:3,]

ggplot(dt, aes(median, sales)) +
  geom_point() +
  facet_grid2(year ~ month, 
              labeller = labeller(year=label_both, month=label_value), 
              scales = "free",
              independent = "all") # 该参数开启所有分面的轴完全独立

运行后月份标签会统一显示在每列顶部仅一次，年份标签统一显示在每行左侧仅一次，完全符合预期效果。

方案2：使用facet_wrap+嵌套标签实现堆叠自定义样式

如果你坚持使用wrap类分面，可以搭配strip_nested实现标签去重堆叠，还支持自定义不同层级标签的样式：

library(ggplot2)
library(ggh4x)

dt <- ggplot2::txhousing[ggplot2::txhousing$year %in% 2000:2002 & ggplot2::txhousing$month %in% 1:3,]

ggplot(dt, aes(median, sales)) +
  geom_point() +
  facet_wrap(year ~ month, 
             ncol = 3,
             labeller = labeller(year=label_both, month=label_value), 
             scales = "free",
             strip = strip_nested(
               bleed = TRUE, # 合并相同的上层标签
               text_x = elem_list_text(colour = c("red", "black"), size = c(11, 10)) # 自定义不同层级标签的颜色、字号
             ))

该方案会将相同月份的标签合并显示在列顶部，下层显示年份标签，支持自定义颜色、字体等样式。

原生ggplot2目前没有内置参数可以直接实现该需求，手动调整图形对象（grob）的操作成本较高，更推荐上述两种方案。

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