Julian Phillips Scouting Report

Team: Tennessee

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

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

Notes:

Strengths

• Good length and great quickness for wing.
• Active on both ends of floor.

Weaknesses

• Limited offensive creation/playmaking.

Questions

• Offensive role? He has shown little to no passing which does make me hesitant about his ability to fit into modern offenses that require playmaking from 3 or 4 (sometimes all 5) of the players on the floor. He is a smart cutter and plays alongside a bunch of veteran guards so it is understandable that he isn’t asked to playmake.
• Defense? His calling card will certainly be on the defensive end where he will be able to guard wings and guards. He is also much stronger than he looks so will provide some rebounding support and switching potential.

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.539, 0.448, .227, 0.601, 19.4, 0.62, 1.18, 17.3, 0.090, 0.109, 0.199, 2.3, 4.2)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(1,2), fill = "red") %>%
  gt_highlight_rows( rows = c(3,4,5,6,8,7,9,11,12), fill = "orange") %>%
  gt_highlight_rows( rows = c(10,13), fill = "green")

Stats	Values
TS%	0.539
EFG%	0.448
3PA Rate	0.227
FTA Rate	0.601
USG%	19.4
Ast/USG	0.62
Ast/TO	1.18
Per	17.3
OWS/40	0.09
DWS/40	0.109
WS/40	0.199
OBPM	2.3
DBPM	4.2

Draft Value

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

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

Roles

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