Tej Seth tejseth
This file contains hidden or 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
| pbp <- nflfastR::load_pbp(2020) | |
| pbp_rp <- pbp %>% | |
| filter(!is.na(epa)) %>% | |
| filter(rush == 1 | pass == 1) | |
| teams <- pbp_rp %>% | |
| group_by(posteam, pass) %>% | |
| summarize(epa = mean(epa)) |
tejseth
/ gist:9ee74101128c0ef7aa2f6a6fd0ec3323
Created
March 14, 2021 19:26
This file contains hidden or 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(dplyr) | |
| library(na.tools) | |
| library(ggimage) | |
| library(hrbrthemes) | |
| library(viridis) | |
| theme_tej <- function() { | |
| theme(text = element_text(family='Tahoma', color="#232D4B"), # set font and color of all text | |
| plot.title = element_text(size = 20, hjust = 0.5, face = "bold"), |
tejseth
/ gist:681a0d3bf68a1ddc64ade32cf320d192
Created
February 27, 2021 01:25
This file contains hidden or 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(ggrepel) | |
| library(ggimage) | |
| library(ggtext) | |
| library(mgcv) | |
| library(scales) | |
| library(ggforce) | |
| library(nflfastR) | |
| library(na.tools) | |
| library(bayesboot) |
tejseth
/ gist:50ef14c04e9a3663045701171310592c
Created
January 13, 2021 23:42
This file contains hidden or 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(xgboost) | |
| library(magrittr) | |
| library(dplyr) | |
| library(Matrix) | |
| library(na.tools) | |
| library(ggimage) | |
| library(nflfastR) | |
| library(gt) | |
| library(mgcv) |
tejseth
/ gist:752a72fbcaf5b701a020963ae1e9a272
Created
January 6, 2021 18:24
This file contains hidden or 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(gganimate) | |
| library(mvtnorm) | |
| team_ <- "DET" | |
| qb_ <- "M.Stafford" | |
| min_offense_play_result <- 25 | |
| stafford_play <- df_plays %>% | |
| dplyr::filter(possessionTeam == team_, |
tejseth
/ gist:f34eb135e4043c12c3549c05265ea741
Created
January 6, 2021 18:19
This file contains hidden or 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
| ridges <- df_plays_cov %>% | |
| filter(epa > -2) %>% | |
| filter(epa < 2) | |
| ggplot(ridges, aes(x = epa, y = most_freq_cov, fill = most_freq_cov)) + | |
| geom_density_ridges() + | |
| theme_ridges() + | |
| labs(x = "EPA Allowed", | |
| y = "Coverage", | |
| title = "EPA Ridge for Each Coverage", | |
| caption = "By Tej Seth | @mfbanalytics | Data from the Big Data Bowl") + |
tejseth
/ gist:fad3f91601e0a9905168863950b90db2
Created
January 6, 2021 18:18
This file contains hidden or 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
| cov_stats <- cov_stats %>% | |
| mutate(freq = plays / 14575) | |
| #Creating a table | |
| cov_table <- cov_stats %>% | |
| gt() %>% | |
| tab_header( | |
| title = "2018 Coverage Statistics", | |
| subtitle = "Coverages were assigned based on random forest classification" | |
| ) %>% |
tejseth
/ gist:529f82138f06585db7aeeaf621f10c76
Created
January 6, 2021 18:18
This file contains hidden or 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(gganimate) | |
| library(cowplot) | |
| library(repr) | |
| library(grid) | |
| library(gridExtra) | |
| library(rpart) | |
| library(rpart.plot) | |
| library(caret) | |
| library(e1071) |
tejseth
/ gist:4653275d30e9cf50e9ffcacd07010858
Created
December 10, 2020 15:13
This file contains hidden or 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(nflfastR) | |
| library(ggplot2) | |
| library(dplyr) | |
| library(hrbrthemes) | |
| library(ggrepel) | |
| library(ggimage) | |
| games <- readRDS(url("http://www.habitatring.com/games.rds")) |
tejseth
/ gist:947f468661d91ca8d69e2e8d7f1daea5
Created
October 21, 2020 03:45
This file contains hidden or 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
| #install.packages("tidyverse") | |
| #install.packages("forcats") | |
| #install.packages("hrbrthemes") | |
| #install.packages("viridis") | |
| #install.packages("ggrepel") | |
| #Take out the '#' when installing the packages. I only included that in case you've already installed them. | |
| #Tidyverse is the main one you need and the others are just for design. | |
| library(tidyverse) |