如何去除netmeta绘制全比较NMA森林图中的重复信息

netmeta绘制森林图时默认会展示双向对称的比较（比如A vs B和B vs A），这就是你看到重复数据的原因。要保留你指定的比较组合，最简单的方式是在forest()函数中用subset参数筛选目标比较，具体实现如下：

方法一：直接在绘图时筛选比较 #

先定义需要保留的比较对，再通过subset参数过滤：

library(netmeta)
data("smokingcessation", package ='netmeta')

p1 <- pairwise(treat = list(treat1, treat2, treat3), event = list(event1, event2, event3),  n = list(n1, n2, n3), data = smokingcessation, sm = 'RD')
net <- netmeta(p1, common = TRUE, all.treatments = T, sm='RD', method.tau='REML')

# 定义你需要保留的比较组合
target_comparisons <- c("B vs A", "C vs A", "D vs A",
                        "D vs B", "C vs B",
                        "D vs C")

# 绘制筛选后的森林图
forest(net, xlim=c(-0.1,0.1), pooled='common',
       reference.group = c('A', 'B', 'C', 'D'),
       drop.reference = T,
       sortvar = -TE,
       # 核心：只保留指定的比较
       subset = comparison %in% target_comparisons
) 

方法二：提前筛选netmeta对象（适合重复使用场景） #

如果需要后续多次使用筛选后的结果，可以先对net对象进行过滤，再绘图：

# 基于已有的net对象筛选目标比较
target_comparisons <- c("B vs A", "C vs A", "D vs A",
                        "D vs B", "C vs B",
                        "D vs C")

# 同步筛选所有相关统计量
filtered_net <- net
filtered_net$comparison <- filtered_net$comparison[filtered_net$comparison %in% target_comparisons]
filtered_net$TE <- filtered_net$TE[filtered_net$comparison %in% target_comparisons]
filtered_net$seTE <- filtered_net$seTE[filtered_net$comparison %in% target_comparisons]
filtered_net$lower <- filtered_net$lower[filtered_net$comparison %in% target_comparisons]
filtered_net$upper <- filtered_net$upper[filtered_net$comparison %in% target_comparisons]

# 用筛选后的对象绘制森林图
forest(filtered_net, xlim=c(-0.1,0.1), pooled='common',
       reference.group = c('A', 'B', 'C', 'D'),
       drop.reference = T,
       sortvar = -TE
) 

两种方法都能精准保留你需要的比较组合，排除重复的反向对比。方法一更简洁，适合单次绘图；方法二更灵活，适合需要对筛选结果做后续分析的场景。

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