090: NFL QBs College Record

gtExtras
Published

April 23, 2024

Load data

Code 
# use previous scraped data from drafthistory.com 
# add records from sports-reference manually in csv
# load in csv 
library(cbbplotR)
qbs <- readr::read_csv("qbs.csv")

qbs |> 
  dplyr::mutate(win_pct = win / (win +loss)) |> 
  dplyr::select(-draft_round, -position) |> 
  dplyr::arrange(-win_pct) |> 
  cbbplotR::gt_cbb_teams(team, team) |> 
  dplyr::slice(1:19) -> first_tab 

qbs |> 
  dplyr::mutate(win_pct = win / (win +loss)) |> 
  dplyr::select(-draft_round, -position) |> 
  dplyr::arrange(-win_pct) |> 
  cbbplotR::gt_cbb_teams(team, team) |> 
  dplyr::slice(20:38) -> second_tab 
  
tabs <- dplyr::bind_cols(first_tab, second_tab)

NFL QB Table

Code 
tabs |> 
  gt::gt() |> 
  gt::fmt_markdown(team...5) |> 
  gt::fmt_markdown(team...13) |> 
  gt::cols_label(
    draft_year...1 = "Year",
    draft_round_pick...2 = "Pick",
    player...3 = "QB",
    draft_team...4 = "NFL Team",
    team...5 = "College",
    win...6 = "W",
    loss...7 = "L",
    win_pct...8 = "Win %",
    draft_year...9 = "Year",
    draft_round_pick...10 = "Pick",
    player...11 = "QB",
    draft_team...12 = "NFL Team",
    team...13 = "College",
    win...14 = "W",
    loss...15 = "L",
    win_pct...16 = "Win %"
  ) |> 
  gt::fmt_number(columns = c(win_pct...8, win_pct...16), decimals = 3) |> 
  gt::tab_spanner(label = "College Team W-L",
                  columns = c(team...5, win...6, loss...7, win_pct...8)) |>
  gt::tab_spanner(label = "College Team W-L ",
                  columns = c(team...13, win...14, loss...15, win_pct...16)) |>
  cbbplotR::gt_theme_athletic() |> 
  gtExtras::gt_add_divider(columns = draft_year...9, sides = "left",
                           color = "black") |> 
  gt::cols_align(align = "left", columns = c(player...3, draft_team...4, 
                                             player...11, draft_team...12, 
                                             team...5, team...13)) |> 
  gt::cols_align(align = "right", columns = c(draft_year...1, draft_round_pick...2,
                                              win...6, loss...7, win_pct...8,
                                              draft_year...9, draft_round_pick...10, 
                                              win...14, loss...15, win_pct...16)) |> 
  gtExtras::gt_hulk_col_numeric(columns = c(win_pct...8), domain = c(.4, 1.0)) |>
  gtExtras::gt_hulk_col_numeric(columns = c(win_pct...16), domain = c(.4, 1.0)) |>
  gt::tab_header(
    title = "Top Ten NFL QB Draft Picks Since 2004 and College Team Record in Draft Year",
    subtitle = "Shows the college team record for each quarterback in its draft year that was selected in the top ten of the NFL Draft since 2004."
  ) |>
  gt::tab_source_note(
    source_note = gt::html(
      "Data via drafthistory.com and sports-reference.com <br><br> <b>Bless your chart + @dadgumboxscores | April 23, 2024</b>"
    )
  ) |>
  gt::tab_style(
    locations = gt::cells_title(groups = "subtitle"),
    style = gt::cell_text(
      size = "small"
    )
  ) |> 
  gt::tab_style(
    locations = gt::cells_source_notes(),
    style = gt::cell_text(
      size = "x-small"
    )
  ) |> 
  gt::tab_style(
    style = gt::cell_borders(sides = "top", color = 'black', weight = gt::px(1.5), style = 'solid'),
    locations = gt::cells_body(
      rows = gt::everything()
    )
  ) |> 
  gtExtras::gt_highlight_rows(
    rows = c(9, 11, 14),
    columns = c(draft_year...9, draft_round_pick...10, 
                player...11, team...13, win...14, loss...15),
    fill = "#fffec8"
  ) -> nfl_qb_tbl

gtExtras::gtsave_extra(nfl_qb_tbl,
                       filename = "nfl_qb_table.png",
                       vheight = 875,
                       vwidth = 1250)

nfl_qb_tbl
Top Ten NFL QB Draft Picks Since 2004 and College Team Record in Draft Year
Shows the college team record for each quarterback in its draft year that was selected in the top ten of the NFL Draft since 2004.
Year Pick QB NFL Team College Team W-L Year Pick QB NFL Team College Team W-L
College W L Win % College W L Win %
2020 1 Joe Burrow Bengals

LSU

 15 0 1.000 2021 1 Trevor Lawrence Jaguars

Clemson

 10 2 0.833
2011 1 Cam Newton Panthers

Auburn

 14 0 1.000 2018 3 Sam Darnold Jets

USC

 11 3 0.786
2006 3 Vince Young Titans

Texas

 13 0 1.000 2008 3 Matt Ryan Falcons

Boston College

 11 3 0.786
2005 1 Alex Smith 49ers

Utah

 12 0 1.000 2012 2 Robert Griffin Redskins

Baylor

 10 3 0.769
2015 1 Jameis Winston Buccaneers

Florida St.

 13 1 0.929 2011 10 Blaine Gabbert Jaguars

Missouri

 10 3 0.769
2014 3 Blake Bortles Jaguars

UCF

 12 1 0.923 2009 1 Matthew Stafford Lions

Georgia

 10 3 0.769
2009 5 Mark Sanchez Jets

USC

 12 1 0.923 2004 1 Eli Manning Chargers

Mississippi

 10 3 0.769
2006 10 Matt Leinart Cardinals

USC

 12 1 0.923 2021 3 Trey Lance 49ers

North Dakota St.

 7 3 0.700
2021 2 Zach Wilson Jets

BYU

 11 1 0.917 2019 6 Daniel Jones Giants

Duke

 8 5 0.615
2016 2 Carson Wentz Eagles

North Dakota St.

 13 2 0.867 2018 7 Josh Allen Bills

Wyoming

 8 5 0.615
2015 2 Marcus Mariota Titans

Oregon

 13 2 0.867 2017 2 Mitchell Trubisky Bears

North Carolina

 8 5 0.615
2020 6 Justin Herbert Chargers

Oregon

 12 2 0.857 2016 1 Jared Goff Rams

California

 8 5 0.615
2019 1 Kyler Murray Cardinals

Oklahoma

 12 2 0.857 2010 1 Sam Bradford Rams

Oklahoma

 8 5 0.615
2018 1 Baker Mayfield Browns

Oklahoma

 12 2 0.857 2004 4 Philip Rivers Giants

North Carolina St.

 8 5 0.615
2023 1 Bryce Young Panthers

Alabama

 11 2 0.846 2012 8 Ryan Tannehill Dolphins

Texas A&M

 7 6 0.538
2023 2 C.J. Stroud Texans

Ohio St.

 11 2 0.846 2011 8 Jake Locker Titans

Washington

 7 6 0.538
2020 5 Tua Tagovailoa Dolphins

Alabama

 11 2 0.846 2023 4 Anthony Richardson Colts

Florida

 6 7 0.462
2012 1 Andrew Luck Colts

Stanford

 11 2 0.846 2018 10 Josh Rosen Cardinals

UCLA

 6 7 0.462
2007 1 JaMarcus Russell Raiders

LSU

 11 2 0.846 2017 10 Patrick Mahomes Chiefs

Texas Tech

 5 7 0.417
Data via drafthistory.com and sports-reference.com

Bless your chart + @dadgumboxscores | April 23, 2024