回归分析ggplot2

Question

我做过多元线性回归。我试过用这个命令来策划它。

layout(matrix(c(1,2,3,4),2,2)) 
plot(fit_ec_urban_franchise)

在那之后，我有4个情节‘残差对拟合’，‘规模与位置’，‘正常的q-q’和‘剩余对杠杆’。

是否可以使用ggplot2将这4幅图合二为一？

Answer 1

解决方案之一是使用ggplot2::fortify。下面是您可以在其帮助页?fortify上找到的代码。我正在添加gridExtra，把这4个情节放在一起。

library(ggplot2)
library(gridExtra)

mod <- lm(mpg ~ wt + cyl, data = mtcars)

p1 <- qplot(.fitted, .resid, data = mod) +
  geom_hline(yintercept = 0) +
  geom_smooth(se = FALSE)

p2 <- qplot(sample =.stdresid, data = mod, stat = "qq") + geom_abline()

p3 <- qplot(.fitted, sqrt(abs(.stdresid)), data = mod) + geom_smooth(se = FALSE)

p4 <- qplot(.hat, .stdresid, data = mod) + geom_smooth(se = FALSE)


grid.arrange(p1,p2,p3,p4)

​

​