Trayce Jackson-Davis Scouting Report

Team: Indiana

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

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

Notes:

Strengths

• Explosive and powerful vertical athlete.
• Great footwork and ability to finish thru contact.
• Active helpside defender and good on ball.

Weaknesses

• Has taken 3 threes in four years at Bloomington.

Questions

• Shooting? He has consistanly hovered in the upper 60s for FT% and amajority of his shots come from dunks, layups, and push shots. I have little to no confidence he can develop an outside shot.
• Defensive role? While he is probably a little too short to spend all his time at center he will be able to play it for portions, he would be best on wings where he can use his strength, athleticism, and iq. Has potential to be a shut down on ball defender but would also be great off ball where he could provide shot blocking and rebounding support.

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.599, 0.574, .000, 0.452, 29.9, 0.76, 1.34, 33, 0.161, 0.095, 0.256, 9.9, 4.8)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(3), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,4,5,6,11,10), fill = "orange") %>%
  gt_highlight_rows( rows = c(7,8,9,12,13), fill = "green")

Stats	Values
TS%	0.599
EFG%	0.574
3PA Rate	0
FTA Rate	0.452
USG%	29.9
Ast/USG	0.76
Ast/TO	1.34
Per	33
OWS/40	0.161
DWS/40	0.095
WS/40	0.256
OBPM	9.9
DBPM	4.8

Draft Value

Category <- c("Draft Value", "NBA Level in 3 years", "Consensus Mock Draft")
Value <- c("Second Round", "Role Player", "-")

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

Roles

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

Best/Worst Skill

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

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