Noah Clowney Scouting Report

Team: Alabama

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

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

Notes:

Strengths

• Quick, high shot release.
• Good hands in traffic.
• Can roll to the basket or pop to three point line in PNR.

Weaknesses

• Core strength, gets pushed around.
• No post game to take advantage of mismatches.

Questions

• Role? I think he can play the modern “power forward” position where he can space the floor next to another big who can handle most of the dirty work down low. He will be able to play some small ball center but doesn’t have the post game to take advantage of smaller matchups.
• Passing? He has shown little to no passing flashes in Tuscaloosa but that roster is chalk full of playmakers so he will need to develop as a passer just to function in a modern offense.

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.581, 0.561, .462, 0.437, 18.3, .35, .67, 19.2, .090, .104, .194, 4.1, 4.5)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,4,5,6,8,7,9,11,13,10,12), fill = "orange") %>%
  gt_highlight_rows( rows = c(3), fill = "green")

Stats	Values
TS%	0.581
EFG%	0.561
3PA Rate	0.462
FTA Rate	0.437
USG%	18.3
Ast/USG	0.35
Ast/TO	0.67
Per	19.2
OWS/40	0.09
DWS/40	0.104
WS/40	0.194
OBPM	4.1
DBPM	4.5

Draft Value

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

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

Roles

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

Best/Worst Skill

Skill <- c("Best Skill", "Worst Skill")
Player <- c("Shot", "Core Strength")
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","Liability", "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,8,10,11,13,9,14,6), fill = "orange") %>%
  gt_highlight_rows( rows = c(12), fill = "red")

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	Liability
Vertical Plane	Functional
Pliability	Functional