如何避免ggplot2 facet_grid多分组时分面标签强制等宽？

问题背景 #

使用ggplot2的facet_grid()做纵向多分组分面（如cut+clarity~.）时，若将纵向分面标签旋转为水平显示（通过theme(strip.text.y = element_text(angle=0))），所有标签会强制适配最长标签的宽度，导致短标签（如仅显示clarity的分组）占用大量空白空间，造成布局浪费。

可复现代码 #

library(tidyverse)

data <- diamonds |> mutate(cut = paste("Super Duper Long Description Which Demonstrates The Issue", cut))

data |> 
  filter(str_detect(cut, "(Ideal|Premium|Good)") & clarity %in% c("SI1","SI2","VS1","VS2")) |>
  ggplot(aes(x=color,y=price)) +
  geom_boxplot() +
  facet_grid(cut+clarity~.) +
  theme(strip.text.y = element_text(angle=0, vjust=0.5))

当前效果 #

所有纵向分面标签的宽度被统一拉长至最长标签（带超长前缀的cut分组）的宽度，短标签区域存在大量不必要的空白，左侧空间利用率极低。

期望效果 #

每个纵向分面标签的宽度自适应自身文本长度，短标签仅占用必要空间，优化左侧布局。

解决方案 #

方法1：使用ggh4x扩展包（推荐） #

ggh4x包对ggplot2的分面系统做了扩展，支持独立调整每个分面标签的宽度，无需手动修改底层对象。

1. 安装并加载包：

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

2. 修改分面函数为facet_grid2()，并设置strip参数：

library(tidyverse)
library(ggh4x)

data <- diamonds |> mutate(cut = paste("Super Duper Long Description Which Demonstrates The Issue", cut))

data |> 
  filter(str_detect(cut, "(Ideal|Premium|Good)") & clarity %in% c("SI1","SI2","VS1","VS2")) |>
  ggplot(aes(x=color,y=price)) +
  geom_boxplot() +
  facet_grid2(cut+clarity~., strip = strip_vanilla(clip = "off")) +
  theme(strip.text.y = element_text(angle=0, vjust=0.5))

此方法会自动让每个纵向标签适配自身文本宽度，实现期望的布局效果。

方法2：手动修改gtable（无依赖方案） #

若不想引入第三方包，可直接操作ggplot生成的gtable对象，逐个调整分面标签的宽度：

library(tidyverse)
library(grid)

data <- diamonds |> mutate(cut = paste("Super Duper Long Description Which Demonstrates The Issue", cut))

# 生成原始图表
p <- data |> 
  filter(str_detect(cut, "(Ideal|Premium|Good)") & clarity %in% c("SI1","SI2","VS1","VS2")) |>
  ggplot(aes(x=color,y=price)) +
  geom_boxplot() +
  facet_grid(cut+clarity~.) +
  theme(strip.text.y = element_text(angle=0, vjust=0.5))

# 提取gtable对象
gt <- ggplotGrob(p)

# 定位所有纵向分面标签的位置
strip_y_indices <- grep("strip-r", gt$layout$name)

# 逐个调整标签宽度为文本实际宽度（加少量边距）
for (idx in strip_y_indices) {
  # 获取当前标签的文本grob
  text_grob <- gt$grobs[[idx]]$children[[1]]$children[[1]]
  # 计算文本实际宽度
  text_width <- convertWidth(grobWidth(text_grob), "cm", valueOnly = TRUE)
  # 设置strip宽度为文本宽度+0.2cm边距
  gt$widths[gt$layout$l[idx]] <- unit(text_width + 0.2, "cm")
}

# 绘制调整后的图表
grid.draw(gt)

补充说明 #

这并非ggplot2的bug，而是facet_grid()的默认设计逻辑：为保证同一维度分面的布局规整性，强制统一标签宽度。若需要自适应宽度的布局，可通过上述两种方法实现。

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