在ggplot2中结合fill参数实现森林图geom_text标签精准定位（紧贴误差棒上方且无重叠）

阿华AIGC实验室

2026-4-28

解决森林图geom_text标签紧贴误差棒且避免重叠的问题

我来帮你搞定这个学术发表用森林图的标签排版问题！你的现有代码里标签和点、误差棒在同一水平线，还容易重叠，咱们一步步调整：

1. 让标签紧贴误差棒上方

首先，离散型y轴（你的term是A/B/C）的每个水平对应数值1、2、3，我们可以给标签的y值加一个小偏移量，让它刚好在误差棒上方。同时要保证position_dodge的数值和geom_point、geom_errorbar一致（都是0.9），确保标签和对应组的误差棒对齐：

修改后的核心代码片段：

geom_text(
  aes(
    label = paste0(estimate, " (", ci, ") n = ", n_obs),
    x = estimate,
    # 给y轴加偏移量，让标签上移
    y = as.numeric(term) + 0.15
  ),
  color = "black",
  position = position_dodge(.9), # 和点、误差棒的dodge值一致
  show.legend = FALSE,
  size = 3 # 可以调整字号适配
)

2. 解决标签重叠问题

如果手动调整后还是有重叠，ggrepel包是学术图里解决标签重叠的神器，它会自动计算标签的最优位置，避免互相遮挡：

第一步：安装并加载ggrepel

install.packages("ggrepel")
library(ggrepel)

第二步：替换geom_text为geom_text_repel

我们可以设置nudge_y让标签固定在误差棒上方区域，同时限制标签移动方向，保证排版整洁：

geom_text_repel(
  aes(
    label = paste0(estimate, " (", ci, ") n = ", n_obs),
    x = estimate,
    y = term
  ),
  color = "black",
  position = position_dodge(.9),
  show.legend = FALSE,
  size = 3,
  nudge_y = 0.15, # 固定上移的距离
  direction = "x", # 只允许标签在x方向调整位置，避免上下乱跑
  max.overlaps = Inf # 允许所有标签都显示，默认会隐藏部分重叠严重的
)

完整可运行代码

把这些调整整合到你的代码里，最终版本如下：

library(tidyverse)
library(knitr)
library(ggrepel) # 新增包

data <- tibble::tribble(
  ~term, ~n_obs, ~estimate, ~conf.low, ~conf.high, ~ci, ~p.value, ~group,
  "A", 101L, 0.62, 0.497390282, 0.797429694, "0.50 to 0.80", 0.000123131, "One",
  "A", 65L, 0.57, 0.468908017, 0.693458768, "0.47 to 0.69", 1.83138e-08, "Two",
  "A", 36L, 0.81, 0.623804568, 1.064787867, "0.62 to 1.06", 0.133680272, "Three",
  "B", 26L, 0.87, 0.665400224, 1.1489204, "0.67 to 1.15", 0.335220534, "One",
  "B", 16L, 1.02, 0.755403541, 1.388386542, "0.76 to 1.39", 0.878076678, "Two",
  "B", 10L, 0.29, 0.091804704, 0.978289216, "0.09 to 0.98", 0.045898245, "Three",
  "C", 143L, 0.90, 0.749027775, 1.089930323, "0.75 to 1.09", 0.289131987, "One",
  "C", 82L, 1.02, 0.82229374, 1.286815562, "0.82 to 1.29", 0.804649191, "Two",
  "C", 61L, 0.61, 0.359730119, 1.036462037, "0.36 to 1.04", 0.06765433, "Three"
)

data %>% 
  ggplot(aes(x = estimate, y = term, color = group), alpha = .7, width = .7) +
  geom_point(position = position_dodge(.9), size = 1.5) +
  geom_errorbar(aes(xmin = conf.low, xmax = conf.high), position = position_dodge(.9), size = 1) +
  # 替换为geom_text_repel，解决重叠并调整位置
  geom_text_repel(
    aes(label = paste0(estimate, " (", ci, ") n = ", n_obs)),
    color = "black",
    position = position_dodge(.9),
    show.legend = FALSE,
    size = 3,
    nudge_y = 0.15,
    direction = "x"
  ) +
  theme_bw() +
  scale_colour_grey() +
  geom_vline(xintercept = 1, linetype = "dashed") +
  ylab("") +
  xlab("Odds Ratio (95% Confidence Interval)") + # 给x轴加明确标签，适合学术发表
  theme(legend.position = "top")