ggplot中facet_grid(space='free_y')小分组标题截断问题的解决办法

这个问题的核心原因是：当使用facet_grid(..., space = "free_y")时，ggplot会根据每个分面内的x轴（因为你用了coord_flip()，实际是垂直方向的轴）的类别数量自动分配分面高度。你的GROUP 2只有1个数据点，对应的分面被压缩得非常小，而你设置了超大的标题字号（size = rel(4)），导致标题没有足够空间完整显示。

下面是几个实用的解决方案：

方案1：手动控制分面高度（用gtable调整布局） #

这个方法直接修改ggplot生成的底层布局，精准控制分面和标题栏的高度，适合需要保留space="free_y"核心功能的场景：

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

# 生成数据
d <- tibble(
  x = factor(1:40),
  y = rnorm(40),
  g = c(rep("GROUP 1", 39), "GROUP 2")
)

# 基础绘图
p <- ggplot(d) +
  aes(x = x, y = y) +
  geom_col() +
  facet_grid(g ~ ., scales = "free_y", space = "free_y") +
  coord_flip() +
  theme(
    strip.text.y = element_text(angle = 0, size = rel(4))
  )

# 提取ggplot的底层gtable对象
gt <- ggplotGrob(p)

# 定位分面面板，手动设置高度比例（这里让GROUP2占总高度的1/8，可按需调整）
panel_rows <- gt$layout$t[grep("panel", gt$layout$name)]
gt$heights[panel_rows] <- unit.c(unit(7/8, "npc"), unit(1/8, "npc"))

# 定位标题栏，设置足够的高度容纳大字号文本
strip_rows <- gt$layout$t[grep("strip-r", gt$layout$name)]
gt$heights[strip_rows] <- unit(3, "lines")  # 3行高度，可根据字号调整

# 绘制修改后的图形
grid.draw(gt)

方案2：固定标题栏高度，关闭自动空间分配 #

如果你不需要严格按数据量分配分面高度，可以把space参数设为"fixed"，同时给标题栏设置固定高度，确保文本不会被截断：

library(tidyverse)

d <- tibble(
  x = factor(1:40),
  y = rnorm(40),
  g = c(rep("GROUP 1", 39), "GROUP 2")
)

ggplot(d) +
  aes(x = x, y = y) +
  geom_col() +
  facet_grid(g ~ ., scales = "free_y", space = "fixed") +  # 关闭自动空间分配
  coord_flip() +
  theme(
    strip.text.y = element_text(angle = 0, size = rel(4)),
    # 给标题栏设置固定高度，确保文本能放下
    strip.background.y = element_rect(height = unit(2, "cm")),
    # 可选：给文本添加内边距，避免贴边
    strip.text.y = element_text(angle = 0, size = rel(4), margin = margin(l = 10, r = 10))
  )

方案3：使用ggforce的facet_row实现灵活高度控制 #

ggforce包的facet_row函数支持直接手动设置每个分面的高度比例，比原生ggplot更灵活：

library(tidyverse)
library(ggforce)

d <- tibble(
  x = factor(1:40),
  y = rnorm(40),
  g = c(rep("GROUP 1", 39), "GROUP 2")
)

ggplot(d) +
  aes(x = x, y = y) +
  geom_col() +
  # 手动设置分面高度比例，GROUP1占85%，GROUP2占15%
  facet_row(vars(g), scales = "free_y", height = c(0.85, 0.15)) +
  coord_flip() +
  theme(
    strip.text.y = element_text(angle = 0, size = rel(4))
  )

这三个方案都能有效解决GROUP 2标题被截断的问题，你可以根据自己的需求选择最适合的方式。

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