R 回归分析2

我做了多元线性回归。我试着用这个命令来描绘它

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

之后，我绘制了4幅图“残差与拟合”、“比例与位置”、“正常q-q”和“残差与杠杆”

---

是否可以使用

ggplot2

将4个绘图合并为一个？

解决方案是使用

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)

库（ggplot2）
图书馆（gridExtra）
mod查找带有
autoplot.lm
功能的软件包，例如感谢帮助。你知道另一种方法吗？我怎样才能添加一个主标题？是否可以使用
top
+ggtitle（“此处为您的标题”）由于偶然发现此错误，如何添加更改平滑方法
geom_smooth:method=“auto”和最大组的大小是两个不同的问题。第一个警告是geom_smooth正在使用
方法=黄土
；如果愿意，可以在geom_smooth中进行更改，但这是可行的。第二种意思是你的数据或代码有问题，因为它找不到x和y；要么您没有在绘图的aes（）中将任何内容映射到x和y，要么您的数据以某种方式丢失corrupted@scoa.I解决问题。谢谢你的好意。我欠你一个人情。