# [R] Lattice equivalent of par(mfrow = )

Deepayan Sarkar deepayan.sarkar at gmail.com
Sun Jan 13 22:41:25 CET 2008

```On 1/13/08, Michael Kubovy <kubovy at virginia.edu> wrote:
> Dear R-helpers,
>
> On Jan 12, 2008, at 5:17 PM, Deepayan Sarkar wrote:
>
> > On 1/12/08, Michael Kubovy <kubovy at virginia.edu> wrote:
> >> Dear r-helpers,
> >>
> >> Does anyone have a straightforward example of putting together three
> >> unrelated (expect for a common y-axis) xyplot() figures in what would
> >> be in base graphics a par(mfrow = c(1, 3)) arrangement?
> >
> > See the examples in ?print.trellis.
>
> Thanks. Now how do I insure that the three y-axes are the same scale
> in the following?

There might be a better approach than this; could you post an example
that more closely resembles your real problem?

-Deepayan

>
> states <- data.frame(state.x77,
>                       state.name = dimnames(state.x77)[[1]],
>                       state.region = state.region)
> plot1 <- xyplot(Murder ~ Population, data = states,
>         xlab = grid::textGrob(expression(frac(abs(bold(c)), abs(bold(b)))),
> gp=gpar(fontsize=25)),
>         ylab = grid::textGrob(expression(paste(log, frac(italic(p)
> (italic(c)), italic(p)(italic(b))))), gp = gpar(fontsize = 25)),
> )
> plot2 <- xyplot(Murder ~ Population, data = states,
>         xlab = grid::textGrob(expression(gamma), gp = gpar(fontsize= 25)),
>         ylab = '',
> )
> plot3 <- xyplot(Murder ~ Population, data = states,
>         xlab =
> grid::textGrob(expression(frac(abs( bold(c) ),abs( bold(b) ))), gp =
> gpar(fontsize = 25)),
>         ylab = '',
> )
> print(plot1, position = c(0.0, 0, 0.33, 1), more = TRUE)
> print(plot2, position = c(0.33, 0, 0.67, 1), more = TRUE)
> print(plot3, position = c(0.67, 0, 1, 1))
>
> _____________________________
> Professor Michael Kubovy
> University of Virginia
> Department of Psychology
> USPS:     P.O.Box 400400    Charlottesville, VA 22904-4400
> Parcels:    Room 102        Gilmer Hall
>          McCormick Road    Charlottesville, VA 22903
> Office:    B011    +1-434-982-4729
> Lab:        B019    +1-434-982-4751
> Fax:        +1-434-982-4766
> WWW:    http://www.people.virginia.edu/~mk9y/
>
>
>

```