###R version 4.1.1###

setwd("~")###Set working directory, please replace it with your working directory###
###please install meta package###

library(meta)

case2.data <- as.data.frame(matrix(NA,12,7))
case2.data$V1 <- c('Breedveld et al.','Klareskog et al.','Puéchal et al.','Vanni et al.','Van Vollenhoven et al.',
                   'Westhovens et al.','Berge et al.','Polesie et al.','Chaparro et al.','Polesie et al.','Polesie et al.','Yan et al.')

case2.data$V2 <- c(2006,2004,2016,2020,2020,2021,2020,2020,2017,2017,2017,2021)
case2.data$V3 <- c('RCT','RCT','RCT','RCT','RCT','RCT',"NRSI","NRSI","NRSI","NRSI","NRSI","NRSI")
case2.data$V4 <- c(1,0,0,6,0,1,179,97,2,591,101,8)
case2.data$V5 <- c(257,117,52,1281,314,416,1671,1051,520,101169,1216,196)
case2.data$V6 <- c(0,1,1,3,1,0,11927,298,8,2506,553,358)
case2.data$V7 <- c(274,223,63,2395,631,210,128999,3294,5057,505090,6695,18918)
colnames(case2.data) <- c('Author','Year','Design','a','b',"c","d")

meta.conventional.case2 <- metabin(a,b,c,d,data=case2.data,sm="OR",method="Inverse",studlab=paste(Author,Year,sep="-"),byvar=Design)

png(file = "~\\Figure_2.png", width = 2800, height = 2000, res = 300)
forest(meta.conventional.case2,comb.fixed = F)
dev.off()