绘制比值比和95％置信区间

Question

我想在R中创建一个图，使用四个不同变量的比值比及其95％的置信区间。 我希望它看起来类似于下面的示例图像：

上图仅包含（b）图片，因为（a）图片几乎相似，我只想显示布局。

我一直在网上搜索，但没有发现类似的内容。 希望你能给我一些建议！

干杯!

Answer 1

或多或少，使用本地R：

### artificial data ####
set.seed(321)
bs<-sort(runif(20,-2,2))
sd<-runif(20,1,2)
li1<-bs-2*sd
li2<-bs+2*sd
dat<-data.frame(li1,bs,li2)
pos<-c(1:5,7:11,13:17,19:23)
xl=range(dat)
plot(1,type="n",xlim=xl,ylim=c(1,25),ylab="",frame.plot = F,yaxt = "n",xlab="lr")
for (i in 1:length(dat[,1])){
  lines(dat[i,],rep(pos[i],3),lty=pos[i]%%6,pch="|",type = "b",cex = .5)
}
abline(v=0,lty=3)
points(dat[,2],pos,pch="*",cex=.8)
text(-2,pos[c(5,10,15,20)]+.95,paste("Text",1:4),cex=.8)