12  Final Rankings

12.1 Packages Needed

library(tidyverse)
library(DT)

12.2 Load Position Rankings

qb <- read.csv("data/rankings/qb.csv")
rb <- read.csv("data/rankings/rb.csv")
wr <- read.csv("data/rankings/wr.csv")
te <- read.csv("data/rankings/te.csv")
ot <- read.csv("data/rankings/ot.csv")
iol <- read.csv("data/rankings/iol.csv")
lb <- read.csv("data/rankings/lb.csv")
cb <- read.csv("data/rankings/cb.csv")
s <- read.csv("data/rankings/s.csv")
ed <- read.csv("data/rankings/ed.csv")
dl <- read.csv("data/rankings/dl.csv")

12.3 Combine Rankings

final_rankings <- bind_rows(qb, rb, wr, te, ot, iol, lb, cb, s, ed, dl) %>%
  arrange(-total) %>%
  mutate(rank_aft = row_number()) %>%
  mutate(rank_diff = rank - rank_aft)

12.4 Display Final Rankings

datatable(final_rankings)