ggplot2柱状图自定义：复刻目标图形的技术求助

我希望绘制出和下图A完全一致（或高度类似）的图形，目前已经写了部分代码、整理好相关数据，但在图形自定义的细节上卡壳了，恳请各位大佬帮忙支招，提前谢过大家！

现有数据与代码片段： #

groupe2<-rep(c(rep("P",4),rep("I",4)),3)
groupe<-rep(c("PPP","PPI","PII","PIP","III","IIP","IPP","IPI"),3)
OR_A<-c(1.00,0.86,0.90,0.88,0.70,0.77,0.77,0.68)
ICinf_A<-c(NA,0.70,0.76,0.72,0.61,0.61,0.60,0.50)
ICsup_A<-c(NA,1.06,1.06,1.07,0.81,0.96,1.00,0.92)
OR_B<-c(1.00,0.97,0...

（小提醒：OR_B的数据看起来没写完，如果能补充完整的话，咱们能更精准地调整图形哦）

另外如果可以，麻烦描述下图A的关键特征，比如：

• 是不是森林图（forest plot）？
• groupe2里的P/I分组要怎么可视化区分（比如颜色、位置）？
• 置信区间的线条样式、点的大小颜色有没有特殊要求？
• 是否需要添加标题、坐标轴标签或者自定义图例？
• 有没有参考线、显著性标记这类特殊元素？

提供这些细节后，我们就能针对性地帮你完善代码，实现和图A一致的效果啦！

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