I’ve made some revisions and simplifications to the code to compile NFL data. It’s now all out on Github for anyone to play with in advance of the Superbowl. In the meantime, here’s a lovely picture comparing every team’s offense- as measured by total offensive yards- against their defenders.
Note the anemic Chicago offense.
library(ggplot2) p = ggplot(dfTeamVsTeam, aes(x = as.factor(ThisTeam), y = as.factor(Opponent), fill = ThisTeamTotalYards)) p = p + geom_tile() + scale_fill_gradient(low="red", high="blue") p = p + labs(title = "Total yardage", x = "Offense", y = "Defense") p = p + theme(panel.grid.major = element_blank()) print(p)