Page 358 - Applied Statistics with R

358 CHAPTER 14. TRANSFORMATIONS

pairs(autompg)

1.0 2.0 3.0 50 150 10 15 20 25 1.0 2.0 3.0
mpg 30
10
3.0
2.0 cyl
1.0
disp 300
100

150 hp
50
4500
wt
3000
1500
25
20
acc
15
10
82
78
year
74
70
3.0
2.0 origin
1.0
0.8
domestic
0.4
0.0
10 30 100 300 1500 3000 4500 70 74 78 82 0.0 0.4 0.8

mpg_hp = lm(mpg ~ hp, data = autompg)

par(mfrow = c(1, 2))

plot(mpg ~ hp, data = autompg, col = "dodgerblue", pch = 20, cex = 1.5)
abline(mpg_hp, col = "darkorange", lwd = 2)

plot(fitted(mpg_hp), resid(mpg_hp), col = "dodgerblue",
pch = 20, cex = 1.5, xlab = "Fitted", ylab = "Residuals")
abline(h = 0, lty = 2, col = "darkorange", lwd = 2)