This shows minutes percentage + box score plus/minus through six games this season for Carolina basketball.
It’s a super small sample size of six games.
Only players shown that have at least 5 percent of minutes played.
Code is below . . .
library(tidyverse)
library(ggrepel)
theme_me <- function () {
theme_minimal(base_size = 15, base_family = "RobotoCondensed-Regular") %+replace%
theme (
plot.title = element_text(hjust = 0.5),
plot.subtitle = element_text(
hjust = 0.5,
vjust = -2,
lineheight = 0.9,
size = 10
),
plot.caption = element_text(size = 8, hjust = 1),
panel.grid.minor = element_blank(),
plot.background = element_rect(fill = "#c9e1f1", color = "#c9e1f1")
)
}
bpm <- tibble::tribble(
~Player, ~Min, ~BPM,
"Caleb Love",76.3,-1.8,
"RJ Davis",75.4,1.5,
"Leaky Black",72.1,3.8,
"Garrison Brooks",69.6,4,
"Armando Bacot",56.7,8.1,
"Day'Ron Sharpe",45.4,13.9,
"Andrew Platek",37.1,7.3,
"Kerwin Walton",25.8,-1.3,
"Walker Kessler",21.3,4,
"Puff Johnson",9.6,-2.4
)
ggplot(bpm, aes(x = Min, y = BPM, label = Player))+
geom_text_repel(aes(colour = Player), fontface = "bold", size=4) +
xlim(0, 80) +
ylim(-5, 15) +
theme_me() +
theme(legend.position = "none") +
geom_hline(yintercept = 0, lty = 2) +
labs(
x = "Minutes Percentage",
y = "BPM",
title = "Carolina: Minutes Percentage and Box Score Plus/Minus Through Six Games",
subtitle ="BPM estimates a player's contribution. Six games is a small sample size",
caption = "@dadgumboxscores"
)