Inequality Kills: Correlation, with Graph and Least Square, of Gini Coefficient (Inequality) and Infant Death

At a correlation approaching 0.7, the relationship between infant mortality and inequality is quite high. One can argue causality, but the existence of the relationship, and there are others of varying magnitude, is a powerful indictment:

Example Code

 oecdData <- read.table("OECD - Quality of Life.csv", header = TRUE, sep = ",")  
 gini.v <- oecdData$Gini  
 death.v <- oecdData$InfantDeath  
 cor.test(gini.v, death.v)  
 plot(gini.v, death.v, col = "blue", main = "Infant Death v Gini"
 , abline(lm(death.v ~ gini.v))
 , cex = 1.3, pch = 16, xlab = "Gini", ylab = "Infant Death")  

Example Results

 Pearson's product-moment correlation  
   
 data: gini.v and death.v  
 t = 4.2442, df = 19, p-value = 0.0004387  

 alternative hypothesis: true correlation is not equal to 0  

 95 percent confidence interval:  
  0.3805316 0.8679275  

 sample estimates:  

   cor   
   0.69762   

Example Graph

Sample Data