Szauli,

as far as I know, the par(mfrow=c(1,2)) is a function that does not need
furthet call on graphics device. Therefore, the

>par(new=T)

is not necessary.

Usually the par(mfrwo()) or par(mfcol()) are used continuously
par(mfrow=c(1,2))
plot(...)# plots the first
plot(...)# plots the second
plot(...) # start over in the first
plot(...) # plot the second again
... until you close the device with

dev.off() #then the par is reset

you may also find usefull the function

?split.screen

While a go, using the package meta, I found that this package does not use
graphics package, but the grid instead. Therefore I couldnt make several
graphics in the same window in the same way as with graphics package. You
may want to check if this is the case.

regards,

Abraço forte e que a força esteja com você,

Dr. Pedro Emmanuel A. A. do Brasil
Instituto de Pesquisa Clínica Evandro Chagas
Fundação Oswaldo Cruz
Rio de Janeiro - Brasil
Av. Brasil 4365
Tel 55 21 3865-9648
email: pedro.brasil@ipec.fiocruz.br
email: emmanuel.brasil@gmail.com

---Apoio aos softwares livres
www.zotero.org - gerenciamento de referências bibliográficas.
www.broffice.org ou www.openoffice.org - textos, planilhas ou apresentações.
www.epidata.dk - entrada de dados.
www.r-project.org - análise de dados.
www.ubuntu.com/ - sistema operacional


2010/6/17 <r-sig-epi-request@stat.math.ethz.ch>

> Send R-sig-Epi mailing list submissions to
>        r-sig-epi@stat.math.ethz.ch
>
> To subscribe or unsubscribe via the World Wide Web, visit
>        https://stat.ethz.ch/mailman/listinfo/r-sig-epi
> or, via email, send a message with subject or body 'help' to
>        r-sig-epi-request@stat.math.ethz.ch
>
> You can reach the person managing the list at
>        r-sig-epi-owner@stat.math.ethz.ch
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of R-sig-Epi digest..."
>
>
> Today's Topics:
>
>   1. Multiple forest plot (szauli@arpa.emr.it)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 16 Jun 2010 17:26:30 +0200
> From: szauli@arpa.emr.it
> To: r-sig-epi@stat.math.ethz.ch
> Subject: [R-sig-Epi] Multiple forest plot
> Message-ID:
>        <
> OFE3B30037.39D3ADC8-ONC1257744.0053C040-C1257744.0054D77B@smr.arpa.emr.it>
>
> Content-Type: text/plain
>
> Dear R friends,
>
> I would like to put two forest plots in the same figure using the
> following code but I can obtain only the second one right in the center of
> the page
> Can you help me?
>
>
>
>
> library(rmeta)
> data(cochrane)
> steroid <- meta.MH(n.trt, n.ctrl, ev.trt, ev.ctrl,
>                        names=name, data=cochrane)
>
> tabletext<-cbind(c("","Study",steroid$names,NA,"Summary"),
>                 c("Deaths","(steroid)",cochrane$ev.trt,NA,NA),
>                 c("Deaths","(placebo)", cochrane$ev.ctrl, NA,NA),
>
>
> c("","OR",format(exp(steroid$logOR),digits=2),NA,format(exp(steroid$logMH),digits=2))
>                 )
>
> par(mfrow=c(1,2))
>
> m<- c(NA,NA,steroid$logOR,NA,steroid$logMH)
> l<- m-c(NA,NA,steroid$selogOR,NA,steroid$selogMH)*2
> u<- m+c(NA,NA,steroid$selogOR,NA,steroid$selogMH)*2
>
> forestplot(tabletext,m,l,u,zero=0,is.summary=c(TRUE,TRUE,rep(FALSE,8),TRUE),
>   clip=c(log(0.1),log(2.5)), xlog=TRUE,
>   col=meta.colors(box="royalblue",line="darkblue", summary="royalblue"))
>
> par(new=T)
>
>
> forestplot(tabletext,m,l,u,zero=0,is.summary=c(TRUE,TRUE,rep(FALSE,8),TRUE),
>   clip=c(log(0.1),log(2.5)), xlog=TRUE, boxsize=0.75,
>   col=meta.colors(box="royalblue",line="darkblue", summary="royalblue"))
>
>
> This message has been scanned for malware by Websense. www.websense.com
>
>        [[alternative HTML version deleted]]
>
>
>
> ------------------------------
>
> _______________________________________________
> R-sig-Epi mailing list
> R-sig-Epi@stat.math.ethz.ch
> https://stat.ethz.ch/mailman/listinfo/r-sig-epi
>
>
> End of R-sig-Epi Digest, Vol 42, Issue 2
> ****************************************
>

	[[alternative HTML version deleted]]

