This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Load packages | |
library(tidyverse) | |
library(vroom) | |
library(gt) | |
library(gtExtras) | |
# read in full l2m data | |
dat <- vroom("https://raw.githubusercontent.com/atlhawksfanatic/L2M/master/1-tidy/L2M/L2M.csv") | |
# count total games requiring an L2M for each team in 2023 -- we'll use this later |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
library(nflplotR) | |
library(nflreadr) | |
# need this for rotation and saving | |
library(grid) | |
# need this for labels | |
library(ggtext) | |
# data loading and wrangling copied from: https://www.nflfastr.com/articles/beginners_guide.html#figures-with-qb-stats | |
# get pbp and filter to regular season rush and pass plays |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
library(nflplotR) | |
library(nflreadr) | |
library(grid) | |
library(ggtext) | |
# data loading and wrangling copied from: https://www.nflfastr.com/articles/beginners_guide.html#figures-with-qb-stats | |
# get pbp and filter to regular season rush and pass plays | |
pbp <- nflreadr::load_pbp(2022) %>% | |
dplyr::filter(season_type == "REG" & week == 1) %>% |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
library(gt) | |
# create data | |
df <- data.frame( | |
stringsAsFactors = FALSE, | |
player = c("Evan Mobley", | |
"Sandro Mamukelashvili","Charles Bassey","Luka Garza", | |
"Moses Wright","Neeimisa Queta", | |
"Isaiah Jackson","Day'Ron Sharpe"), |