要解决你的问题（让每个分面单独成行、缩小Y轴分面框宽度，同时保留label_both的标签样式），我们可以从两个方向入手，核心是调整分面的布局方式和标签样式的细节：

方案1：使用facet_wrap替代facet_grid（推荐） #

facet_wrap更适合实现单列布局（每个分面单独一行），同时可以灵活控制标签的位置和样式。关键是设置ncol=1让分面垂直排列，strip.position="left"把标签放在Y轴侧，再调整标签角度和宽度：

library(ggplot2)

p <- ggplot(mtcars, aes(x = mpg)) + 
  geom_histogram(bins = 5) +
  # 用vs+am的组合作为分面变量，单列布局，标签放在左侧
  facet_wrap(~ vs + am, ncol = 1, labeller = label_both, strip.position = "left") +
  theme(
    # 设置左侧标签的角度、对齐方式，可调整size缩小宽度
    strip.text.y.left = element_text(angle = 0, hjust = 0, size = 8),
    # 可选：调整分面标签背景的宽度，进一步缩小分面框
    strip.background.y.left = element_rect(width = unit(0.8, "cm")),
    # 可选：调整绘图区域左边距，避免标签被截断
    plot.margin = margin(1, 1, 1, 0.5, "cm")
  )

print(p)

方案2：优化原有facet_grid的布局 #

如果你坚持使用facet_grid，可以通过将vs和am合并为一个交互变量，避免嵌套分面导致的宽标签，同时调整样式参数缩小宽度：

library(ggplot2)

p <- ggplot(mtcars, aes(x = mpg)) + 
  geom_histogram(bins = 5) +
  # 用interaction()将vs和am组合为单个行变量，每个组合对应一行分面
  facet_grid(rows = vars(interaction(vs, am)), labeller = label_both) +
  theme(
    strip.text.y = element_text(angle = 0, hjust = 0, size = 8),
    # 缩小分面标签与绘图区域的间距
    strip.switch.pad.grid = unit(0.1, "cm"),
    # 调整左边距优化显示
    plot.margin = margin(1, 1, 1, 0.5, "cm")
  )

print(p)

关键说明： #

• 两种方案都保留了label_both的标签样式（显示变量名+值，比如vs:0, am:1）
• 通过调整strip.text.y的size参数、strip.background的宽度，可以有效缩小Y轴分面框的宽度
• facet_wrap的单列布局更直观，也更容易调整整体排版，推荐作为首选方案

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