Jordan Hawkins Scouting Report

Team: UConn

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

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

Notes:

Strengths

• Elite shooter.
• Quick release, always squares shoulders.
• Active off ball defender.

Weaknesses

• Small frame.
• Not an explosive athlete.

Questions

• Defense? His frame will always limit him as a defender and he will need to add a lot of strength before ever getting playoff minutes but is an active and aware off ball defender.
• Offensive role? He will do well in pnr as defenders will never be able to go under the screen because of how quick his shot is. Moves well off ball but will need to move even more in NBA but should be a threat as a movement shooter from day 1.

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.590, 0.540, .619, 0.324, 25.6, 0.35, .90, 20.9, 0.141, 0.073, 0.215, 6.7, 1.8)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(7), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,4,5,6,8,11,10,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(3,9,12), fill = "green")

Stats	Values
TS%	0.59
EFG%	0.54
3PA Rate	0.619
FTA Rate	0.324
USG%	25.6
Ast/USG	0.35
Ast/TO	0.9
Per	20.9
OWS/40	0.141
DWS/40	0.073
WS/40	0.215
OBPM	6.7
DBPM	1.8

Draft Value

Category <- c("Draft Value", "NBA Level in 3 years", "Consensus Mock Draft")
Value <- c("Late First/Early Second", "Role Player", 33.66)

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

Roles

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

Best/Worst Skill

Skill <- c("Best Skill", "Worst Skill")
Player <- c("Shot", "Strength")
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", "Impactful", "Impactful", "Functional","Functional", "Functional", "Functional", "Liability", "Functional", "Functional")
cbind(Category, Evaluation) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(6,7), fill = "green") %>%
  gt_highlight_rows( rows = c(1,2,3,4,5,8,9,10,11,14,12,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(12), fill = "red")

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