bless your chart - 152: UNC bad home losses

Load data

Code

library(rlang)
library(cbbplotR)

# gt save function 
gt_save_crop <- function(data, file = NULL, bg = "white", whitespace = 50, zoom = 2, expand = 5) {
  tmp <- tempfile(fileext = ".png")
  
  # Wrap the gtsave_extra call in a tryCatch to handle errors
  tryCatch({
    gtExtras::gtsave_extra(data, tmp, zoom = zoom, expand = expand)
  }, error = function(e) {
    # If there's an error, try using regular gt::gtsave instead
    message("gtsave_extra failed, trying gt::gtsave...")
    gt::gtsave(data, tmp, zoom = zoom, expand = expand)
  })
  
  magick::image_read(tmp) %>%
    magick::image_trim() %>%
    magick::image_border(bg, glue::glue('{whitespace}x{whitespace}')) %>%
    magick::image_write(file)
  unlink(tmp)
}
###

unc_bad <- readr::read_csv("unc_home.csv") |> 
  dplyr::filter(diff > 29) |> 
  dplyr::mutate(score = paste0(awayTeam, ", ", 
                               awayPoints, "-", homePoints)) |> 
  dplyr::select(diff, score, season) |> 
  dplyr::mutate(
    final_rec = dplyr::case_match(season, 
        2025 ~ "0-1 (?)",
        2002 ~ "3-9",
        1988 ~ "1-10",
        1989 ~ "1-10",
        2003 ~ "2-10",
        2004 ~ "6-6",
        1999 ~ "3-8",
        2008 ~ "8-5",
        2016 ~ "8-5"
        )
  )

Home loss table

Code

custom_header <- glue::glue(
  "<div style='display: flex; justify-content: space-between; align-items: center;'>
      <div>
       <img src='https://a.espncdn.com/combiner/i?img=/i/teamlogos/ncaa/500/153.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;'>North Carolina worst home losses since 1980</span>
       <span style='font-size: 12px; font-weight: normal; display: block; text-align: center;'>Shows the worst losses at home by point differential since 1980.</span>
     </div>
     <div>
       <img src='https://a.espncdn.com/combiner/i?img=/redesign/assets/img/icons/ESPN-icon-football-college.png'
       style='height: 40px; width: auto; vertical-align: middle;'>
     </div>
   </div>
  <br>"
)

unc_tbl <- unc_bad |> 
  dplyr::mutate(
        diff = as.numeric(paste0("-", diff
        ))
    ) |> 
  gt::gt() |>
  gtUtils::gt_theme_gtutils() |>
  gtUtils::gt_column_subheaders(
    diff = list(heading = "+/-", subtitle = "Margin"),
    score = list(heading = "Result", subtitle = "Opponent"),
    season = list(heading = "Season", subtitle = "Since 1980"),
    final_rec = list(heading = "W-L", subtitle = "Final Season Record"),
    heading_color = "black",
    subtitle_color = "gray"
  ) |>
  gt::tab_header(title = gt::html(custom_header)) |>
  gt::tab_source_note(
    source_note =
      gt::html(
        "<hr>Data via collegefootballdata.com, theme via {gtUtils} and logo from ESPN.<hr><b>Table by Chris at Bless your Chart</b>"
      )
  ) |>
  gtUtils::gt_border_bars_bottom(c("#56a0d3", "#89BDE0", "#BBD9ED")) |>
  gt::tab_options(table.width = gt::px(500)) |>
  gtUtils::gt_border_grid(color = "black",
                          weight = 1,
                          include_labels = FALSE) |>
  gt::tab_style(
    locations = gt::cells_source_notes(),
    style = gt::cell_text(
      font = gt::google_font("Signika Negative"),
      size = gt::px(11.5),
      weight = 250
    )
  ) |>
  gt::tab_style(
    style = list(gt::cell_text(font = gt::google_font("Signika Negative"))),
    locations = gt::cells_body(columns = everything())
  ) |>
  gt::cols_align(columns = c(diff, season), align = "right") |>
  gt::cols_align(columns = c(score, final_rec), align = "left") |>
  gtExtras::gt_highlight_rows(rows = c(6), fill = "#ffe9ec")


gt_save_crop(unc_tbl,
                      file = "bad_unc.png",
                      whitespace = 60,
                      bg = "#FFFDF5")

unc_tbl

North Carolina worst home losses since 1980 Shows the worst losses at home by point differential since 1980.
+/- Margin	Result Opponent	Season Since 1980	W-L Final Season Record
-52	Maryland, 59-7	2002	3-9
-45	NC State, 48-3	1988	1-10
-41	Duke, 41-0	1989	1-10
-37	Florida State, 37-0	2003	2-10
-34	Louisville, 34-0	2004	6-6
-34	TCU, 48-14	2025	0-1 (?)
-32	Clemson, 35-3	1989	1-10
-32	Florida State, 42-10	1999	3-8
-31	Texas, 52-21	2002	3-9
-31	NC State, 41-10	2008	8-5
-31	Virginia Tech, 34-3	2016	8-5
-30	Clemson, 42-12	2002	3-9
Data via collegefootballdata.com, theme via {gtUtils} and logo from ESPN. Table by Chris at Bless your Chart