Kyle Filipowski Scouting Report

Team: Duke

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

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

Notes:

Strengths

• Great shot form for height.
• Refined/efficient offensive moves to create good looks.

Weaknesses

• Slow/stiff laterally.
• Not a vertical athlete, limited rim protection potential.

Questions

• Defensive role in NBA? Can’t move on the perimeter with wings and doesn’t offer much to any rim protection so will most likely always be a liability on defensive end. He is coordinated so might be able come to level of the screen but a defense built around him will always be limited.

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.540, 0.482, .298, 0.431, 30, 0.35, .56, 25.2, 0.107, 0.101, 0.214, 5.3, 3)
cbind(Stats, Values) %>% as_data_frame() %>% gt() %>%
  gt_highlight_rows( rows = c(), fill = "red") %>%
  gt_highlight_rows( rows = c(1,2,5,6,7,9,10,11,13), fill = "orange") %>%
  gt_highlight_rows( rows = c(3,4,8,12), fill = "green")

Stats	Values
TS%	0.54
EFG%	0.482
3PA Rate	0.298
FTA Rate	0.431
USG%	30
Ast/USG	0.35
Ast/TO	0.56
Per	25.2
OWS/40	0.107
DWS/40	0.101
WS/40	0.214
OBPM	5.3
DBPM	3

Draft Value

Category <- c("Draft Value", "NBA Level in 3 years", "Consensus Mock Draft")
Value <- c("Late First/Early Second", "Sporatic Role Player", 14.75)

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

Roles

Side <- c("Offense", "Defense")
Current <- c("Isolation Scorer", "Anchor")
Projected <- c("Spacer", "Right Place")
cbind(Side,Current,Projected) %>% reactable(theme = espn()) 

Best/Worst Skill

Skill <- c("Best Skill", "Worst Skill")
Player <- c("Shot", "Lateral Speed")
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", "Liability", "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,11,12,14), fill = "orange") %>%
  gt_highlight_rows(rows = c(10,13), 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	Liability
Pliability	Functional