Terrance Shannon Jr Scouting Report

Team: Illinois

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

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

Notes:

Strengths

• Size, strength, and athleticism of an NBA wing.
• Aggressively attacks the basket.
• Left handed.

Weaknesses

• Tunnel vision when driving.
• More of a jack of all trades than a specialist.

Questions

• Role? He is a really well-rounded player, but does not have the one or two NBA level skills needed to gain minutes in the NBA. I don’t trust his decision making enough to be a ball handler, so think he should improve his shot cause he would thrive attacking a rotating defense due to his aggression and strength.

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.573, 0.509, .455, 0.529, 26.9, .71, 1.21, 22.6, 0.127, 0.088, 0.220, 5.2, 2.9)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,3,5,6,8,9,11,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(4,7,10,12), fill = "green")

Stats	Values
TS%	0.573
EFG%	0.509
3PA Rate	0.455
FTA Rate	0.529
USG%	26.9
Ast/USG	0.71
Ast/TO	1.21
Per	22.6
OWS/40	0.127
DWS/40	0.088
WS/40	0.22
OBPM	5.2
DBPM	2.9

Draft Value

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

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

Roles

Side <- c("Offense", "Defense")
Current <- c("Creator", "On Ball Container")
Projected <- c("Spacer/Isolation Scorer", "On Ball Container")
cbind(Side,Current,Projected) %>% reactable(theme = espn()) 

Best/Worst Skill

Skill <- c("Best Skill", "Worst Skill")
Player <- c("Strength/Explosiveness", " - ")
cbind(Skill,Player) %>% reactable(theme = espn())

• Terrance Shannon Jr doesnt have a glaring weakness of his game but he must be wary of phrase, “A jack of all trades, is a master of none”.

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", "Functional", "Impactful", "Functional", "Functional")
cbind(Category, Evaluation) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(10,12), fill = "green") %>%
  gt_highlight_rows( rows = c(1,2,3,4,5,6,8,7,9,11,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	Functional
Strength	Impactful
Vertical Plane	Functional
Pliability	Functional