如何控制facet grid的行列数并仅保留最左列分类轴标签？

用facet_wrap实现（配合主题或工具包） #

facet_wrap默认每个子图都带轴标签，但可以通过两种方式控制：

原生ggplot2手动控制 #

先给数据加个标记，区分每个分面属于左列还是右列，再通过主题设置隐藏右列的y轴标签：

library(ggplot2)
library(dplyr)

# 构造示例数据
set.seed(123)
df <- expand.grid(category = factor(letters[1:4]), x = 1:10) %>%
  mutate(y = rnorm(n()))

# 给每个分类标记所在列（2列布局里，1、3类在左列，2、4在右列）
df <- df %>%
  mutate(is_left_col = as.integer(category) %% 2 == 1)

ggplot(df, aes(x, y)) +
  geom_point() +
  facet_wrap(~category, ncol = 2) +
  theme(
    # 左列显示y轴文本，右列设为透明（或直接element_blank()）
    axis.text.y = element_text(color = ifelse(df$is_left_col, "black", NA)),
    axis.title.y = element_text(color = ifelse(df$is_left_col[1], "black", NA)),
    # 可选：隐藏右列的y轴刻度
    axis.ticks.y = element_line(color = ifelse(df$is_left_col, "black", NA))
  )

用ggh4x包简化操作 #

ggh4x的facet_wrap2专门做了这类轴标签控制，一行代码就能搞定：

library(ggh4x)

ggplot(df, aes(x, y)) +
  geom_point() +
  facet_wrap2(~category, ncol = 2, axes = "y", axis.labels = "left")

用facet_grid实现2×2布局 #

facet_grid需要明确行和列的分组变量，所以先把你的4个分类拆成2行2列的分组：

# 给数据加行、列分组
df <- df %>%
  mutate(
    row = factor(ifelse(as.integer(category) <= 2, "行1", "行2")),
    col = factor(ifelse(as.integer(category) %% 2 == 1, "列1", "列2"))
  )

ggplot(df, aes(x, y)) +
  geom_point() +
  facet_grid(row ~ col, scales = "free_y", space = "free_y") +
  theme(
    # 要是不需要分面的行/列标题，就把它们隐藏
    strip.text.x = element_blank(),
    strip.text.y = element_blank()
  )

facet_grid默认就只会在最左列显示y轴标签，最底部显示x轴标签，刚好符合你的需求。scales = "free_y"能让每个子图的y轴范围独立，space = "free_y"可以让行高适配内容。

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