[R-br] 2 graficos do grid lado a lado na mesma janela

[Pedro Emmanuel Alvarenga Americano do Brasil]

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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150413/0b5cea26/attachment.html>