如何优化Metafor森林图展示超百项研究，提升可读性？

针对100+研究的森林图行重叠、调小字号又看不清的问题，给你几个实用方案：

• 分栏展示研究：用split参数把研究拆成多栏，减少单栏的行数，避免重叠。比如拆成2栏：

  library(metafor)
  
  res <- rma(yi, vi, data=dat)
  # 生成分组向量，把研究平均分成2栏
  split_groups <- rep(1:2, each = ceiling(nrow(dat)/2))
  par(mar = c(6, 6, 6, 6))
  forest(res, split = split_groups, addpred=T, header=TRUE, atransf=exp, 
         at=log(c(.05, 0.5, 5, 15)), xlim=c(-5,5), ylim=c(-3, 100), cex=.75)
  

• 扩大画布+调整行间距：通过ylim拉高纵向画布，给每行预留足够空间，同时用psize控制点的大小，避免点重叠：

  par(mar = c(6, 8, 6, 6)) # 加大左侧边距，防止标签被截断
  forest(res, addpred=T, header=TRUE, atransf=exp, 
         at=log(c(.05, 0.5, 5, 15)), xlim=c(-5,5), ylim=c(-5, nrow(dat)+10), 
         cex=.75, psize=0.8)
  

  ylim的上限设为研究数量+额外空间，保证每行都有足够高度。

• 导出为大尺寸矢量图：直接在R窗口看挤的话，导出成PDF/SVG格式，设置足够大的画布尺寸，放大后依然清晰：

  pdf("large_forest_plot.pdf", width=12, height=20) # 宽高可根据研究数量调整
  par(mar = c(6, 6, 6, 6))
  forest(res, addpred=T, header=TRUE, atransf=exp, 
         at=log(c(.05, 0.5, 5, 15)), xlim=c(-5,5), ylim=c(-3, nrow(dat)+10), cex=.75)
  dev.off()
  

• 精简研究标签：如果原标签太长，先简化标签内容（比如只保留第一作者+年份），减少每行宽度，让布局更宽松：

  # 假设dat包含author和year列，合并成短标签
  dat$short_label <- paste(dat$author, dat$year, sep = ", ")
  # 绘制时指定简化后的标签
  forest(res, addpred=T, header=TRUE, atransf=exp, 
         at=log(c(.05, 0.5, 5, 15)), xlim=c(-5,5), ylim=c(-3, nrow(dat)+10), 
         cex=.75, slab=dat$short_label)
  

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