TE Receiving and Blocking

TE_Grades <- read.csv("TE_Grades2.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

plot the receiving grade vs run blocking grade (minimum 500 snaps)

mean_grades <- mean(TE_Grades$Receiving_Grade+TE_Grades$Run_Block_Grade)
tier_values <- c(mean_grades-30, mean_grades-20, mean_grades-10, mean_grades, mean_grades+10, mean_grades+20, mean_grades+30)

TE_Grades_Plot <- TE_Grades %>% ggplot(aes(x=Receiving_Grade, y=Run_Block_Grade)) + geom_vline(xintercept = mean(TE_Grades$Receiving_Grade), color = "red", linetype = "dashed") + geom_hline(yintercept = mean(TE_Grades$Run_Block_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, function(value) {
    geom_abline(intercept = value, slope = -1, color = "blue", linetype = "dotted")
  }) +
 ylab("Run Block Grade") + xlab("Receiving Grade") + labs(caption = "Data: PFF") + theme(plot.caption = element_text(size = 10, hjust = 1, vjust = 1, color = "gray40"))
TE_Grades_Plot