标准化残差x ggplot2包中的理论分位数图

Question

我正在尝试使用ggplot2包来制作“理论分位数”X“标准化残差”。

我有一个lm()模型，我习惯了这个情节

library(ggplot2)

model<-lm(mpg~cyl+disp+hp+drat+wt, data=mtcars)

p2<-ggplot(model, aes(qqnorm(.stdresid)[[1]], .stdresid))+geom_point(na.rm = TRUE)
p2<-p2+geom_abline(aes(qqline(.stdresid)))+xlab("Theoretical Quantiles")+ylab("Standardized Residuals")
p2<-p2+ggtitle("Normal Q-Q")+theme_bw()
p2

我在此创建的此代码https://rpubs.com/therimalaya/43190构成了绘图，但返回错误

Error: Aesthetics must be either length 1 or the same as the data (3110): x

我无法更改xlab或ylab名称。我怎么解决呢？

Answer 1

model<-lm(mpg~cyl+disp+hp+drat+wt, data=mtcars)

library(ggplot2)

p2 <- ggplot(model, aes(qqnorm(.stdresid)[[1]], .stdresid))+geom_point(na.rm = TRUE)
p2 <- p2+geom_abline()+xlab("Theoretical Quantiles")+ylab("Standardized Residuals")
p2 <- p2+ggtitle("Normal Q-Q")+theme_bw()
p2