Amigos de R, Eu não tenho qualquer familiaridade com o pacote grid, mas estou usando um pacote cuja principal função grafica é o com o grid. 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. ID2 VP VN with without Q47 group 37 Cabalero ZC-2007 68 225 69 238 ELISA BIOSCHILE-TEST ELISA CHAGAS 111 Otani MM-2009 167 261 168 262 ELISA BIOSCHILE-TEST ELISA CHAGAS 124 Remesar MC-2009 340 1097 356 1099 ELISA BIOSCHILE-TEST ELISA CHAGAS 97 Anes N-2010 19 15 23 15 ELISA BIOSCHILE-TEST ELISA CHAGAS 102 Flores Chaves M-2010 66 132 66 157 ELISA BIOSCHILE-TEST ELISA CHAGAS 50 Lorca M-1992 77 98 82 98 ELISA ABBOTT-ABBOTT CHAGAS ELISA 42 Carvalho MR-1993 224 182 224 191 ELISA ABBOTT-ABBOTT CHAGAS ELISA 69 Hamerschlak N-1997 20 36 20 40 ELISA ABBOTT-ABBOTT CHAGAS ELISA 60 Oeleman WMR-1998 515 481 539 486 ELISA ABBOTT-ABBOTT CHAGAS ELISA 113 Otani MM-2009 167 257 168 262 ELISA ABBOTT-ABBOTT CHAGAS ELISA b <- read.table("clipboard",header=T) # after a ctrl+c install.packages("meta") library("meta") m.e.se <- 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) 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) #tiff("C:/Banco/MetaDiagChagas_2013/resultados/Forest_ELISA_se.tiff",width=480*5.5,heigh=480*15,res=72*3) forest(m.e.se,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")) #dev.off() #file.show("C:/Banco/MetaDiagChagas_2013/resultados/Forest_ELISA_se.tiff") #tiff("C:/Banco/MetaDiagChagas_2013/resultados/Forest_ELISA_sp.tiff",width=480*3,heigh=480*15,res=72*3) 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")) #dev.off() #file.show("C:/Banco/MetaDiagChagas_2013/resultados/Forest_ELISA_sp.tiff") Abraço forte a todos , Pedro Brasil