RB Rushing and Pass Blocking

RB_Grades <- read.csv("RB_Grades.csv")
library(ggplot2)
library(ggrepel)
library(nflplotR)

## Warning: package 'nflplotR' was built under R version 4.4.3

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.4.3

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ lubridate 1.9.3     ✔ tibble    3.2.1
## ✔ purrr     1.0.2     ✔ tidyr     1.3.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

str(RB_Grades)

## 'data.frame':    29 obs. of  5 variables:
##  $ Name     : chr  "Kyren Williams" "Bijan Robinson" "Saquon Barkely" "Aaron Jones" ...
##  $ Team     : chr  "LAR" "ATL" "PHI" "MIN" ...
##  $ Run_Grade: num  75 92.8 85.3 76.5 65.7 68.7 91.3 87 63.9 82.8 ...
##  $ PB_Grade : num  45.7 51.6 65.2 51.7 28.3 57.7 55.3 56.9 43.4 15.7 ...
##  $ Snaps    : int  934 861 851 753 751 721 717 711 707 705 ...

Change to RB grades

mean_grades_RB <- mean(RB_Grades$Run_Grade+RB_Grades$PB_Grade)
tier_values_RB <- c(mean_grades_RB-30, mean_grades_RB-20, mean_grades_RB-10, mean_grades_RB, mean_grades_RB+10, mean_grades_RB+20, mean_grades_RB+30)

RB_Grades_Plot <- RB_Grades %>% ggplot(aes(x=Run_Grade, y=PB_Grade)) + geom_vline(xintercept = mean(RB_Grades$Run_Grade), color = "red", linetype = "dashed") + geom_hline(yintercept = mean(RB_Grades$PB_Grade), color = "red", linetype = "dashed") + geom_text_repel(aes(label = Name), vjust = -0.5, hjust = 0.5, size = 2, max.overlaps = 20) + scale_size_continuous(range = c(2, 4)) + geom_nfl_logos(aes(team_abbr = Team), width = 0.02) +
lapply(tier_values_RB, function(value) {
    geom_abline(intercept = value, slope = -1, color = "blue", linetype = "dotted")
  }) +
 ylab("Pass Block Grade") + xlab("Rushing Grade") + labs(caption = "Data: PFF") + theme(plot.caption = element_text(size = 10, hjust = 1, vjust = 1, color = "gray40"))
RB_Grades_Plot