如何调整R ggplot2自制森林图的变量标签位置以节省横向空间

针对你遇到的变量名过长、横向空间不足的问题，有两种实用方案可以将左侧粗体变量名移至对应系数组的正上方：

方案1：利用分面（Facet）实现顶部标签 #

这是最简洁的方式，通过按预测变量分面并将分面标签放在顶部，替代左侧的变量名，同时纵向仅显示因子水平：

步骤1：确保数据结构正确 #

假设你的tt数据框包含variable（预测变量名称，即原左侧粗体文本）、level（因子水平）、OR（比值比）、lower/upper（置信区间上下限）。如果你的term列是变量名+水平的组合，先拆分：

library(tidyr)
tt <- tt %>%
  separate(term, into = c("variable", "level"), sep = " ", extra = "merge")

步骤2：修改ggplot代码 #

library(ggplot2)

ggplot(tt, aes(x = OR, y = level)) +
  # 添加OR=1参考线
  geom_vline(xintercept = 1, linetype = "dashed", color = "gray50") +
  # 绘制置信区间
  geom_errorbarh(aes(xmin = lower, xmax = upper), height = 0.2) +
  # 绘制系数点
  geom_point(size = 2) +
  # 按预测变量分面，标签置于顶部，纵向排列分面
  facet_wrap(~variable, ncol = 1, strip.position = "top") +
  # 调整主题样式
  theme_bw() +
  theme(
    # 设置分面标签为粗体，替代原左侧粗体变量名
    strip.text = element_text(face = "bold", size = 10),
    # 隐藏y轴标题
    axis.title.y = element_blank(),
    # 压缩分面之间的空隙，保持紧凑布局
    panel.spacing = unit(0, "lines"),
    # 可选：去掉y轴刻度线
    axis.ticks.y = element_blank()
  )

方案2：直接添加顶部注释（无需分面） #

如果不想拆分图表为多个分面，可通过计算位置在每个因子组上方直接添加变量名注释：

步骤1：计算注释位置 #

library(dplyr)

tt <- tt %>%
  # 将因子水平转为数值型y轴位置
  mutate(y_num = as.numeric(factor(level))) %>%
  # 计算每个变量组的y轴最高位置，偏移0.5作为注释位置
  group_by(variable) %>%
  mutate(annotate_y = max(y_num) + 0.5) %>%
  ungroup()

步骤2：绘制图表并添加注释 #

ggplot(tt, aes(x = OR, y = y_num)) +
  geom_vline(xintercept = 1, linetype = "dashed", color = "gray50") +
  geom_errorbarh(aes(xmin = lower, xmax = upper), height = 0.2) +
  geom_point(size = 2) +
  # 在每个变量组上方添加粗体变量名
  geom_text(aes(x = 1, y = annotate_y, label = variable),
            fontface = "bold", size = 4, hjust = 0.5) +
  # 将y轴刻度替换为因子水平名称
  scale_y_continuous(breaks = tt$y_num, labels = tt$level) +
  theme_bw() +
  theme(axis.title.y = element_blank())

这两种方案都能有效节省横向空间，根据你的图表布局需求选择即可。

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