1、两个变量之间存在关系，可以先提出下面的问题：关系是偶然的吗？如何描述？关系强弱？受其他变量的影响吗？查看子群，变量之间的关系会变化吗？
2、
library(modelr)
mod <- lm(log(price)~log(carat),data=diamonds)
view(dfSummary(diamonds))
diamonds3 <- diamonds %>%
add_residuals(mod) %>%
mutate(resid=exp(resid))
ggplot(data=diamonds3)+
geom_point(mapping=aes(x=carat,y=resid))
ggplot(data=diamonds3)+
geom_boxplot(mapping=aes(x=cut,y=resid))+
coord_cartesian(ylim=c(0,2))
#观察残差有什么用？