標準化された残差x ggplot2パッケージの理論分数プロット

Question

ggplot2パッケージを使用して "理論的な数量" X "標準化された残差"を作成しようとしています。

私はこのプロット

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 

を返し、私は変更することはできませんlm()モデルを持っています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