include:
head(mtcars)
plot(mtcars$mpg,
mtcars$hp,
xlab = "Average MPG",
ylab = "Car Weight",
main = "MPG Compared to Car Weight",
col = "blue",
pch= 18,
lwd = 2,
cex = 1.5,
)
abline(a = 10, b = 20, col = "green")
hist(mtcars$drat,
col = "purple",
main = "Distribution of Rear Axle Ratio",
xlab = "Drat")