nba_df <- nba %>%
mutate(
RoleGroup = case_when(
Position %in% c("PointGuard", "ShootingGuard") ~ "Guard",
Position %in% c("SmallForward", "PowerForward") ~ "Forward",
Position == "Center" ~ "Center",
TRUE ~ "Other"
)
)
summary(nba_df)
## Player Team Games Position
## Length:595 Length:595 Min. : 1.00 Length:595
## Class :character Class :character 1st Qu.:24.00 Class :character
## Mode :character Mode :character Median :55.00 Mode :character
## Mean :48.43
## 3rd Qu.:73.00
## Max. :82.00
##
## TurnoverPct ReboundPct AssistPct FieldGoalPct
## Min. : 0.00 Min. : 0.00 Min. : 0.00 Min. : 0.00
## 1st Qu.: 9.70 1st Qu.: 6.20 1st Qu.: 6.20 1st Qu.: 40.00
## Median :12.50 Median : 8.90 Median :10.10 Median : 44.20
## Mean :12.89 Mean :10.03 Mean :12.77 Mean : 44.12
## 3rd Qu.:15.60 3rd Qu.:13.00 3rd Qu.:17.50 3rd Qu.: 48.50
## Max. :43.60 Max. :56.40 Max. :57.30 Max. :100.00
## NA's :2 NA's :2
## RoleGroup
## Length:595
## Class :character
## Mode :character
##
##
##
##