ggplot2中facet_grid子图独立Y轴+列固定X轴的实现问题

AI 小北

2026-5-14

刚好碰到过类似的需求，原生ggplot的facet_grid和facet_wrap确实没法同时满足「每个子图独立Y轴+同一列X轴固定+保留原strip标签」这三个要求，lemon的facet_rep_grid也只是重复刻度而非真正让Y轴范围独立。这里推荐用patchwork包来手动拼接子图，完全实现你的需求。

具体实现步骤

1. 准备环境和数据

先安装并加载需要的包，你的示例数据直接沿用：

install.packages("patchwork")
library(ggplot2)
library(patchwork)
library(dplyr) # 用来处理X轴范围

BAAM = data.frame(Subject = rep(c("S1", "S2", "S3", "S4"), each=4), 
                  Feature = rep(c("Maximum negative\namplitude [µV]", "Duration [sec]", "Descending\nslope [µV/sec]", "Ascending\nslope [µV/sec]"), times=4), 
                  mean = c(-200, 1, 1500, 1600, -210, 1.1, 1300, 1500, -250, 3, 1400, 1600, -50, 0.5, 1000, 1000), 
                  dif = c(20, 0.1, 200, 300, 10, -0.3, -100, 400, 30, 0.4, -200, -200, -20, 0.6, 300, 400))

2. 锁定每列的X轴范围

为了保证同一列（相同Feature）的子图X轴完全一致，先计算每个Feature对应的mean的最小/最大值：

x_limits <- BAAM %>%
  group_by(Feature) %>%
  summarise(x_min = min(mean), x_max = max(mean))

3. 生成每个独立子图

遍历所有Subject和Feature的组合，为每个组合生成单独的散点图，设置Y轴自由、X轴用对应Feature的固定范围：

plot_list <- list()
idx <- 1

for (subj in unique(BAAM$Subject)) {
  for (feat in unique(BAAM$Feature)) {
    # 筛选当前子图的数据
    sub_data <- BAAM %>% filter(Subject == subj, Feature == feat)
    # 获取当前Feature的X轴范围
    current_xlim <- x_limits %>% filter(Feature == feat)
    
    # 绘制子图
    plot_list[[idx]] <- ggplot(sub_data, aes(x = mean, y = dif)) +
      geom_point() +
      theme_minimal() +
      # 固定X轴范围，Y轴按当前数据自动调整
      xlim(current_xlim$x_min, current_xlim$x_max) +
      scale_y_continuous(limits = range(sub_data$dif)) +
      # 统一主题样式，和你的原代码对齐
      theme(text = element_text(size = 20),
            axis.text.x = element_text(angle = 45, hjust = 1),
            axis.title.x = element_blank(),
            axis.title.y = element_blank())
    idx <- idx + 1
  }
}

4. 用patchwork拼接布局并模拟strip标签

把所有子图按4列排列，然后添加行/列的标签，模拟原facet_grid的strip效果：

wrap_plots(plot_list, ncol = 4) +
  plot_annotation(title = "Slow Wave Characteristics - Bland Altman plot") +
  # 配置行列标签，对应原strip的Subject和Feature
  plot_layout(tag_levels = list(unique(BAAM$Subject), unique(BAAM$Feature))) +
  theme(
    plot.title = element_text(size = 20, hjust = 0.5),
    # 行标签（左侧，对应Subject）
    plot.tag = element_text(size = 20),
    plot.tag.position = c(0.01, 0.5),
    # 列标签（底部，对应Feature）
    plot.subtitle = element_text(size = 20, hjust = 0.5),
    panel.spacing = unit(2, "lines"),
    # 添加坐标轴边框，替代你原代码里的annotate线条
    panel.border = element_rect(color = "black", fill = NA, size = 1)
  )

最终效果说明

每个子图的Y轴范围完全独立，只适配自身的dif数据
同一列的X轴范围完全一致，满足你固定列X轴的要求
保留了原有的Subject（行）和Feature（列）的标签结构，和facet_grid的strip体验一致
主题样式和你原代码保持统一，包括字体大小、X轴刻度旋转等

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