par(mfrow=c(2, 2), cex=0.6, mar=c(4, 4, 1, 1)) y <- rnorm(20) plot(y, type="p") plot(y, type="l") plot(y, type="b") plot(y, type="h")