R Scatter plot with correlation