如何为ggplot分面图添加类坐标标签？

我完全懂你现在的困扰——用固定数据坐标加标签确实会因为绘图尺寸变化而偏移，而且为了避开标题手动调整位置太折腾人。其实用grid和gtable工具就能完美解决这个问题，让标签位置基于绘图的物理布局，完全不依赖输出尺寸，还能轻松避开标题区域。

原方法的核心问题 #

• 你用annotate指定的x=5、y=5是数据坐标系的位置，当绘图尺寸改变时，数据坐标和物理像素的映射比例会变化，导致标签偏移；
• 开启clip="off"让标签显示在绘图区域外，但没有考虑标题的空间，所以容易重叠。

优化解决方案：基于gtable的物理位置添加标签 #

下面是修改后的函数，利用gtable直接操作ggplot的底层布局，把标签固定在分面的外侧：

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

df <- tribble(
  ~segment, ~scenario, ~segment_coord, ~scenario_coord,~x,~y,
  "Segment A","Scenario 1","A","1", 1,1,
  "Segment B","Scenario 1","B","1", 2,2,
  "Segment C","Scenario 1","C","1", 4,4,
  "Segment A","Scenario 2","A","2", 1,1,
  "Segment B","Scenario 2","B","2", 2,2,
  "Segment C","Scenario 2","C","2", 4,4
)

make_plot2 <- function(df, my_scenarios, my_segments){
  # 1. 生成基础分面图，无需annotate和clip=off
  p <- df %>% 
    filter(scenario_coord %in% my_scenarios) %>% 
    filter(segment_coord %in% my_segments) %>% 
    ggplot(aes(x, y)) +
    facet_grid(scenario ~ segment) +
    labs(subtitle = "Quite long subtitle that gets in the way", title = "Title") +
    theme(plot.margin=unit(c(1,2,0.5,0.5),"cm")) # 右侧预留足够空间放行标签
  
  # 2. 提取ggplot的gtable布局对象
  gt <- ggplotGrob(p)
  
  # 3. 获取分面的行列数量
  facet_rows <- length(my_scenarios)
  facet_cols <- length(my_segments)
  
  # 定位分面在gtable中的单元格索引
  # 列标签：放在标题与分面之间的行（gtable行索引为3）
  col_cell_indices <- seq(from = 4, by = 1, length.out = facet_cols)
  # 行标签：放在分面区域的右侧列
  row_cell_indices <- seq(from = 4, by = facet_cols, length.out = facet_rows)
  
  # 4. 添加列标签（A/B/C）到每列分面的正上方
  for(i in seq_along(my_segments)){
    col_label <- textGrob(
      label = my_segments[i], 
      gp = gpar(fontsize = 10),
      hjust = 0.5, vjust = 1 # 垂直方向靠上对齐
    )
    gt <- gtable_add_grob(
      gt, col_label, 
      t = 3, b = 3, # 固定在标题下方的行
      l = col_cell_indices[i], r = col_cell_indices[i]
    )
  }
  
  # 5. 添加行标签（1/2）到每行分面的右侧
  for(i in seq_along(my_scenarios)){
    row_label <- textGrob(
      label = my_scenarios[i], 
      gp = gpar(fontsize = 10),
      hjust = 0, vjust = 0.5 # 水平方向靠左对齐
    )
    gt <- gtable_add_grob(
      gt, row_label, 
      t = row_cell_indices[i], b = row_cell_indices[i] + facet_cols - 1, # 覆盖整行分面高度
      l = 4 + facet_cols, r = 4 + facet_cols # 固定在分面右侧的列
    )
  }
  
  # 6. 绘制修改后的布局
  grid.draw(gt)
}

这个方案的优势 #

• 位置绝对稳定：标签基于gtable的单元格位置添加，不管绘图尺寸怎么调整，都会牢牢固定在分面的正上方/右侧；
• 自动避开标题：列标签放在标题和分面之间的空白区域，行标签放在预留的右侧边距里，完全不会和标题/副标题重叠；
• 更简洁易维护：不需要手动生成带空元素的向量，直接根据分面数量循环添加即可，修改分面数量时也不用调整标签向量。

测试调用 #

make_plot2(df, c("1","2"), c("A","B","C"))

如果你想调整标签样式（字体大小、颜色、粗细），只需要修改gpar()中的参数，比如gpar(fontsize=12, col="darkblue", fontface="bold")。

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