如何在R中使森林图的IRR点与对应表格行对齐？

核心对齐前提 #

确保图表的y轴分类标签与表格的行，使用完全一致的分组名称和排序逻辑，这是对齐的基础。

具体实现建议 #

1. 统一分组的因子定义 #

在绘图和表格生成代码中，用相同的因子向量指定分组顺序，避免自动排序导致错位：

# 统一定义分组顺序
group_levels <- c("大麻-A", "大麻-B", "酒精-A", "酒精-B", "烟草-A", "烟草-B")
data$group <- factor(data$group, levels = group_levels)
table_data$group <- factor(table_data$group, levels = group_levels)

# 绘图时按该因子映射y轴
ggplot(data, aes(x = IRR, y = group)) + geom_point() + geom_errorbarh(...)
# 表格按因子顺序排序
table_data <- table_data %>% arrange(group)

2. 固定图表与表格的高度比例 #

用patchwork或gridExtra组合图表和表格时，设置匹配的高度参数，保证行高对应：

library(patchwork)
# 绘图时固定y轴文本大小
plot <- ggplot(...) + theme(axis.text.y = element_text(size = 10))
# 生成表格时统一行高
table <- grid.table(table_data, rows = NULL, gpar.coretext = gpar(fontsize = 10))
# 按1:1高度比例组合
plot + table + plot_layout(widths = c(3, 1), heights = c(1, 1))

3. 直接在图表内嵌表格（最优方案） #

用ggtext包将表格作为文本注释嵌入图表右侧，从根源消除对齐偏差：

library(ggtext)
# 生成HTML格式的表格文本
table_html <- paste0(
  "<table style='font-size:10px;'>",
  "<tr><th>分组</th><th>未调整IRR</th><th>调整IRR</th></tr>",
  paste0("<tr><td>", table_data$group, "</td><td>", table_data$unadjusted, "</td><td>", table_data$adjusted, "</td></tr>", collapse = ""),
  "</table>"
)
# 添加到图表右侧
ggplot(data, aes(x = IRR, y = group)) +
  geom_point() + geom_errorbarh(aes(xmin = lower, xmax = upper)) +
  annotate("richtext", x = max(data$upper)*1.2, y = median(1:nrow(data)),
           label = table_html, fill = NA, label.color = NA)

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