data(galton)
psych::describe(galton)
#show the scatter plot and the lowess fit
psych::pairs.panels(galton,main="Galton's Parent child heights")
#but this makes the regression lines look the same
psych::pairs.panels(galton,lm=TRUE,main="Galton's Parent child heights")
#better is to scale them
psych::pairs.panels(galton,lm=TRUE,xlim=c(62,74),ylim=c(62,74),
main="Galton's Parent child heights")
Run the code above in your browser using DataLab