| par(mfrow = c(2, 2)) | | #1: 2x2 charts |
| plot(X, Y) | | #2: chart 1 |
| abline(0, 1, lty = 2) | | #3 |
| title("default axes, X vs Y") | | #4 |
| abline(h = mean(Y)) | | #5 |
| abline(v = mean(X)) | | #6 |
| plot(X, Y, xlim = c(0, 40), ylim = c(0, 1), pch = 20) | | #7: chart 2 |
| abline(0, 1, lty = 2) | | #8 |
| title("axes 0..40, X vs. Y") | | #9 |
| abline(h = mean(Y)) | | #10 |
| abline(v = mean(X)) | | #11 |
| plot(Y, X) | | #12: chart 3 |
| abline(0, 1, lty = 2) | | #13 |
| title("default axes, X vs. Y") | | #14 |
| abline(h = mean(X)) | | #15 |
| abline(v = mean(Y)) | | #16 |
| plot(Y, X, xlim = c(0, 1), ylim = c(0, 40), pch = 0.20) | | #17: chart 4 |
| abline(0, 1, lty = 2) | | #18 |
| title("axes 0..1, X vs. Y") | | #19 |
| abline(h = mean(X)) | | #20 |
| abline(v = mean(Y)) | | #21 |
| par(mfrow = c(1, 1)) | | #22 |
|