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