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="") ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.