如何用Base R绘图函数自动调整文本位置（替代ggplot）

针对你遇到的Author标题位置偏差问题，这里提供两个简便靠谱的解决方案：

方法1：精准控制text()函数的坐标 #

你之前硬编码text(-16,26,...)容易出错，因为绘图区域的实际边界可能和设置的ylim存在细微偏差。可以通过par("usr")获取当前绘图区域的精确坐标，动态计算文本位置：

# 先执行你原有的森林图绘制代码
forest(res, xlim=c(-16, 4.6), at=log(c(0.05, 0.25, 1, 4)), atransf=exp,
       ilab=cbind(tpos, tneg, cpos, cneg), ilab.xpos=c(-9.5,-8,-6,-4.5),
       cex=0.75, ylim=c(-1, 27), order=alloc, rows=c(3:4,9:15,20:23),
       mlab=mlabfun("RE Model for All Studies", res),
       psize=1, header=F)

# 获取绘图区域的顶部y坐标，稍微向下偏移避免贴边
top_y <- par("usr")[4] - 0.5
# 设置pos=4让文本以指定坐标为右对齐点，刚好贴合左上角
text(-16, top_y, substitute(paste(bold('Author'))), cex=0.75, pos=4)

用par("usr")获取坐标能避免硬编码数值带来的位置偏差，pos=4参数确保文本左对齐到目标位置。

方法2：用metafor自带的addtable2plot()函数（更规范） #

metafor专门提供了addtable2plot()函数用于在森林图中添加表头或表格，无需手动调整坐标：

# 绘制森林图后，添加左对齐的Author表头
addtable2plot(-16, 26, 
              text=list(bold("Author")), 
              cex=0.75, 
              align="left",
              row.names=FALSE,
              colnames=FALSE)

这个函数会自动适配森林图的坐标系统，设置align="left"就能让文本精准定位到左上角区域。如果需要添加对应2x2表格的列标题，也可以用这个函数一次性完成：

addtable2plot(c(-9.5,-8,-6,-4.5), 26, 
              text=list(bold("Tpos"), bold("Tneg"), bold("Cpos"), bold("Cneg")),
              cex=0.75,
              align="center",
              row.names=FALSE,
              colnames=FALSE)

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