
library(tidyverse)
library(nflfastR)
library(ggthemes) # Themes for ggplot2.
library(ggimage) # Supports images in ggplot2.
library(gt) # Create tables.
options(scipen = 9999)


ignore <- c("enforced between downs.")

pbp_raw <- load_pbp(2021) %>%
  filter(season == 2021) %>%
  filter(season_type == "REG") %>%
  filter(play_type != "no_play" | str_detect(desc, paste(ignore, collapse = "|"))) %>% 
  filter(!(str_detect(desc, "enforced between downs.") & str_detect(desc, "Kick formation"))) %>%
  filter(!(str_detect(desc, "enforced between downs.") & str_detect(desc, "No Play.")))

pbp_raw$new_play_num <- ave(pbp_raw$play_id ,pbp_raw$game_id,FUN = seq_along)
pbp_raw <- pbp_raw %>%
  mutate(UNIQUE_PLAY_ID = paste(game_id, new_play_num, sep = "_"))


pbp_sportradar <- read_csv(file = "C:/Users/chris/Documents/Datasets/Sportradar NFL/CSV/2021-Sportradar-NFL.csv",
                          show_col_types = FALSE)


joined_pbp <- inner_join(pbp_raw, pbp_sportradar, by = "UNIQUE_PLAY_ID")


dim(pbp_raw)
dim(pbp_sportradar)
dim(joined_pbp)

Adding Libraries.¶

Import nflfastR Dataset. Filter to Match Sport Radar NFL Dataset.¶

Import Sport Radar PBP Dataset.¶

Join Datasets.¶