5  OT Rankings

5.1 Packages Needed

library(tidyverse)
library(DT)

5.2 Load OT Players

ots <- read.csv("data/players.csv") %>% filter(position == "T") %>% mutate(position = "OT")

5.3 Load Necessary CSV Files

blocking <- read.csv("data/offense_blocking.csv") %>% 
  select(player_id, grades_pass_block, grades_run_block, pbe) # pb grade, rb grade, pbe
run_blocking <- read.csv("data/ol/offense_run_blocking.csv") %>% 
  select(player_id, zone_grades_run_block, gap_grades_run_block) # zone grade, gap grade

5.4 Combine Datasets

ot_values <- ots %>% 
  left_join(blocking, by = c("id" = "player_id")) %>% 
  drop_na()
ot_values <- ot_values %>% 
  left_join(run_blocking, by = c("id" = "player_id")) %>% 
  drop_na()
ot_values <- ot_values %>% 
  rename(pb_grade = grades_pass_block, rb_grade = grades_run_block, zone_grade = zone_grades_run_block, gap_grade = gap_grades_run_block) %>%
  select(-id)

5.5 Get Mean Values (for testing)

mean(ot_values$pb_grade)

[1] 74.32162

mean(ot_values$rb_grade)

[1] 69.44595

mean(ot_values$pbe)

[1] 97.64865

mean(ot_values$zone_grade)

[1] 70.6027

mean(ot_values$gap_grade)

[1] 63.07027

5.6 Create Rating Function

get_ot_ratings <- function(input_df) {
  df_ot_copy <- input_df %>% mutate(
    pb_grade = round(pmax(pmin((pb_grade-65) / 2, 10), 0), 2), # 65-85, mean 75
    rb_grade = round(pmax(pmin((rb_grade-65) / 2, 10), 0), 2),  # 65-85, mean 75
    pbe = round(pmax(pmin((pbe-95) * 2.5, 10), 0), 2), # 95-99, mean 97
    zone_grade = round(pmax(pmin((zone_grade-65) / 2, 10), 0), 2), # 65-85, mean 75
    gap_grade = round(pmax(pmin((gap_grade-55) / 2, 10), 0), 2), # 55-75, mean 65
  )
  
  return(df_ot_copy)
}

5.7 Create Final Dataset

ot_ratings <- get_ot_ratings(ot_values) %>% 
  mutate(total = rowSums(select(.,-name, -position, -team, -rank))) %>% 
  arrange(-total) #%>%
  #mutate(pos_rank_aft = row_number())

5.8 Display Ratings

datatable(ot_ratings)