Jalen Hood-Schifino Scouting Report

Team: Indiana

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

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

Notes:

Strengths

• Good size for ball handler.
• Plays at good pace/in control.

Weaknesses

• Limited lateral quickness.
• Slow shot that starts low.
• Minimal playmking flashes.

Questions

• Ballhandler? He hasn’t shown the shooting, passing, or driving ability required to demand the ball in the NBA. He will need to imporve his shot and defense in order to play off ball in NBA.
• Stay in draft? I would advise him to stay in school, if he shows improved playmaking and shooting he could be a mid first round pick.

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.494, 0.466, .292, 0.197, 25.3, 0.88, 1.34, 12.7, 0.020, 0.060, 0.080, .2, .5)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(1,2,3,4,8,9), fill = "red") %>%
  gt_highlight_rows( rows = c(5,6,7,10,11,12,13), fill = "orange") 

Stats	Values
TS%	0.494
EFG%	0.466
3PA Rate	0.292
FTA Rate	0.197
USG%	25.3
Ast/USG	0.88
Ast/TO	1.34
Per	12.7
OWS/40	0.02
DWS/40	0.06
WS/40	0.08
OBPM	0.2
DBPM	0.5

Draft Value

Category <- c("Draft Value", "NBA Level in 3 years", "Consensus Mock Draft")
Value <- c("Second Round", "Deep Bench Option", "-")

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

Roles

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

Best/Worst Skill

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

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	Liability
Change of Pace	Functional
Strength	Functional
Vertical Plane	Functional
Pliability	Functional