<div dir="ltr"><div class="gmail_default" style="font-family:courier new,monospace;color:#000066">Ei Éder,</div><div class="gmail_default" style="font-family:courier new,monospace;color:#000066"><br></div><div class="gmail_default" style="font-family:courier new,monospace;color:#000066">Hoje finalmente eu pude olhar e testar o exemplo que voce mandou e funcionou bem. Alguma pequenas modificações pra funcionar com os meus dados verdadeiros, Principalmente retirar a fixação do tamanho da janela e colocar essas timensões dentro da função tiff que salva o grafico. Eu percebi que a grande diferença entre o seu exemplo e as minhas tentativas frustradas eram o new=F dentro da forest que eu não estava usando, ao contrario eu estava tentando forçar o new = T, o que fez toda a diferença. </div><div class="gmail_default" style="font-family:courier new,monospace;color:#000066"><br></div><div class="gmail_default" style="font-family:courier new,monospace;color:#000066">Valeu mesmo.  </div><div class="gmail_default" style="font-family:courier new,monospace;color:#000066"><br></div><div class="gmail_default" style="font-family:courier new,monospace;color:#000066">Abraço,</div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div>
<br><div class="gmail_quote">2015-04-16 9:10 GMT-03:00 Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_extra">Pedro, bom dia!</div><div class="gmail_extra"><br></div><div class="gmail_extra">A figura que segue (DoubleForest.png) é gerada pelo código colocado logo abaixo. A exibição on-screen só fica adequada no modo zoom do RStudio. Apesar de não aparecer corretamente na exibição da janela gráfica (windows/x11/quartz), quando direcionada pro dispositivo png() parece funcionar corretamente.</div><div class="gmail_extra"><br></div><div class="gmail_extra"><img style="margin-right:0px" width="917" height="349"><br><br></div><div class="gmail_extra"><br></div><div class="gmail_extra"><div><div class="h5"><div class="gmail_extra"><font face="monospace, monospace">### <code r></font></div><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" target="_blank">m.e.se</a> <- metaprop(VP, with,    studlab=ID2, data=b, subset=Q47=="ELISA", incr=.1,</font></div><div class="gmail_extra"><font face="monospace, monospace">                   allincr=T, addincr=T, comb.fixed=F,hakn=T,title="ELISA for Chagas disease",</font></div><div class="gmail_extra"><font face="monospace, monospace">                   complab='With Chagas', outclab="True positives", byvar=group, bylab='Trademark-name',</font></div><div class="gmail_extra"><font face="monospace, monospace">                   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,</font></div><div class="gmail_extra"><font face="monospace, monospace">                   allincr=T, addincr=T, comb.fixed=F,hakn=T,title="ELISA for Chagas disease",</font></div><div class="gmail_extra"><font face="monospace, monospace">                   complab='With Chagas', outclab="True negatives", byvar=group, bylab='Trademark-name',</font></div><div class="gmail_extra"><font face="monospace, monospace">                   print.byvar=T)</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div></div></div><div class="gmail_extra"><font face="monospace, monospace"># parRS <- par(no.readonly=T)</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">png(filename="DoubleForest.png", width=1200, height=460, units = "px", bg = "white")</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(l <- grid.layout(nrow=1, ncol=2, w=c(.6,.35), h=.9, default="npc"), vp.ex=.8)</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace"># grid.show.layout(l <- grid.layout(nrow=1, ncol=2, w=c(1.6,1), h=1, default="npc", respect=T), vp.ex=.8)</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">vp0 <- viewport(layout=l)</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(gp=gpar(fill="white"))</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))</font></div><span class=""><div class="gmail_extra"><font face="monospace, monospace">forest(new=F, <a href="http://m.e.se" target="_blank">m.e.se</a>,overall=F,text.random="D&L random effects", pooled.events=T,xlab="Sensitivity",</font></div></span><div class="gmail_extra"><font face="monospace, monospace">       rightcols=F, leftcols=c("studlab", "event", "n","effect", "ci"),</font></div><div class="gmail_extra"><font face="monospace, monospace">       leftlabs=c("Study","TP","With","Sensitivity","95%-CI"), height=200)</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">forest(new=F,m.e.sp,overall=F,text.random="D&L random effects", pooled.events=T,xlab="Specificity",</font></div><div class="gmail_extra"><font face="monospace, monospace">       rightcols=c("effect", "ci"), leftcols=c("n","event"), </font></div><div class="gmail_extra"><font face="monospace, monospace">       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">dev.off()</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace"><a href="http://file.info" target="_blank">file.info</a>("DoubleForest.png")</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></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>