par(mfrow=c(2, 2), cex=0.6, mar=c(4, 4, 1, 1)) plot(pressure, type="p") plot(pressure, type="l") plot(pressure, type="b") plot(pressure, type="h")