R语言ggplot分面各面板添加不同尺寸geom_rect标注方法

核心实现逻辑是构造和分面变量绑定的注释辅助数据框，通过geom_rect调用该数据集，即可自动为每个分面匹配对应参数的矩形，替代只能全局统一添加的annotate方法。

实现步骤 #

• 构造矩形注释专用数据框
  数据框需要包含：分面变量列（和原数据分面字段名、分组值完全一致）、每个分面对应的矩形坐标参数（xmin/xmax/ymin/ymax）：

  rect_anno <- data.frame(
    c = c("F", "M"),       # 和原数据分面列c对应，指定矩形归属的分面
    ymin = c(90, 100),     # F分面ymin=90，M分面ymin=100
    ymax = c(100, 110),    # F分面ymax=100，M分面ymax=110
    xmin = -Inf,
    xmax = Inf
  )
  

• 调整绘图代码，添加专属geom_rect图层
  注意两个关键设置：

  • 把矩形图层放在所有绘图图层最前方（ggplot图层按书写顺序从下往上叠加，放在最前不会遮挡箱线图、散点等主图元素）
  • 添加inherit.aes = FALSE参数，关闭全局映射继承，避免注释数据缺少全局映射字段导致报错

  完整可运行代码如下：

  library(ggplot2)
  library(ggpubr) # 加载该包以支持stat_compare_means函数
  
  # 构造示例数据
  set.seed(123) # 固定随机种子保证结果可复现
  a <- c(x= rnorm(30, mean = 100, sd=2))
  b <- c(rep(c("X", "Y"), 30))
  c <- c(rep("F", 15), rep("M",15))
  abc <- data.frame(a, b, c)
  
  # 绘图
  ggplot(abc, aes(x = b , y = a, fill=b)) +
    # 差异化矩形图层
    geom_rect(
      data = rect_anno,
      aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax),
      fill = "grey",
      alpha = 0.4,
      inherit.aes = FALSE
    ) +
    geom_boxplot(alpha= 0.8) +
    geom_point(position = position_dodge(width=0.75))+
    ylab(label = "a")+
    scale_fill_manual(values = c("blue", "red"))+
    stat_compare_means(label.x.npc = "center")+ 
    facet_wrap(~c)
  

扩展说明 #

• 如果需要给不同分面的矩形设置不同的填充色、透明度，直接在rect_anno数据框中新增对应列，在geom_rect的aes()中做映射即可，例如要给M分面设置浅黄色矩形，只需在构造rect_anno时新增fill_col = c("grey", "lightyellow")列，再在aes中添加fill = fill_col，同时删掉geom_rect中固定写死的fill = "grey"参数即可。
• 该方法同样适用于facet_grid分面场景，只需要在注释数据框中把所有分面变量的分组值都匹配完整即可。

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