Tyrese Proctor Scouting Report

Team: Duke

library(tidyverse)
library(gt)
library(gtExtras)
library(dplyr)
library(reactable)
library(reactablefmtr)

Category <- c("Games", "Minutes")
Value <- c(21,27.3)
cbind(Category, Value) %>% reactable( theme = espn())

Notes:

Strengths

• Good positional size.
• Plays in control, with patience.
• Good shot form.

Weaknesses

• Doesn’t consistently attack basket.
• Doesn’t create advantages or pressure a defense.

Questions

• How strong of effect does age have on aggression? Having reclassified and coming from Australia there is an insane amount of adjusting for him to do both on and off the court. Given the adjustment and often splitting time with Jeremy Roach, his lack of aggression is understandable.
• Will he be a lead ball handler in NBA? It is way too early to tell but I would feel very comfortable betting on him because if he doesn’t end up panning out on ball he has the frame, athleticism, and shooting touch to play off ball.

Stats <- c("TS%", "EFG%", "3PA Rate", "FTA Rate", "USG%", "Ast/USG", "Ast/TO", "Per", "OWS/40", "DWS/40", "WS/40", "OBPM", "DBPM")
Values <- c(0.472, 0.420, .518, 0.256, 18.9, 0.99, 2.11, 11.5, 0.056, 0.056, 0.199, .4, 1.5)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(8,4,12), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,5,6,7,9,10,11,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(3), fill = "green")

Stats	Values
TS%	0.472
EFG%	0.42
3PA Rate	0.518
FTA Rate	0.256
USG%	18.9
Ast/USG	0.99
Ast/TO	2.11
Per	11.5
OWS/40	0.056
DWS/40	0.056
WS/40	0.199
OBPM	0.4
DBPM	1.5

Draft Value

Category <- c("Draft Value", "NBA Level in 3 years", "Consensus Mock Draft")
Value <- c("Late First", "Sporatic Role Player", 37)

cbind(Category,Value) %>% reactable(theme = espn(),)

Roles

Side <- c("Offense", "Defense")
Current <- c("Right Place", "On Ball Container")
Projected <- c("Creator", "On Ball Container")
cbind(Side,Current,Projected) %>% reactable(theme = espn()) 

Best/Worst Skill

Skill <- c("Best Skill", "Worst Skill")
Player <- c("Shot", "Aggression")
cbind(Skill,Player) %>% reactable(theme = espn())

Athleticism (mental and physical)

Category <- c("Spacing Awareness", "Pattern Recognition", "Anticipation", "Cognitive Load", "Communication", "Balance", "Coordination", "Reflexes", "Stamina", "Change of Direction", "Change of Pace", "Strength", "Vertical Plane", "Pliability")
Evaluation <- c("Functional", "Functional", "Functional", "Functional", "Functional", "Functional", "Functional", "Functional", "Functional", "Impactful", "Impactful", "Functional", "Functional", "Functional")
cbind(Category, Evaluation) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(10,11), fill = "green") %>%
  gt_highlight_rows( rows = c(1,2,3,4,5,6,8,7,9,12,13,14), fill = "orange") 

Category	Evaluation
Spacing Awareness	Functional
Pattern Recognition	Functional
Anticipation	Functional
Cognitive Load	Functional
Communication	Functional
Balance	Functional
Coordination	Functional
Reflexes	Functional
Stamina	Functional
Change of Direction	Impactful
Change of Pace	Impactful
Strength	Functional
Vertical Plane	Functional
Pliability	Functional