bless your chart - 081: ACC Records

Data

Code

library(cbbplotR)

conf_data <-
  cbbdata::cbd_torvik_game_stats(year = 2024, type = "conf") |> 
  dplyr::filter(conf == "ACC")

# Determine the margin for conference only games
conf_margin <- conf_data |>
  dplyr::group_by(team) |>
  dplyr::summarise(
    wins = sum(result == "W"),
    loss = sum(result == "L"),
    delta = sum(pts - opp_pts),
    home_wins = sum(result == "W" & location == "H"),
    home_loss = sum(result == "L" & location == "H"),
    home_delta = sum((pts - opp_pts) * (location == "H")),
    away_wins = sum(result == "W" & location == "A"),
    away_loss = sum(result == "L" & location == "A"),
    away_delta = sum((pts - opp_pts) * (location == "A"))
  ) |>
  dplyr::arrange(-wins,-delta) |>
  dplyr::mutate(team_name = team) |>
  dplyr::relocate(team_name, .before = wins) |>
  cbbplotR::gt_cbb_teams(team, include_name = FALSE)

GT table with logo

Code

conf_margin |>
  dplyr::mutate(row_number = 1:dplyr::n()) |>
  dplyr::relocate(row_number, .before = team) |>
  gt::gt() |>
  gt::fmt_markdown(columns = c(team)) |>
  gt::cols_label(
    row_number = "",
    team_name = "",
    team = "",
    delta = "+/-",
    wins = "W",
    loss = "L",
    home_wins = "W",
    home_loss = "L",
    home_delta = "+/-",
    away_wins = "W",
    away_loss = "L",
    away_delta = "+/-"
  ) |>
  gt::tab_spanner(label = "Overall",
                  columns = c(wins, loss, delta)) |>
  gt::tab_spanner(label = "Home",
                  columns = c(home_wins, home_loss, home_delta)) |>
  gt::tab_spanner(label = "Away",
                  columns = c(away_wins, away_loss, away_delta)) |>
  gt::fmt(
    columns = c(delta, home_delta, away_delta),
    fns = function(x) {
      ifelse(x > 0, paste0("+", x), x)
    }
  ) |>
  gtExtras::gt_theme_dot_matrix() |>
  gt::cols_align(align = "left", columns = "team_name") |>
  gtExtras::gt_hulk_col_numeric(columns = c(delta, home_delta, away_delta)) |>
  gt::tab_header(
    title = gt::md(
      "<img src='https://substackcdn.com/image/fetch/w_1456,c_limit,f_webp,q_auto:good,fl_progressive:steep/https%3A%2F%2Fsubstack-post-media.s3.amazonaws.com%2Fpublic%2Fimages%2F19a014d5-5bf0-43a0-820d-b4224c32d88c_128x128.webp' style='height:30px;'>    **ACC: Conference Standings and Point Differentials**"
    ),
    subtitle = "Win/loss and point differential by location in conference play only."
  ) |>
  gt::tab_source_note(
    source_note = gt::html(
      "Data through March 2, 2024 games. <br> <b>Bless your chart + @dadgumboxscores | data via cbbdata + cbbplotR</b>"
    )
  ) |>
  gt::tab_options (
    source_notes.font.size = gt::px(10),
    row.striping.background_color = '#EEEEEE',
    table.font.size = gt::px(12),
    column_labels.text_transform = 'uppercase'
  ) |>
  gt::tab_style(style = list(gt::cell_borders(
    sides = c("left"),
    color = "#c1c1c1",
    weight = gt::px(2)
  )),
  locations = list(gt::cells_body(
    columns = c(
      wins,
      loss,
      delta,
      home_wins,
      home_loss,
      home_delta,
      away_wins,
      away_loss,
      away_delta
    )
  ))) -> conf_table

gtExtras::gtsave_extra(conf_table,
                       filename = "acc_table.png",
                       vheight = 875,
                       vwidth = 850)

conf_table

ACC: Conference Standings and Point Differentials
Win/loss and point differential by location in conference play only.
		Overall			Home			Away
		W	L	+/-	W	L	+/-	W	L	+/-
1	North Carolina	15	3	+172	8	1	+114	7	2	+58
2	Duke	14	4	+188	8	1	+113	6	3	+75
3	Virginia	12	7	-6	7	2	+75	5	5	-81
4	Syracuse	11	8	-63	8	2	+33	3	6	-96
5	Wake Forest	10	8	+112	8	0	+141	2	8	-29
6	Clemson	10	8	+58	5	4	+37	5	4	+21
7	Pittsburgh	10	8	+14	4	4	+2	6	4	+12
8	North Carolina St.	9	9	-3	5	4	+20	4	5	-23
9	Florida St.	9	9	-7	5	4	+3	4	5	-10
10	Virginia Tech	8	10	+3	7	2	+90	1	8	-87
11	Notre Dame	7	11	-20	5	5	+11	2	6	-31
12	Miami FL	6	12	-64	4	5	-16	2	7	-48
13	Boston College	6	12	-72	4	6	-23	2	6	-49
14	Georgia Tech	6	12	-120	4	6	-66	2	6	-54
15	Louisville	3	15	-192	2	6	-57	1	9	-135
Data through March 2, 2024 games. Bless your chart + @dadgumboxscores \| data via cbbdata + cbbplotR