Added a function for easy scatter plots with Pearson R and p-value displayed