R语言metafor包森林图无法添加表头文本问题求助

我帮你排查了问题，核心原因是你手动用text()指定的y轴位置（15）超出了森林图的实际绘图区域，导致表头文本被截断，所以看不到。下面给你两种可靠的解决方案：

方案1：直接使用forest()函数的header参数（推荐） #

metafor的forest()函数本身提供了header参数，可以直接添加自定义表头，不需要手动计算位置，代码更简洁可靠：

library(metafor)
par(mar=c(4,4,1,2))
res <- rma(yi, vi, data=dat, slab=paste(author, year, sep=", "))
tmp <- cumul(res, order=order(dat$year))

# 直接在forest()中指定header参数
forest(tmp, xlim=c(-4,2), at=log(c(0.125, 0.25, 0.5, 1, 2)), atransf=exp, 
       digits=c(2,3), cex=0.75,
       header=c("Author(s) and Year", "Odds Ratio [95% CI]"))

方案2：动态获取绘图区域的y轴上限定位文本 #

如果你还是想用text()手动添加，需要先获取当前绘图区域的实际y轴范围，再调整文本位置，避免超出区域：

library(metafor)
par(mar=c(4,4,1,2))
res <- rma(yi, vi, data=dat, slab=paste(author, year, sep=", "))
tmp <- cumul(res, order=order(dat$year))

# 绘制森林图
forest(tmp, xlim=c(-4,2), at=log(c(0.125, 0.25, 0.5, 1, 2)), atransf=exp, digits=c(2,3), cex=0.75)

# 获取当前绘图区域的y轴上限（par("usr")返回的是x左、x右、y下、y上）
y_upper <- par("usr")[4]

# 在上限基础上微调位置，确保文本显示在绘图区域上方
par(cex=0.75, font=2)
text(-4, y_upper + 0.5, "Author(s) and Year", pos=4)
text(2, y_upper + 0.5, "Odds Ratio [95% CI]", pos=2)

为什么你的原代码看不到文本？ #

当你运行forest(tmp)后，森林图的y轴范围是自动计算的，你的数据集有7个原始研究+7个累积分析结果+1个汇总行，总共15个条目，但绘图区域的y轴上限通常会略低于15（比如14.5左右），你指定的y=15已经超出了可见区域，所以文本被隐藏了。动态获取par("usr")[4]可以确保你始终在正确的位置添加文本。

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