Регрессионный анализ ggplot2

Question

Я сделал несколько линейных регрессий. Я попытался построить его с помощью этой команды.

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

После того, что у меня 'остатки vs. оборудованная' 4 'участков, масштаб против местоположение', 'нормальной С-С' и 'Разности vs.leverage'.

Возможно ли использовать 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)