forest(res, slab = paste(dat1$Authors, dat1$Year,sep = ", "),
xlim = c(-16, 6), at = log(c(0.05, 0.25, 1, 4,20)), atransf = exp,
ilab = cbind(dat1$a, dat1$b, dat1$c, dat1$d),
ilab.xpos = c(-9.5, -8, -6, -4.5), cex = 0.75)
进一步修饰
ref<-par(cex = 0.75, font = 2)
text(c(-9.5, -8, -6, -4.5), 10,c("TB+", "TB-", "TB+", "TB-"))
text(c(-8.75, -5.25), 16,c("Vaccinated", "Control"))
text(-16, 15, "Author(s) and Year",pos = 4)
text(6, 15, "Relative Risk [95%CI]", pos = 2)
par(ref)


雷达卡




京公网安备 11010802022788号







