$women$ veri seti ve $ggplot2$ kütüphanesi ile:
library(ggplot2)
data("women")
m<-lm(women$weight ~ women$height) #Lineer regresyon modeli
yhat<-m$fitted.values #Lineer regresyon modelinin tahmin ettiği değerleri "yhat" adı ile kaydet
diff<-women$weight-yhat #Gerçek "weight" değerleri ile tahmini değerlerin farkını "diff" adı ile kaydet
qplot(x=women$height, y=women$weight)+geom_line(y=yhat,col="blue")+
geom_segment(aes(x=women$height, xend=women$height, y=women$weight, yend=yhat, color="Hata"))+
labs(title="Lineer model, veri ve hata", color="Renk")