NBA All Stars: further adventures with gt

The All Stars

First lets take a look at our starters:

asg_starters %>%
  select(player, team_slug) %>%
  gt() %>%
  tab_header(
    title = md("**NBA All-Star Game Starters**"),
  ) %>%
  cols_label(player = md("**Player Name**"),
             team_slug = md("**Team**")) %>%
  tab_footnote(
    footnote = "Team captain",
    locations = cells_data(
      columns = vars(player),
      rows = c(1, 8))
  ) %>%
  tab_options(footnote.glyph = c("*, †, ‡"))

Now the All-Star reserves:

asg_reserves %>%
  select(player, team_slug) %>%
  gt() %>%
  tab_header(
    title = md("**NBA All-Star Game Reserves**"),
  ) %>%
  cols_label(player = md("**Player Name**"),
             team_slug = md("**Team**"))

We’ve also got a category I’m calling “specials.” Brooklyn Nets guard D’Angelo Russell was named by NBA Commissioner Adam Silver as the replacement for Victor Oladipo, who ruptured a quad tendon in a game against the Raptors on January 23.¹

Silver also added Dirk Nowitzki and Dwyane Wade as “special team roster additions” because, well, they’re Dirk Nowitzki and D. Wade.²

asg_special %>%
  select(player, team_slug) %>%
  gt() %>%
  tab_header(
    title = md("**NBA All-Star Game Special Selections**"),
  ) %>%
  cols_label(player = md("**Player Name**"),
             team_slug = md("**Team**"))

The Votes

We’ve got voting data, which I scraped and wrangled in an earlier missive.³

Munging data in

Let’s get some more data on our actual selected All-Star team. First I’ll combine the starters, reserves, and “specials” into a single data frame.

asg_players <- bind_rows(asg_starters, asg_reserves, asg_special)

Next will bring in the All-Star voting data Note that I’m using two columns for the join not because I necessarily need them, but to avoid name repair which (by default) would leave me with two variables, team_slug.x and team_slug.y, in the resulting data frame.

asg_data <- asg_players %>%
  left_join(asg_votes, by = c("player", "team_slug"))

I’m also gonna ditch those last four columns, since they were a mess of my own making from the initial data scraping, and I’m pretty sure they have variable names that will bork something up somewhere.

asg_data <- asg_data[,1:13]

Selections vs. Voted Rankings

Next, let’s take a look at the players who were “least deserving” of their selection according to player, fan, and media rankings. We’ll group by conf_court, since the voting is does that way, and, thus each combination of Eastern/Western conferences and front/back courts has their own ranking.

rank_vars <- c("player", "team_slug", "player_rank", "fan_rank", "media_rank", "weighted_score", "conf_court")

asg_data %>%
  group_by(conf_court) %>%
  filter(player_rank == max(player_rank)) %>%
  select(rank_vars) %>%
  gt() %>%
  tab_header(
    title = md("**Least Deserving: Player Rank**"),
  ) %>%
  cols_label(player = md("**Player Name**"),
             team_slug = md("**Team**"),
             fan_rank = md("**Fan Rank**"),
             player_rank = md("**Player Rank**"),
             media_rank = md("**Media Rank**"),
             weighted_score = md("**Weighted Score**")) %>%
  tab_style(
    style = cells_styles(
      bkgd_color = "lightpink"),
    locations = cells_data(
      columns = vars(player_rank)
      )
    ) %>%
  tab_source_note(md("source: [nba.com](http://www.nba.com/article/2019/01/24/2019-nba-all-star-starters-revealed-official-release)")) %>%
  tab_options(stub_group.font.weight = "600",
              sourcenote.padding = px(10))

Why so many in this last round? Well, the media happened to have quite a few ties. Don’t worry, they haven’t totally lost their minds. They’ve got Damian Lillard ranked number 4 for Western Conference Guards, tied with Klay Thompson. Klay’s an interesting case, because though he’s definitely got the fans and media behind him, he’s only ranked 11th by his peers.

It’s not surprising that we see Nowitzki in all three. Dude’s a legend, playing at 41, and this is a “sentimental” pick on a lot of levels. DLo (D’Angelo Russell) is another story, though. I’m not saying he doesn’t deserve it — he’s been great this season, but (if you take a look at the table above for Eastern Backcourt), by votes alone, the players, fans, and media all had several players lined up before him.

Player faves not selected

Based on the votes of their peers, who was low-key robbed?

We’ll grab the top seven players from each segment according to player rankings. Then we can see who among them was not selected to play in the All-Star Game.

I like this little not in operator %ni%, from a post on Stack Overflow by Spencer Castro.⁴ So, I’ll use that to get my player list.

'%ni%' <- Negate('%in%')

player_top7 <- asg_votes %>%
  filter(player_rank <= 7) 

top7_nin_asg <- player_top7 %>%
  filter(player %ni% asg_players$player)

Looks like Jimmy Butler and Derrick Rose were robbed from players’ standpoint.

Lest you think everyone was in agreement about that, the media were a pretty consistent voting block, and, the way rankings were done, this means players with zero media votes all tied for… Well, let’s see:

asg_votes %>%
  group_by(conf_court) %>%
  filter(media_rank == max(media_rank)) %>%
  select(media_total_votes, media_rank, conf_court) %>%
  distinct() %>%
  gt() %>%
  tab_header(
    title = md("**Media All-Star No Votes and Rank**"),
    subtitle = glue::glue("NBA All-Star Voting 2019 Results")
    ) %>%
  cols_label(
    media_total_votes = md("**Media Votes**"),
    media_rank = md("**Media Rank**")
    ) %>%
    tab_source_note(md("source: [nba.com](http://www.nba.com/article/2019/01/24/2019-nba-all-star-starters-revealed-official-release)")) %>%
  tab_options(stub_group.font.weight = "600",
              sourcenote.padding = px(10))

So, yeah, Jimmy Butler was 7th in media rank…along with every other frontcourt player from the Eastern Conference who got zero media votes.

Team LeBron vs. Team Giannis

The conference captains, LeBron James and Giannis Antetokounmpo, drafted their teams on February 8th. Here’s how that shook out:

allstar_teams <- read_csv(here::here("data", "ASG", "allstar_teams.csv"))

## Parsed with column specification:
## cols(
##   draft_pick = col_double(),
##   player = col_character(),
##   allstar_team = col_character()
## )

asg_player_teamslug <- asg_data %>%
  dplyr::select(player, team_slug)

allstar_teams %>%
  left_join(asg_player_teamslug, by = "player") %>%
  gt() %>%
  tab_header(
    title = md("**Draft Results: Team LeBron vs. Team Giannis**"),
    subtitle = glue::glue("2019 NBA All-Star Rosters")
  ) %>%
  cols_label(
    draft_pick = md("**Pick**"),
    player = md("**Player**"),
    allstar_team = md("**All-Star Team**"),
    team_slug = md("**NBA Team**")
  ) %>%
    tab_source_note(md("source: [nba.com](http://www.nba.com/allstar/2019/draft)")) %>%
    tab_footnote(
    footnote = "Traded after draft",
    locations = cells_data(
      columns = vars(player),
      rows = c(13, 16))
  ) %>%
  tab_options(footnote.glyph = c("*, †, ‡"))

Since there are no rules prohibiting trades (this is only the second year the NBA has drafted all-star teams rather than splitting them by conference), Giannis and LeBron went ahead and swapped Ben Simmons and Russell Westbrook after the draft.⁵

allstar_results <- read_csv(here::here("data", "ASG", "allstar_results.csv"))

## Parsed with column specification:
## cols(
##   player = col_character(),
##   allstar_team = col_character(),
##   starter = col_logical()
## )

allstar_results %>%
  left_join(asg_player_teamslug, by = "player") %>%
  mutate(status = case_when(
    starter == TRUE ~ "Starters",
    TRUE ~ "Reserves"
  )) %>%
  dplyr::select(player, allstar_team, status, team_slug) %>%
  group_by(allstar_team, status) %>%
  gt(rowname_col = "player") %>%
  tab_header(
    title = md("**2019 NBA All-Star Teams**")
  ) %>%
  cols_label(
    team_slug = md("**NBA Team**")
  ) %>%
  tab_source_note(md("source: [nba.com](http://www.nba.com/allstar/2019/draft)")) %>%
  tab_options(
    stub_group.font.weight = "600"
  )

allstar_spread <- allstar_results %>%
  tibble::rowid_to_column() %>%
  spread(allstar_team, player) %>%
  mutate(status = case_when(
    starter == TRUE ~ "Starters",
    TRUE ~ "Reserves"
  )) %>%
  dplyr::select(status, `Team Giannis`, `Team LeBron`)


team_giannis <- allstar_spread %>%
  filter(!is.na(`Team Giannis`)) %>%
  dplyr::select(status, `Team Giannis`)

team_lebron <- allstar_spread %>%
  filter(!is.na(`Team LeBron`)) %>%
  dplyr::select(status, `Team LeBron`)

spread_teams <- team_giannis %>%
  bind_cols(team_lebron) %>%
  select(-status1)

spread_teams %>%
  group_by(status) %>%
  gt() %>%
  cols_label(`Team Giannis` = html("<strong>Team Giannis</strong>",
                                   web_image(url = "https://abs.twimg.com/hashflags/TeamGiannis-ASW19/TeamGiannis-ASW19.png")
                                   ),
             `Team LeBron` = html("<strong>Team LeBron</strong>",
                                   web_image(url = "https://abs.twimg.com/hashflags/TeamLBJ-ASW19/TeamLBJ-ASW19.png")
                                   )
             ) %>%
  tab_header(
    title = html(
      "<strong>2019 NBA All-Star Teams</strong>",
            web_image(
              url = "https://abs.twimg.com/hashflags/NBAAllstarMain2019/NBAAllstarMain2019.png"
              )
      )
  ) %>%
  tab_options(
    table.background.color = "darkcyan",
    column_labels.font.weight = "600",
    stub_group.font.weight = "800"
  ) %>%
  tab_style(
    style = cells_styles(
      text_font = "Georgia",
      text_size = pt(80)
    ),
    locations = cells_title(
      groups = c("title")
    )
  ) %>%
  tab_style(
    style = cells_styles(
      text_align = "center"
      ),
    locations = cells_group(status)
  )

2019 NBA All-Star Teams
Team Giannis	Team LeBron
Starters
Giannis Antetokounmpo	LeBron James
Stephen Curry	Kevin Durant
Joel Embiid	Kyrie Irving
Paul George	Kawhi Leonard
Kemba Walker	James Harden
Reserves
Khris Middleton	Anthony Davis
Nikola Jokic	Klay Thompson
Blake Griffin	Ben Simmons
Russell Westbrook	Damian Lillard
D'Angelo Russell	LaMarcus Aldridge
Nikola Vucevic	Karl-Anthony Towns
Kyle Lowry	Bradley Beal
Dirk Nowitzki	Dwyane Wade

Hashflag fun

How about we take a look at those pretty hashflags they’ve got going on Twitter for All-Star Weekend? Since Twitter apparently doesn’t know how to follow a naming convention, I manually populated a spreadsheet with the necessary info.

allstar_hashflags <- readr::read_csv(here::here("data", "ASG", "allstar_hashflags.csv"))

## Parsed with column specification:
## cols(
##   player = col_character(),
##   allstar_team = col_character(),
##   starter = col_logical(),
##   hashflag = col_character(),
##   hashflag_url = col_character()
## )

allstar_hashflags %>%
  mutate(status = case_when(
    starter == TRUE ~ "Starters",
    TRUE ~ "Reserves"
  )) %>%
  dplyr::select(player, allstar_team, status, hashflag_url) %>%
  group_by(allstar_team, status) %>%
  gt(rowname_col = "player") %>%
  text_transform(
    locations = cells_data(vars(hashflag_url)),
    fn = function(x) {
      web_image(url = x) 
    }
  ) %>%
  tab_header(
    title = html(
      "<strong>2019 NBA All-Star Teams</strong>",
      web_image(
        url = "https://abs.twimg.com/hashflags/NBAAllstarMain2019/NBAAllstarMain2019.png"
      )
      )
  ) %>%
  cols_label(
    hashflag_url = md("**Hashflag**")
  ) %>%
  tab_options(
    stub_group.font.weight = "600",
    row.striping.include_stub = TRUE,
    table.width = pct(40)
  ) %>%
  tab_style(
    locations = cells_data(vars(hashflag_url)),
    cells_styles(text_align = "center")
  )

2019 NBA All-Star Teams
	Hashflag
Team LeBron - Starters
LeBron James
Kevin Durant
Kyrie Irving
Kawhi Leonard
James Harden
Team Giannis - Starters
Giannis Antetokounmpo
Stephen Curry
Joel Embiid
Paul George
Kemba Walker
Team Giannis - Reserves
Khris Middleton
Nikola Jokic
Blake Griffin
Russell Westbrook
D’Angelo Russell
Nikola Vucevic
Kyle Lowry
Dirk Nowitzki
Team LeBron - Reserves
Anthony Davis
Klay Thompson
Ben Simmons
Damian Lillard
LaMarcus Aldridge
Karl-Anthony Towns
Bradley Beal
Dwyane Wade

asw_giannis <- allstar_hashflags %>%
  filter(allstar_team == "Team Giannis")

asw_giannis %>%
  mutate(status = case_when(
    starter == TRUE ~ "Starters",
    TRUE ~ "Reserves"
  )) %>%
  dplyr::select(player, status, hashflag_url) %>%
  group_by(status) %>%
  gt(rowname_col = "player") %>%
  text_transform(
    locations = cells_data(vars(hashflag_url)),
    fn = function(x) {
      web_image(url = x) 
    }
  ) %>%
  tab_header(
    title = html(
      "<strong>Team Giannis</strong>",
      web_image(
        url = "https://abs.twimg.com/hashflags/TeamGiannis-ASW19/TeamGiannis-ASW19.png"
      )
      ),
    subtitle = md("2019 NBA All-Star Game")
  ) %>%
  cols_label(
    hashflag_url = md("**Hashflag**")
  ) %>%
  tab_options(
    stub_group.font.weight = "600",
    row.striping.include_stub = TRUE,
    table.width = px(300)
  ) %>%
  tab_style(
    locations = cells_data(vars(hashflag_url)),
    cells_styles(text_align = "center")
  )

Team Giannis
2019 NBA All-Star Game
	Hashflag
Starters
Giannis Antetokounmpo
Stephen Curry
Joel Embiid
Paul George
Kemba Walker
Reserves
Khris Middleton
Nikola Jokic
Blake Griffin
Russell Westbrook
D’Angelo Russell
Nikola Vucevic
Kyle Lowry
Dirk Nowitzki

asw_lebron <- allstar_hashflags %>%
  filter(allstar_team == "Team LeBron")

asw_lebron %>%
  mutate(status = case_when(
    starter == TRUE ~ "Starters",
    TRUE ~ "Reserves"
  )) %>%
  dplyr::select(player, status, hashflag_url) %>%
  group_by(status) %>%
  gt(rowname_col = "player") %>%
  text_transform(
    locations = cells_data(vars(hashflag_url)),
    fn = function(x) {
      web_image(url = x) 
    }
  ) %>%
  tab_header(
    title = html(
      "<strong>Team LeBron</strong>",
      web_image(
        url = "https://abs.twimg.com/hashflags/TeamLBJ-ASW19/TeamLBJ-ASW19.png"
      )
      ),
    subtitle = md("2019 NBA All-Star Game")
  ) %>%
  cols_label(
    hashflag_url = md("**Hashflag**")
  ) %>%
  tab_options(
    stub_group.font.weight = "600",
    row.striping.include_stub = TRUE,
    table.width = px(300)
  ) %>%
  tab_style(
    locations = cells_data(vars(hashflag_url)),
    cells_styles(text_align = "center")
  )

Team LeBron
2019 NBA All-Star Game
	Hashflag
Starters
LeBron James
Kevin Durant
Kyrie Irving
Kawhi Leonard
James Harden
Reserves
Anthony Davis
Klay Thompson
Ben Simmons
Damian Lillard
LaMarcus Aldridge
Karl-Anthony Towns
Bradley Beal
Dwyane Wade