women veri seti ve ggplot2 kütüphanesi ile:
library(ggplot2)
data("women")
m<-lm(women$weight ~ women$height)
yhat<-m$fitted.values
diff<-women$weight-yhat
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")
