ggplot(data = economics, mapping = aes(x= pop,y= psavert , color = uempmed ))+ geom_point()+ theme_light()+ xlab("Population")+ ylab("Save_money") + ggtitle("Negative_linear correlation")