Cam Whitmore Scouting Report

Team: Villanova

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

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

Notes:

Strengths

• Strong, explosive athlete with great first step.
• Fearlessly attacks rim.

Weaknesses

• Slow shot that starts way too low.
• Tunnel vision when driving to basket.

Questions

• Will he be a ball handler at next level? If he is able to improve his vision he could be a dangerous creator, using speed to create advantage with strength and explosion to finish thru contact.
• Will shot improve? He does have a long, low shot form but has shown confidence so at next level should have work ethic/willingness to put work to start shot higher and speed it up just a bit.

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.550, 0.530, .407, 0.193, 28, 0.25, .37, 19.6, 0.035, 0.070, 0.105, 2.5, 1.7)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(1,2,4,6,7), fill = "red") %>%
  gt_highlight_rows( rows = c(8,9,10,11,12,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(3,5), fill = "green")

Stats	Values
TS%	0.55
EFG%	0.53
3PA Rate	0.407
FTA Rate	0.193
USG%	28
Ast/USG	0.25
Ast/TO	0.37
Per	19.6
OWS/40	0.035
DWS/40	0.07
WS/40	0.105
OBPM	2.5
DBPM	1.7

Draft Value

Category <- c("Draft Value", "NBA Level in 3 years", "Consensus Mock Draft")
Value <- c("Lottery", "Star", 5.25)

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

Roles

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

Best/Worst Skill

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

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