Jett Howard Scouting Report

Team: Michigan

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

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

Notes:

Strengths

• Quick, high release on jump shot.
• Array of one dribble pull up moves.
• Great height for role.

Weaknesses

• Shooting elbow protrudes out (could be due to height/wingpsan).
• Hunches over constantly, hurting balance.

Questions

• What is his ceiling? I don’t think he will be a playmaker that can create shots for others but he will be a valuable role player because he has the tools to become an elite movement shooter and his length provides a high floor for his defense.
• How concerning is the form on his jump shot? I care most about release and he does have a high, quick release; the low start of the shot is more concerning for me than the shooting elbow.

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.579, 0.547, .618, 0.269, 22.9, 0.7, 2.14, 19, 0.109, 0.048, 0.164, 5.1, 1.2)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,4,5,6,8,9,10,11,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(3,7,12), fill = "green")

Stats	Values
TS%	0.579
EFG%	0.547
3PA Rate	0.618
FTA Rate	0.269
USG%	22.9
Ast/USG	0.7
Ast/TO	2.14
Per	19
OWS/40	0.109
DWS/40	0.048
WS/40	0.164
OBPM	5.1
DBPM	1.2

Draft Value

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

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

Roles

Side <- c("Offense", "Defense")
Current <- c("Spacer", "Switchable")
Projected <- c("Movement Shooter", "Switchable")
cbind(Side,Current,Projected) %>% reactable(theme = espn()) 

Best/Worst Skill

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

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