Sports analytics

Payrolls of the Cleveland Baseball Team

Today I made a quick graph of the player payrolls for the Cleveland baseball team to compare their projected payroll after today’s trade with the Mets (Lindor, Carrasco, etc.) to past seasons. Sources: (past) http://www.stevetheump.com/Payrolls.htm (2021 projection) https://twitter.com/ZackMeisel/status/1347246681520295936 https://teamcolorcodes.com/cleveland-indians-color-codes/ years <- 2014:2021 payrolls <- c(82.5, 86.1, 86.3, 124.3, 134.4, 88.7, 37.6, 35) df <- data.frame(years, payrolls) df %>% ggplot(aes(x = years, y = payrolls, label = payrolls)) + geom_bar(stat = "identity", fill = "#E31937", color = "#0C2340") + geom_label() + labs(title = "Opening Day Payrolls of the Cleveland Baseball Team", subtitle = "2016: World Series appearance\n2020: pandemic-shortened season\n2021: projected", caption = "Sources: http://www.