<div dir="ltr"><div class="gmail_extra">Pedro, bom dia!</div><div class="gmail_extra"><br></div><div class="gmail_extra">Eu não tenho domínio desses pacotes, mas dei uma olhada e consegui alguma coisa... Acredito que você possa melhorar a partir dos comandos abaixo. Caso consiga, peço que poste a solução! Pra remover as bordas é só comentar <span style="font-family:monospace,monospace">grid.rect().</span></div><div class="gmail_extra"><br></div><div class="gmail_extra"><font face="monospace, monospace">### <code r></font></div><div class="gmail_extra"><div class="gmail_extra"><font face="monospace, monospace">if (!require("meta")) {install.packages("meta", dep=T); require("meta")}</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">b <- structure(list(ID2 = c("Lorca M-1992", "Carvalho MR-1993", "Hamerschlak N-1997","Oeleman WMR-1998", </font></div><div class="gmail_extra"><font face="monospace, monospace">                                "Cabalero ZC-2007", "Otani MM-2009", "Otani MM-2009", "Remesar MC-2009", </font></div><div class="gmail_extra"><font face="monospace, monospace">                                "Anes N-2010", "Flores Chaves M-2010"), </font></div><div class="gmail_extra"><font face="monospace, monospace">                        VP = c(77, 224, 20, 515, 68, 167, 167, 340, 19, 66), </font></div><div class="gmail_extra"><font face="monospace, monospace">                        VN = c(98, 182, 36, 481, 225, 257, 261, 1097, 15, 132), </font></div><div class="gmail_extra"><font face="monospace, monospace">                        with = c(82, 224, 20, 539, 69, 168, 168, 356, 23, 66), </font></div><div class="gmail_extra"><font face="monospace, monospace">                        without = c(98, 191, 40, 486, 238, 262, 262, 1099, 15, 157), </font></div><div class="gmail_extra"><font face="monospace, monospace">                        group = c("ABBOTT-ABBOTT CHAGAS ELISA", "ABBOTT-ABBOTT CHAGAS ELISA", </font></div><div class="gmail_extra"><font face="monospace, monospace">                                  "ABBOTT-ABBOTT CHAGAS ELISA", "ABBOTT-ABBOTT CHAGAS ELISA",</font></div><div class="gmail_extra"><font face="monospace, monospace">                                  "BIOSCHILE-TEST ELISA CHAGAS", "ABBOTT-ABBOTT CHAGAS ELISA",</font></div><div class="gmail_extra"><font face="monospace, monospace">                                  "BIOSCHILE-TEST ELISA CHAGAS", "BIOSCHILE-TEST ELISA CHAGAS",</font></div><div class="gmail_extra"><font face="monospace, monospace">                                  "BIOSCHILE-TEST ELISA CHAGAS", "BIOSCHILE-TEST ELISA CHAGAS")), </font></div><div class="gmail_extra"><font face="monospace, monospace">                   .Names = c("ID2","VP", "VN", "with", "without", "group"), </font></div><div class="gmail_extra"><font face="monospace, monospace">                   row.names = c(50L, 42L,69L, 60L, 37L, 113L, 111L, 124L, 97L, 102L), class = "data.frame")</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">b$Q47="ELISA"</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace"><a href="http://m.e.se">m.e.se</a> <- metaprop(VP, with, studlab=ID2 ,data=b,subset=Q47=="ELISA",incr=.1,allincr=T,addincr=T,comb.fixed=F,hakn=T,title="ELISA for Chagas disease",complab='With Chagas',outclab="True positives",byvar=group,bylab='Trademark-name',print.byvar=T)</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">m.e.sp <- metaprop(VN, without, studlab=ID2 ,data=b,subset=Q47=="ELISA",incr=.1,allincr=T,addincr=T,comb.fixed=F,hakn=T,title="ELISA for Chagas disease",complab='With Chagas',outclab="True negatives",byvar=group,bylab='Trademark-name',print.byvar=T)</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">require(grid)</font></div><div class="gmail_extra"><font face="monospace, monospace">grid.newpage)()</font></div><div class="gmail_extra"><font face="monospace, monospace">grid.show.layout(grid.layout(nrow = 1, ncol = 2, widths=unit(c(27,17), "cm"), heights=unit(18, "cm")))</font></div><div class="gmail_extra"><font face="monospace, monospace">vp0 <- viewport(layout=grid.layout(nrow = 1, ncol = 2, widths=unit(c(27,17), "cm"), heights=unit(18, "cm")))</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">pushViewport(vp0)</font></div><div class="gmail_extra"><font face="monospace, monospace">grid.rect()</font></div><div class="gmail_extra"><font face="monospace, monospace">grid.text(paste("texto", collapse="-"))</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">pushViewport(viewport(layout.pos.col=1, layout.pos.row=1), clip="off")</font></div><div class="gmail_extra"><font face="monospace, monospace">grid.rect()</font></div><div class="gmail_extra"><font face="monospace, monospace">forest(new=F, <a href="http://m.e.se">m.e.se</a>,overall=F,text.random="D&L random effects",pooled.events=T,xlab="Sensitivity",rightcols=F,leftcols=c("studlab", "event", "n","effect", "ci"),leftlabs=c("Study","TP","With","Sensitivity","95%-CI"))</font></div><div class="gmail_extra"><font face="monospace, monospace">popViewport(1)</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">pushViewport(viewport(layout.pos.col=2, layout.pos.row=1))</font></div><div class="gmail_extra"><font face="monospace, monospace">grid.rect()</font></div><div class="gmail_extra"><font face="monospace, monospace">forest(new=F,m.e.sp,overall=F,text.random="D&L random effects",pooled.events=T,xlab="Specificity",rightcols=c("effect", "ci"),leftcols=c("n","event"),leftlabs=c("TN","Without"),rightlabs=c("Specificity","95%-CI"))</font></div><div class="gmail_extra"><font face="monospace, monospace">popViewport(1)</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">### </code></font></div><div class="gmail_extra"><br></div><div class="gmail_extra"><img src="cid:ii_14cbd925a7b58ccc" alt="Imagem inline 2" width="562" height="422"><br></div></div></div>