ctr <- read.table('https://www.r-statistics.com/wp-content/uploads/2010/02/State_CTR_Date.txt',sep='\t',header=TRUE)

plot(ctr$College_Grad,ctr$CTR)
lmout <- lm(ctr$CTR ~ ctr$College_Grad)
abline(coef=coef(lmout))