095: Super Regionals

gtExtras
geom_bar
Published

June 5, 2024

Load data

Code 
library(cbbplotR)
# data: https://vsin.com/mlb/ncaa-baseball-super-regional-betting-preview/
# make the table manually
supers <- tibble::tribble(
    ~super,~price,~odds,~team,
    "Knoxville",270,-800,"Tennessee",
    "Knoxville",12000,480,"Evansville",
    "Tallahassee",1300,-320,"Florida St.",
    "Tallahassee",10000,235,"Connecticut",
    "Charlottesville",1400,-250,"Virginia",
    "Charlottesville",5000,190,"Kansas St.",
    "Chapel Hill",900,-250,"North Carolina",
    "Chapel Hill",3500,190,"West Virginia",
    "Lexington",900,-128,"Kentucky",
    "Lexington",1300,-102,"Oregon St.",
    "Athens",1400,-130,"Georgia",
    "Athens",2300,102,"NC State",
    "Clemson",1000,-210,"Clemson",
    "Clemson",3000,162,"Florida",
    "College Station",340,-390,"Texas A&M",
    "College Station",5000,265,"Oregon",
) |> 
  dplyr::mutate(prob_super = dplyr::if_else(odds > 0,
                              100 / (odds + 100),
                              -odds / (-odds + 100)),
                prob_cws = dplyr::if_else(price > 0,
                              100 / (price + 100),
                              -price / (-price + 100))
                )

GT Theme

Code 
gt_theme_chris <- function(gt_object, ...) {
  stopifnot("'gt_object' must be a 'gt_tbl', have you accidentally passed raw data?" = "gt_tbl" %in% class(gt_object))
  
  gt_object |> 
    gt::tab_options(
      heading.align = "left",
      table.border.top.style = "none",
      column_labels.border.bottom.style = "none",
      column_labels.border.bottom.color = "black",
      table_body.border.top.style = "none",
      table_body.border.bottom.color = "white",
      heading.border.bottom.style = "none",
      data_row.padding = gt::px(5),
      table.font.size = gt::px(12),
      column_labels.font.size = gt::px(12),
      column_labels.font.weight = "bolder",
      column_labels.border.bottom.width = gt::px(1),
      ...
    ) |> 
    gt::tab_style(
      style = gt::cell_text(
        color = "#333333",
        font = gt::google_font("Roboto"),
        transform = "uppercase"
      ),
      locations = list(
        gt::cells_column_labels(),
        gt::cells_stubhead()
      )
    ) |> 
    gt::tab_style(
      style = gt::cell_text(
        font = gt::google_font("Roboto"),
        weight = 800
      ),
      locations = gt::cells_title(groups = "title")
    ) |> 
    gt::tab_style(
      style = gt::cell_text(
        font = gt::google_font("Roboto"),
        weight = 400
      ),
      locations = gt::cells_body()
    ) |> 
    gt::tab_style(
      locations = gt::cells_title(groups = "subtitle"),
      style = gt::cell_text(
        size = "small"
      )
    ) |> 
    gt::tab_style(
      locations = gt::cells_title(groups = "title"),
      style = gt::cell_text(
        size = "large"
      )
    ) |> 
    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()
      )
    )  |> 
    gt::tab_style(
      locations = gt::cells_row_groups(groups = gt::everything()),
      style = list(
        gt::cell_text(
          size = "small",
          weight = "bold"
        ), 
        gt::cell_fill(color = "#FFFEE0")
      )) |> 
    gt::tab_style(
      style = list(
        gt::cell_fill(color = "#FFFEE0"),
        gt::cell_text(color = "#333333", size = gt::px(12), weight = "bold"),
        gt::cell_borders(sides = "right", color = "black", weight = gt::px(2)),
        gt::cell_borders(sides = "bottom", color = "black", weight = gt::px(2))
      ),
      locations = list(
        gt::cells_column_spanners(
          spanners = gt::everything()
        )
      )
    )
}

Function to make the GT tables

Code 
supers |> 
      dplyr::select(super, team, odds, prob_super, price, prob_cws) |>     
      cbbplotR::gt_cbb_teams(team, team) |> 
      gt::gt(groupname_col = "super", 
           row_group_as_column = TRUE) |> 
      gt::fmt_markdown(team) |> 
      gt::cols_label(
        super = "Super Regional",
        team = "",
        odds = "Odds",
        prob_super = "% Chance",
        price = "Odds",
        prob_cws = "% Chance"
    ) |>
    gt::tab_spanner(label = "Make CWS", 
                    columns = c(odds, prob_super)) |> 
    gt::tab_spanner(label = "Win CWS", 
                    columns = c(price, prob_cws)) |> 
    gt::cols_align(align = "left", columns = c(team)) |>
    gtExtras::gt_hulk_col_numeric(columns = c(price, odds),
                                  reverse = TRUE) |>
    gtExtras::gt_hulk_col_numeric(columns = c(prob_super, prob_cws)) |>
    gt::fmt_percent(columns = c(prob_super, prob_cws), decimals = 1) |> 
    gtExtras::gt_add_divider(columns = c(team, prob_super), 
                             sides = "right", color = "black") |> 
    gt::tab_header(title = "Super Regionals: Odds to Make and Win College World Series",
                   subtitle = gt::html("Shows the probability to advance to CWS and win the national championship using odds from VSiN.com. Super Regionals are grouped by pairings and bracket in Omaha.")) |>
    gt::tab_source_note(source_note = gt::html("<hr><br>
                                       Odds from VSiN.com and Aaron Moore<br>
                                       If all favorites win, the initial matchups in Omaha are Tennessee-Florida State, Virginia-North Carolina, Kentucky-Georgia, Clemson-Texas A&M. <br>Holy SEC and ACC teams batman!
                                       <hr>
                                       <b>Table by Chris (@dadgumboxscores) + Bless your chart | June 5, 2024</b>")) |> 
   gt::fmt(
    columns = c(price, odds),
    fns = function(x) {
      ifelse(x > 0, paste0("+", x), x)
    }
  ) |>
   cbbplotR::gt_theme_savant() |> 
      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_options(
      heading.align = "left",
   ) |> 
    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))
      )) -> super_pack

gtExtras::gtsave_extra(super_pack,
                       filename = "nccat_supers.png",
                       vheight = 850,
                       vwidth = 650)

super_pack
Super Regionals: Odds to Make and Win College World Series
Shows the probability to advance to CWS and win the national championship using odds from VSiN.com. Super Regionals are grouped by pairings and bracket in Omaha.
Make CWS Win CWS
Odds % Chance Odds % Chance
Knoxville

Tennessee

 -800 88.9% +270 27.0%

Evansville

 +480 17.2% +12000 0.8%
Tallahassee

Florida St.

 -320 76.2% +1300 7.1%

Connecticut

 +235 29.9% +10000 1.0%
Charlottesville

Virginia

 -250 71.4% +1400 6.7%

Kansas St.

 +190 34.5% +5000 2.0%
Chapel Hill

North Carolina

 -250 71.4% +900 10.0%

West Virginia

 +190 34.5% +3500 2.8%
Lexington

Kentucky

 -128 56.1% +900 10.0%

Oregon St.

 -102 50.5% +1300 7.1%
Athens

Georgia

 -130 56.5% +1400 6.7%

North Carolina St.

 +102 49.5% +2300 4.2%
Clemson

Clemson

 -210 67.7% +1000 9.1%

Florida

 +162 38.2% +3000 3.2%
College Station

Texas A&M

 -390 79.6% +340 22.7%

Oregon

 +265 27.4% +5000 2.0%

Odds from VSiN.com and Aaron Moore
If all favorites win, the initial matchups in Omaha are Tennessee-Florida State, Virginia-North Carolina, Kentucky-Georgia, Clemson-Texas A&M.
Holy SEC and ACC teams batman!
Table by Chris (@dadgumboxscores) + Bless your chart | June 5, 2024