R Notebook

#NEXT # Load necessary libraries

library(dplyr)
library(readr)

print(top_performers)

write.csv(top_performers, "top_2025_PIT_performers.csv", row.names = FALSE)

data$weight <- as.numeric(data$weight)

Warning: NAs introduced by coercion

# Filter uncommitted players and ensure position is valid
PITdata <- data %>%
  filter(!is.na(position)) %>%
  mutate(position = toupper(position)) # Normalize positions

names(PITdata)

 [1] "player_name"    "school"         "height"         "position"      
 [5] "weight"         "rk"             "class"          "height_2"      
 [9] "team"           "conf"           "g"              "min"           
[13] "prpg"           "bpm"            "ortg"           "drtg"          
[17] "usg"            "efg"            "ts"             "or"            
[21] "dr"             "ast"            "to"             "a_to"          
[25] "blk"            "stl"            "ftr"            "dunks_m"       
[29] "dunks_a"        "ft_m"           "ft_a"           "x2p_m"         
[33] "x2p_a"          "x3p_m"          "x3p_a"          "x3p_100"       
[37] "ft"             "x2p"            "x3p"            "ppg"           
[41] "total_rebounds"

ggplot(PITdata, aes(x = drtg, y = ortg, size = ts, color = ast, label = paste(player_name))) +
  geom_point(alpha = 0.8) +
  scale_color_gradient(low = "orange", high = "blue") +
  scale_size_continuous(range = c(3, 10)) +
  geom_text(size = 3, vjust = -1, check_overlap = TRUE) +
  labs(title = "Top PIT Players: All-Around Performance by Cyro Asseo",
       x = "Defensive Rating (↓ Better)",
       y = "Offensive Rating (↑ Better)",
       size = "True Shooting %",
       color = "Assists") +
  theme_minimal()

Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_point()`).
Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_text()`).

ggplot(PITdata, aes(x = x3p, y = drtg, label = paste(player_name)) +
  geom_point(color = "blue", size = 3) +
  geom_text(size = 3, vjust = -0.7, check_overlap = TRUE) +
  labs(title = "3PM vs Defensive Rating (DRTG)",
       x = "3-Pointers Made (3PM)",
       y = "Defensive Rating (↓ Better)") +
  theme_minimal()

Error: Incomplete expression: ggplot(PITdata, aes(x = x3p, y = drtg, label = paste(player_name)) +
  geom_point(color = "blue", size = 3) +
  geom_text(size = 3, vjust = -0.7, check_overlap = TRUE) +
  labs(title = "3PM vs Defensive Rating (DRTG)",
       x = "3-Pointers Made (3PM)",
       y = "Defensive Rating (↓ Better)") +
  theme_minimal()

ggsave("3pm_vs_drtg.png", plot = p1, width = 8, height = 6, dpi = 300)

Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_point()`).
Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_text()`).

ggsave("ppg_vs_drtg.png", plot = p2, width = 8, height = 6, dpi = 300)

Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_point()`).
Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_text()`).

ggsave("min_vs_drtg.png", plot = p3, width = 8, height = 6, dpi = 300)

Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_point()`).
Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_text()`).

ggsave("drtg_vs_ortg.png", plot = p4, width = 8, height = 6, dpi = 300)

Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_point()`).
Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_text()`).

ggsave("all_around_performance.png", plot = p5, width = 8, height = 6, dpi = 300)

Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_point()`).
Warning: Removed 971 rows containing missing values or values outside the scale range
(`geom_text()`).

NEXT

top_fga <- PITdata %>%
  arrange(desc(x2p + x3p)) %>%
  slice_head(n = 20) %>%
  dplyr::select(player_name, school, x2p, x3p, drtg)

gt_fga <- gt(top_fga) %>%
  tab_header(title = "Top PIT Players by Field Goal Attempts (FGA) by Cyro Asseo")

gtsave(gt_fga, "top_PIT_fga_table.png")

file:////var/folders/n4/y37zz1ss7ql7x6z33jc88mmw0000gn/T//RtmpzEX3L9/file2e7a400f046d.html screenshot completed

gt_top_performers <- gt(top_performers) %>%
  tab_header(
    title = "Top PIT Defenders & All‑Around Impact by Cyro Asseo"
  ) %>%
  cols_label(
    player_name = "Player",
    school      = "School",
    position    = "Pos",
    drtg        = "DRTG",
    ortg        = "ORTG",
    ast         = "AST",
    stl         = "STL",
    blk         = "BLK",
    efg         = "eFG %",
    ts          = "TS %"
  ) %>%
  fmt_number(
    columns = c(drtg, ortg, ast, stl, blk, efg, ts),
    decimals = 1)

gtsave(
  gt_top_performers,
  "top_PIT_performers_table.png",
  vwidth  = 2600,   # viewport width in px
  vheight = 1900,    # viewport height in px
  zoom    = 2       # scale factor
)

file:////var/folders/n4/y37zz1ss7ql7x6z33jc88mmw0000gn/T//RtmpzEX3L9/file2e7a50ba102f.html screenshot completed