Kris Murray Scouting Report

Team: Iowa

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

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

Notes:

Strengths

• Always plays at own pace and with good balance.
• Good offensive footwork.
• Good shot form with high release, good touch around basket.

Weaknesses

• Limited lateral quickness.

Questions

• Will lateral quickness be a concern? While he will never be able to stay with the quick guards in the NBA, he will do fine on wings because he is long and moves deliberately on defense, also he is willing to battle in post.
• Limited upside? He doesn’t look like he will ever be an All-Star, but he is as close to a sure thing as you will find in the draft and getting minutes is one of the best paths to improving in the NBA.

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.603, 0.581, .405, 0.255, 26.6, 0.39, 1.08, 27.2, 0.156, 0.052, 0.209, 9.1, .6)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,4,5,8,7,6,13,10,11), fill = "orange") %>%
  gt_highlight_rows( rows = c(3,9,12), fill = "green")

Stats	Values
TS%	0.603
EFG%	0.581
3PA Rate	0.405
FTA Rate	0.255
USG%	26.6
Ast/USG	0.39
Ast/TO	1.08
Per	27.2
OWS/40	0.156
DWS/40	0.052
WS/40	0.209
OBPM	9.1
DBPM	0.6

Draft Value

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

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

Roles

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

Best/Worst Skill

Skill <- c("Best Skill", "Worst Skill")
Player <- c("Offensive Footwork/Pace", "Lateral Quickness")
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", "Liability", "Functional", "Functional", "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,6,8,9,10,11,12,13,14), fill = "orange") %>%
  gt_highlight_rows( rows = c(10), 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	Liability
Change of Pace	Functional
Strength	Functional
Vertical Plane	Functional
Pliability	Functional