Dariq Whitehead Scouting Report

Team: Duke

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

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

Notes:

Strengths

• NBA frame and explosive athelete both vertically and laterally.
• Plays with patience.
• Accepts and embraces role.

Weaknesses

• On offense, is a play finisher not maker.
• Looping shot form that starts too low.

Questions

• Does he have on ball playmkaing potential? I lean towards no, but the way he moves reminds me of Jaylen Brown so there is some potential.
• Will he diversify offensive game beyond just three? Despite being an elite athlete, he gets pretty much all of his production from beyon the line and while this is worrisome his frame and explosiveness give me conifedence he will be a functional off ball cutter.

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.496, 0.469, .461, 0.117, 24.7, 0.48, .76, 11.9, 0.037, 0.062, 0.099, .7, .7)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(8), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,4,5,6,7,9,10,11,12,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(3), fill = "green")

Stats	Values
TS%	0.496
EFG%	0.469
3PA Rate	0.461
FTA Rate	0.117
USG%	24.7
Ast/USG	0.48
Ast/TO	0.76
Per	11.9
OWS/40	0.037
DWS/40	0.062
WS/40	0.099
OBPM	0.7
DBPM	0.7

Draft Value

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

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

Roles

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