Added ggplot scatterplot