<div dir="ltr"><div class="gmail_default" style="font-family:courier new,monospace;color:#000066">Amigos de R,</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">Eu não tenho qualquer familiaridade com o pacote grid, mas estou usando um pacote cuja principal função grafica é o com o grid. </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">Eu gostaria de juntar os dois graficos abaixo lado a lado, e ja tentei usar algumas variaçoes do pushViewport sem sucesso. A função forest possui um argumento new que permitiria colocar mais de um grafico na mesma janela, mas sem um exemplo estou batentdo cabeça por aqui. Se alguem que tem familiaridade com o grid puder me dar uma mão, eu ficaria muito feliz. </div><div class="gmail_default" style="font-family:courier new,monospace;color:#000066"> </div><div class="gmail_quote"><div dir="ltr"><div style="font-family:'courier new',monospace;color:rgb(0,0,102)"><div> ID2 VP VN with without Q47 group</div><div>37 Cabalero ZC-2007 68 225 69 238 ELISA BIOSCHILE-TEST ELISA CHAGAS</div><div>111 Otani MM-2009 167 261 168 262 ELISA BIOSCHILE-TEST ELISA CHAGAS</div><div>124 Remesar MC-2009 340 1097 356 1099 ELISA BIOSCHILE-TEST ELISA CHAGAS</div><div>97 Anes N-2010 19 15 23 15 ELISA BIOSCHILE-TEST ELISA CHAGAS</div><div>102 Flores Chaves M-2010 66 132 66 157 ELISA BIOSCHILE-TEST ELISA CHAGAS</div><div>50 Lorca M-1992 77 98 82 98 ELISA ABBOTT-ABBOTT CHAGAS ELISA</div><div>42 Carvalho MR-1993 224 182 224 191 ELISA ABBOTT-ABBOTT CHAGAS ELISA</div><div>69 Hamerschlak N-1997 20 36 20 40 ELISA ABBOTT-ABBOTT CHAGAS ELISA</div><div>60 Oeleman WMR-1998 515 481 539 486 ELISA ABBOTT-ABBOTT CHAGAS ELISA</div><div>113 Otani MM-2009 167 257 168 262 ELISA ABBOTT-ABBOTT CHAGAS ELISA</div></div><div style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div style="font-family:'courier new',monospace;color:rgb(0,0,102)">b <- read.table("clipboard",header=T) # after a ctrl+c</div><div style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div style="font-family:'courier new',monospace;color:rgb(0,0,102)"><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">install.packages("meta")</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">library("meta")</div><br></div><div><div><font color="#000066" face="courier new, 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,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><font color="#000066" face="courier new, monospace"><br></font></div><div><font color="#000066" face="courier new, 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><font color="#000066" face="courier new, monospace"><br></font></div><div><font color="#000066" face="courier new, monospace">#tiff("C:/Banco/MetaDiagChagas_2013/resultados/Forest_ELISA_se.tiff",width=480*5.5,heigh=480*15,res=72*3)</font></div><div><font color="#000066" face="courier new, monospace">forest(<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",rightcols=F,leftcols=c("studlab", "event", "n","effect", "ci"),leftlabs=c("Study","TP","With","Sensitivity","95%-CI"))</font></div><div><font color="#000066" face="courier new, monospace">#dev.off()</font></div><div><font color="#000066" face="courier new, monospace">#file.show("C:/Banco/MetaDiagChagas_2013/resultados/Forest_ELISA_se.tiff")</font></div><div><font color="#000066" face="courier new, monospace"><br></font></div><div><font color="#000066" face="courier new, monospace">#tiff("C:/Banco/MetaDiagChagas_2013/resultados/Forest_ELISA_sp.tiff",width=480*3,heigh=480*15,res=72*3)</font></div><div><font color="#000066" face="courier new, monospace">forest(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><font color="#000066" face="courier new, monospace">#dev.off()</font></div><div><font color="#000066" face="courier new, monospace">#file.show("C:/Banco/MetaDiagChagas_2013/resultados/Forest_ELISA_sp.tiff")</font></div></div><div style="font-family:'courier new',monospace;color:rgb(0,0,102)"> </div><div style="font-family:'courier new',monospace;color:rgb(0,0,102)"><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102);display:inline">Abraço forte a todos</div>,</div><div style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div><div><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>
</div>
</div><br></div>