The following plot
Is generated with the following code:
library(GGally)
dat <- read.csv("http://www.ats.ucla.edu/stat/data/tobit.csv")
ggpairs(dat[, c("read", "math", "apt")])
How can I add the correlation line for each of the scatter plot above?
Something like this?