Payroll
This was one of my favorite topics to examine in the Chapter 3 homework.
ggplot(MLB_teams, aes(x = payroll/1000000, y = WPct)) +
geom_point(aes(color = lgID)) +
geom_smooth(, method = "lm", se = FALSE) +
facet_wrap(~ yearID, nrow = 3) +
labs(x = "payroll (millions $)", y = "winning proportion")
Scatterplot of winning percentage vs. payroll for MLB teams, by season.
The more you spend on your pklayers, the more games you win.