r - 从 Metafor 中的注释中删除上下 CI

Question

我正在使用 Metafor 包绘制森林图，我想知道是否有人知道从文本注释中省略上下 CI 的方法，例如，其中一组是参考，结果固定为 1。

这是一个例子：

library(metafor)

par(mar=c(5,4,1,2))

forest(x     = c(1, 0.9, 1.1),
       ci.ub = c(1, 0.98, 1.18),
       ci.lb = c(1, 0.82, 1.02),
       refline = 1)

我只想从 Study 1 行中删除 [1.00, 1.00]，只留下 1.00。

我能想到的唯一可能性是在这些顶部绘制一些白色的东西，但这会很繁琐，而且我有一个包含许多组的大型复杂情节。

Answer 1

您可以使用函数调用生成的图形，forest使用选项删除右侧的注释annotate = FALSE。之后，您可以选择使用函数（可能性有限）添加自己的文本，text如下面的代码所示。

library(metafor)
par(mar=c(5,4,1,2))

forest(x     = c(1, 0.9, 1.1),
       ci.ub = c(1, 0.98, 1.18),
       ci.lb = c(1, 0.82, 1.02),
       refline = 1,
       annotate = FALSE,   ### added
       )

text(x = c(1.25, 1.25, 1.25), y = c(3, 2, 1), 
     label=c("1.00", "0.90", "1.10"))

这会产生以下图表：