I crunched the number. Your R2 value for this model is about .03 for this. Not to mention, your p-value comes out to 0.11, which indicates a weak correlation.
I also find it fundamentally dishonest that you left out a few key players in your diagram, notably TN, SC, and TX. What was the reason behind this exclusion?
> summary(lm(olive/pop ~ pct, data=olive))
Call:
lm(formula = olive/pop ~ pct, data = olive)
Residuals:
Min 1Q Median 3Q Max
-5.483e-06 -1.867e-06 -1.286e-06 4.284e-07 2.620e-05
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.172e-06 1.066e-06 5.790 5.23e-07 ***
pct -2.569e-07 1.597e-07 -1.608 0.114
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 5.139e-06 on 48 degrees of freedom
Multiple R-squared: 0.05113, Adjusted R-squared: 0.03136
F-statistic: 2.586 on 1 and 48 DF, p-value: 0.1143