一、先搞定par()的默认恢复 #

你怀疑是修改par()导致的空白问题，最快的修复方法有两种：

• 直接重置图形设备：运行dev.off()，直到控制台返回null device（意思是所有图形窗口都关了），之后重新绘制图形，par()就自动回到默认状态了。
• 提前备份默认参数（适合后续反复调整时快速切换）：

  # 先保存初始默认设置
  default_par <- par(no.readonly = TRUE)
  # 之后如果改乱了par，直接运行这句恢复
  par(default_par)
  

二、把森林图调成紧凑出版级样式 #

假设你用的是常用的forestplot包（如果是meta这类包，优化思路是一致的），可以从这几个方向入手压缩空白：

1. 收紧图形边距 #

默认的边距往往偏宽，绘图前先设置紧凑的边距参数：

par(mar = c(3, 5, 0.5, 0.5)) # 顺序是下、左、上、右，单位是"线(line)"，数值按需调整

比如减少上下边距，把空间留给森林图的核心内容。

2. 用绘图函数的内置参数压缩间距 #

以forestplot()为例，这些参数能帮你大幅减少空白：

• lineheight：缩小行与行之间的高度，比如设为0.8
• boxsize：缩小置信区间的方块尺寸，避免占过多横向空间
• graph.pos：指定森林图的位置，让它更贴近左侧/右侧的文本标签
• 不需要的坐标轴标签直接设为""，减少冗余

示例代码片段：

library(forestplot)

# 模拟示例数据
study_labels <- c("Study", "甲研究", "乙研究", "丙研究", "合并结果")
or_values <- c("OR", "1.23", "0.89", "1.56", "1.18")
mean_vals <- c(NA, 1.23, 0.89, 1.56, 1.18)
lower_ci <- c(NA, 0.91, 0.67, 1.12, 0.95)
upper_ci <- c(NA, 1.65, 1.18, 2.18, 1.47)

# 绘制紧凑版森林图
forestplot(cbind(study_labels, or_values),
           mean = mean_vals, lower = lower_ci, upper = upper_ci,
           lineheight = 0.8,  # 缩小行高
           boxsize = 0.3,     # 缩小置信区间方块
           mar = unit(c(1, 1, 1, 1), "lines"), # 内置边距设置
           graph.pos = 2      # 让森林图靠近右侧的OR数值
)

3. 直接导出固定尺寸的出版级图片 #

如果用zoom窗口看还是有空白，不如直接导出为指定尺寸的矢量图（比如PDF，清晰度更高），强制压缩图形比例：

pdf("compact_forestplot.pdf", width = 6, height = 4) # 按需调整宽高
# 这里放入你的森林图绘制代码
dev.off()

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