103: Coaching Comps

gt
Published

August 6, 2024

Make data

Code 
library(cbbplotR)
# replace NAs with empty values 
coaches <- readr::read_csv("coaching.csv") |> 
  dplyr::mutate(dplyr::across(everything(), ~as.character(.))) |>
  dplyr::mutate(dplyr::across(everything(), ~dplyr::coalesce(., "")))

# split the table 
all_coaches <- coaches |> 
  dplyr::mutate(f_team = dplyr::if_else(f_team == "", "Duke", f_team)) |> 
  cbbplotR::gt_cbb_teams(f_team, f_team) |> 
  dplyr::mutate(f_team = dplyr::if_else(f_team == "<img src='http://a.espncdn.com/i/teamlogos/ncaa/500/150.png' style='height: 25px; width: auto; vertical-align: -30%;'> Duke", 
                                        "", f_team),
                s_team = dplyr::if_else(s_team == "Manchester City", 
                                        "<img src='https://a.espncdn.com/combiner/i?img=/i/teamlogos/soccer/500/382.png' style='height: 25px; width: auto; vertical-align: -30%;'> Manchester City", 
                                        s_team),
                s_team = dplyr::if_else(s_team == "Arsenal", 
                                        "<img src='https://a.espncdn.com/combiner/i?img=/i/teamlogos/soccer/500/359.png' style='height: 25px; width: auto; vertical-align: -30%;'> Arsenal", 
                                        s_team),
                s_team = dplyr::if_else(s_team == "Manchester United", 
                                        "<img src='https://a.espncdn.com/combiner/i?img=/i/teamlogos/soccer/500/360.png' style='height: 25px; width: auto; vertical-align: -30%;'> Manchester United", 
                                        s_team),
                s_team = dplyr::if_else(s_team == "Aston Villa", 
                                        "<img src='https://a.espncdn.com/combiner/i?img=/i/teamlogos/soccer/500/362.png' style='height: 25px; width: auto; vertical-align: -30%;'> Aston Villa", 
                                        s_team),
                s_team = dplyr::if_else(s_team == "Liverpool", 
                                        "<img src='https://a.espncdn.com/combiner/i?img=/i/teamlogos/soccer/500/364.png' style='height: 25px; width: auto; vertical-align: -30%;'> Liverpool", 
                                        s_team),
                 ) |> 
  dplyr::mutate(f_coach_salary = paste0(f_coach, ", $", f_comp, " ", "million"),
                s_coach_salary = paste0(s_coach, ", $", s_comp, " ", "million"),
                f_coach_salary = dplyr::if_else(f_coach_salary == ", $ million", "", 
                                                f_coach_salary),
                s_coach_salary = dplyr::if_else(s_coach_salary == ", $ million", "", 
                                                s_coach_salary),
                money = paste0("$", money, "M"),
                money =  dplyr::if_else(money == "$M", "", 
                                       money)
                ) |>  
  dplyr::select(f_team, f_coach_salary, money, s_team, s_coach_salary) 

first_tab <- all_coaches |> 
  dplyr::slice(1:15) |> 
  dplyr::mutate(rank = dplyr::row_number()) |> 
  dplyr::relocate(rank, .before = f_team)

second_tab <- all_coaches |> 
  dplyr::slice(16:30) |> 
    dplyr::mutate(rank = dplyr::row_number() + 15) |> 
    dplyr::relocate(rank, .before = f_team)


# combine the two 

full_list <- first_tab |> 
  dplyr::bind_cols(second_tab)

GT Table header

Code 
custom_header <- glue::glue(
  "<div style='display: flex; justify-content: space-between; align-items: center;'>
      <div>
       <img src='https://www.nrgpark.com/wp-content/uploads/cfp-2024.png'
       style='height: 45px; width: auto; vertical-align: middle;'>
     </div>
     <div style='flex-grow:1; margin-left: 30px; margin-right: 30px'>
       <span style='display: block; font-weight: bold; text-align: center; font-size: 24px;'>2024 Coaching Compensation</span><span style='display: block; font-weight: bold; text-align: center; font-size: 18px;'>College Football and English Premier League</span>
       <span style='font-size: 14px; font-weight: normal; display: block; text-align: center;'>Compares the annual compensation of college football coaches and EPL managers.</span>
     </div>
     <div>
       <img src='https://upload.wikimedia.org/wikipedia/en/thumb/f/f2/Premier_League_Logo.svg/1200px-Premier_League_Logo.svg.png' 
       style='height: 45px; width: auto; vertical-align: middle;'>
     </div>
   </div>
  <br>"
)

GT Table and styles

Code 
cfb_epl_tbl <- full_list |> 
  gt::gt() |> 
  gt::fmt_markdown(columns = c(f_team...2),
                   rows = c(8:15)) |> 
  gt::fmt_markdown(columns = c(s_team...5),
                   rows = c(1, 11)) |> 
  gt::fmt_markdown(columns = c(f_team...8)) |> 
  gt::fmt_markdown(columns = c(s_team...11),
                   rows = c(1, 5, 12)) |> 
  gtExtras::gt_merge_stack(
    col1 = f_team...2,
    col2 = f_coach_salary...3,
    palette = c("black", "#333333")
  ) |> 
  gtExtras::gt_merge_stack(
    col1 = s_team...5,
    col2 = s_coach_salary...6,
    palette = c("black", "#333333")
  ) |> 
  gtExtras::gt_merge_stack(
    col1 = f_team...8,
    col2 = f_coach_salary...9,
    palette = c("black", "#333333")
  ) |> 
  gtExtras::gt_merge_stack(
    col1 = s_team...11,
    col2 = s_coach_salary...12,
    palette = c("black", "#333333")
  ) |> 
  gt::cols_align(columns = c(f_team...2, s_team...5, f_team...8, s_team...11), 
                 align = "left") |> 
  gt::cols_align(columns = c(money...4, money...10), 
                 align = "center") |> 
  gtExtras::gt_add_divider(columns = c(money...4, s_team...5, rank...7,
                                       money...10, s_team...11), 
                           sides = "left", color = "black") |> 
  gt::cols_label(
    rank...1 = "",
    f_team...2 = gt::html("College<br>Football<br>Coaches"),
    f_coach_salary...3 = "",
    money...4 = gt::html("Annual<br>Compensation<br>Millions"),
    s_team...5 = gt::html("Premier<br>League<br>Managers"),
    s_coach_salary...6 = "",
    rank...7 = "",
    f_team...8 = gt::html("College<br>Football<br>Coaches"),
    f_coach_salary...9 = "",
    money...10 = gt::html("Annual<br>Compensation<br>Millions"),
    s_team...11 = gt::html("Premier<br>League<br>Managers"),
    s_coach_salary...12 = "",
  ) |> 
  gt::tab_header(title = gt::html(custom_header)) |>
  gt::tab_source_note(source_note = gt::html("<hr>
                                       Data from FrontOfficeSports.com | Theme from cbbplotR and logos from ESPN.com<br>
                                       Shows 23 college football coaches with an annual salary of ~$6.5 million. There are 134 FBS programs.<br>
                                       Shows four EPL managers that make ~$7 million or more. There are 20 teams in the EPL. 
                                       <hr>
                                       <b>Table by Chris (@dadgumboxscores) + Bless your chart | August 7, 2024</b>")) |> 
  cbbplotR::gt_theme_savant() |> 
  gtExtras::gt_highlight_rows(rows = c(1), fill = "#45aa15", 
                              columns = c(money...4)
  ) |> 
  gtExtras::gt_highlight_rows(rows = c(8), fill = "#5ade1b", 
                              columns = c(money...4)
  ) |> 
  gtExtras::gt_highlight_rows(rows = c(11), fill = "#72e73a", 
                              columns = c(money...4)
  ) |> 
  gtExtras::gt_highlight_rows(rows = c(1), fill = "#8beb5d", 
                              columns = c(money...10)
  ) |> 
  gtExtras::gt_highlight_rows(rows = c(5), fill = "#b0f191", 
                              columns = c(money...10)
  ) |> 
  gtExtras::gt_highlight_rows(rows = c(10), fill = "#d6f8c5", 
                              columns = c(money...10)
  ) |> 
   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()
    )
  ) |> 
  gt::tab_style(
    locations = gt::cells_column_labels(),
    style = list(
      gt::cell_text(
        align = "center"
      )
    )) |> 
  gt::tab_style(
    locations = gt::cells_body(columns = c(money...4, money...10)),
    style = list(
      gt::cell_text(
        align = "center",
        size = gt::px(18),
        style = "italic",
        stretch = "ultra-expanded"
      )
    )) |> 
    gt::tab_style(
    locations = gt::cells_body(columns = c(rank...1, rank...7)),
    style = list(
      gt::cell_text(
        align = "left",
        size = gt::px(10),
        color = "#acacac",
        stretch = "ultra-condensed"
      )
    )) |> 
  gt::tab_style(
    locations = gt::cells_row_groups(groups = gt::everything()),
    style = list(
      gt::cell_text(
        align = "center"
      ),
      gt::cell_borders(sides = c("top", "right"), color = "black", weight = gt::px(2))
    )) |> 
  gt::tab_style(
    style = list(
      gt::cell_text(color = "#333333", size = gt::px(12), weight = "bold"),
      gt::cell_borders(sides = "bottom", color = "black", weight = gt::px(2))
    ),
    locations = list(
      gt::cells_column_spanners(
        spanners = gt::everything()
      )
    )
  ) |> 
    gt::tab_options(
    heading.align = "center",
  ) -> cfb_epl_tbl

gtExtras::gtsave_extra(cfb_epl_tbl, 
                       filename = "cfb_epl_tbl.png",
                       vwidth = 850,
                       expand = 10)

cfb_epl_tbl
2024 Coaching CompensationCollege Football and English Premier League Compares the annual compensation of college football coaches and EPL managers.

College
Football
Coaches		 Annual
Compensation
Millions		 Premier
League
Managers		 College
Football
Coaches		 Annual
Compensation
Millions		 Premier
League
Managers
1
$20M

Manchester City

Pep Guardiola, $20 million
16

Mississippi

Lane Kiffin, $9 million
$9M

Manchester United

Erik ten Hag, $9 million
2
$19M
17

Tennessee

Josh Heupel, $9 million
3
$18M
18

Kentucky

Mark Stoops, $9 million
4
$17M
19

Penn St.

James Franklin, $8.5 million
5
$16M
20

Oklahoma

Brent Venables, $8.2 million
$8M

Aston Villa

Unai Emery, $8 million
6
$15M
21

Miami FL

Mario Cristobal, $8 million
7
$14M
22

Oklahoma St.

Mike Gundy, $7.75 million
8

Georgia

Kirby Smart, $13 million
$13M
23

Wisconsin

Luke Fickell, $7.6 million
9

Clemson

Dabo Swinney, $11.5 million
$12M
24

Florida

Billy Napier, $7.3 million
10

USC

Lincoln Riley, $11 million
$11M
25

Iowa

Kirk Ferentz, $7 million
$7M
11

Texas

Steve Sarkisian, $10.3 million
$10M

Arsenal

Mikel Arteta, $10 million
26

Oregon

Dan Lanning, $7 million
12

Alabama

Kalen DeBoer, $10 million
27

Nebraska

Matt Rhule, $6.78 million

Liverpool

Arne Slot, $6.85 million
13

Florida St.

Mike Norvell, $9.8 million
28

Auburn

Hugh Freeze, $6.73 million
14

LSU

Brian Kelly, $9.5 million
29

Utah

Kyle Whittingham, $6.5 million
15

Ohio St.

Ryan Day, $9.5 million
30

Arkansas

Sam Pittman, $6.5 million
Data from FrontOfficeSports.com | Theme from cbbplotR and logos from ESPN.com
Shows 23 college football coaches with an annual salary of ~$6.5 million. There are 134 FBS programs.
Shows four EPL managers that make ~$7 million or more. There are 20 teams in the EPL.
Table by Chris (@dadgumboxscores) + Bless your chart | August 7, 2024