Compact presentation of multiple figures

Thanks Richard,

That is roughly what I did. However, (1) the distance between the  
rows is still quite large compared to the distance between the  
columns; (2) (less important) I still have two ylab, one for each row.

This will get you started


x <- rnorm(20)
y <- rnorm(20)
par(pty = 's', xaxt = 'n', yaxt = 'n', mfrow = c(2, 3),
               mgp= c(1, 0, 0), mar = c(1.1, 2.1, 1.1, 0.1))

plot(y ~ x, main=1, xlab="", ylab="y1")
plot(y ~ x, main=2, xlab="", ylab="")
plot(y ~ x, main=3, xlab="", ylab="")
plot(y ~ x, main=4, xlab="", ylab="y4")
plot(y ~ x, main=5, xlab="", ylab="", xaxt="s")
plot(y ~ x, main=6, xlab="", ylab="")

_____________________________
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/