wk7

 

wk7.R

2023-02-22

library(gridExtra)
library(ggplot2)

p1 <- ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point()
p2 <- ggplot(mtcars, aes(x = mpg, y = disp)) + geom_point()
p3 <- ggplot(mtcars, aes(x = mpg, y = hp)) + geom_point()
p4 <- ggplot(mtcars, aes(x = mpg, y = drat)) + geom_point()
p5 <- ggplot(mtcars, aes(x = mpg, y = qsec)) + geom_point()
p6 <- ggplot(mtcars, aes(x = mpg, y = vs)) + geom_point()
p7 <- ggplot(mtcars, aes(x = mpg, y = am)) + geom_point()
p8 <- ggplot(mtcars, aes(x = mpg, y = gear)) + geom_point()
p9 <- ggplot(mtcars, aes(x = mpg, y = carb)) + geom_point()

grid.arrange(p1, p2, p3, p4, p5, p6, p7, p8, p9, ncol = 3)

Some of Few's recommendations surround the idea of clarity and ease of interpretation of data. In accordance to Few's recommendations, this visualisation could have had better axis labels, a consistent scale across each variable to make comparisons easier and diagonal lines to spot outlier data.