R script for the correlation coefficient:

library(PerformanceAnalytics)
chart.Correlation(mydata, histogram=TRUE, pch=19)

setwd("E:\\GWAS\\traits")

library(PerformanceAnalytics)
x<-read.table("mydata.txt",head=TRUE)
chart.Correlation(x, histogram=TRUE, pch=19)