Julian Strawther Scouting Report

Team: Gonzaga

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

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

Notes:

Strengths

• Quick shot release (borderline no dip shooter) with deep NBA range.
• NBA length and athleticism.

Weaknesses

• Limited playmking/passing ability.
• Over reliant on floater.

Questions

• Passing? He is in a confined role but has shown little passing ability so does he have the connective passing that you need to play in most modern offenses? I lean towards no because Cory Kispert was in a similar role a couple years ago but was able to flash a lot more playmaking.
• Shooting? He has a bit of a push shot but with a really quick release. He certainly has the potential to become a no dip shooter but I question his ability to shoot off movement due to lack of lift on set shot.

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.617, 0.587, .486, 0.321, 21.7, .27, .80, 20.1, .118, .055, .172, 5.1, .6)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(6,7), fill = "red") %>%
  gt_highlight_rows( rows = c(2,4,5,8,9,10,11,12,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(1,3), fill = "green")

Stats	Values
TS%	0.617
EFG%	0.587
3PA Rate	0.486
FTA Rate	0.321
USG%	21.7
Ast/USG	0.27
Ast/TO	0.8
Per	20.1
OWS/40	0.118
DWS/40	0.055
WS/40	0.172
OBPM	5.1
DBPM	0.6

Draft Value

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

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

Roles

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

Best/Worst Skill

Skill <- c("Best Skill", "Worst Skill")
Player <- c("Shot", "Passing")
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,10,11,8,9,13,14,12), 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