绘制比值比和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)