#plotting the points on a graph to see any correlations
ggplot(Starbucks, aes(x = Income, y = Amount)) + geom_point() + geom_smooth(method = 'lm')