ggplot(data = diamonds2) + geom_point(mapping = aes(x = carat, y = resid))

一旦你移除了克拉与价格之间的强关系，你就能看到切工与价格之间你所预期的关系——相对于其大小而言，质量更好的钻石更昂贵：

ggplot(data = diamonds2) + geom_boxplot(mapping = aes(x = cut, y = resid))

你将在本书的最后一部分（第四部分）学习模型以及 modelr 包的工作原理。我们之所以把建模留到后面，是因为