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