如何调整ggplot2中facet_wrap分面strip的宽度以填充可用水平空间

解决方案 #

你遇到的问题根源是两个独立ggplot的分面标签宽度默认仅适配自身标签长度，不会跨图自动对齐，直接调整theme参数无法解决这个跨图对齐的问题，推荐使用gtable手动统一strip宽度的方案，适配所有复杂分面场景：

完整可运行代码 #

library(tidyverse)
library(cowplot)
library(gtable)
library(grid)

# 原有数据集和绘图逻辑保持不变
df <- data.frame(
  shortCat = sample(c('a','b'), 10, replace=TRUE),
  longCat = sample(c('a really long label','another really long label'), 10, replace=TRUE),
  x = sample(seq(as.Date('2020/01/01'), as.Date('2020/12/31'), by="day"), 10),
  y = sample(0:25, 10, replace = TRUE)
)

figA <- df %>% ggplot( aes(x=x,y=y) ) +      
  geom_line() + 
  facet_wrap(vars(shortCat), ncol=1, strip.position ="right", scales="free_y") + 
  theme(
    axis.title.y=element_blank(),
    axis.title.x=element_blank(),
    axis.text.x=element_blank(),
    axis.ticks.x=element_blank(), 
    strip.text.y.right = element_text(angle = 0, hjust=0)
  )

figB <- df %>% ggplot( aes(x=x,y=y) ) +      
  geom_bar(stat="identity") + 
  facet_wrap(vars(longCat), ncol=1, strip.position ="right", scales="free_y") + 
  theme(
    axis.title.y=element_blank(),
    strip.text.y.right = element_text(angle = 0, hjust=0)
  )

# 新增分面标签宽度对齐步骤
## 1. 将ggplot对象转换为gtable结构
gA <- ggplotGrob(figA)
gB <- ggplotGrob(figB)

## 2. 提取两个图右侧分面标签的宽度，取最大值作为统一宽度
max_strip_width <- max(gA$widths[grep("strip-right", gA$layout$name)], 
                       gB$widths[grep("strip-right", gB$layout$name)])

## 3. 统一设置两个图的分面标签宽度
gA$widths[grep("strip-right", gA$layout$name)] <- max_strip_width
gB$widths[grep("strip-right", gB$layout$name)] <- max_strip_width

## 4. 拼接调整后的图表
plot_grid(gA, gB, ncol=1, align="v")

原理说明 #

ggplot的所有布局参数最终都会以gtable结构存储，分面标签的宽度属于gtable的列宽属性，独立绘制的两个ggplot默认不会共享该属性，因此需要手动提取最大值统一设置。调整后短标签的背景会自动填充整个统一后的宽度，和下方长标签的宽度完全对齐。

轻量备选方案 #

如果场景简单不想引入gtable操作，也可以直接给短因子标签添加空格占位，强制让短标签的显示长度和长标签一致：

# 给shortCat添加空格，凑到和长标签近似长度
df$shortCat <- factor(df$shortCat, levels = c("a", "b"), labels = c("a                        ", "b                        "))

该方案优势是不需要额外依赖包，缺点是需要手动调整空格数量适配不同长度的长标签，灵活度低于gtable方案。

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