data-raw/fieldplayer_overall_season_stats.R

In adror1/nwslR: Datasets and analysis functions for the National Women's Soccer League (NWSL)

#loading libraries
library(tidyverse)
library(readr)
library(readxl)
library(fs)
library(snakecase)
library(stringr)
##loading in field player stats

#vector of field player filenames
fieldfiles <- fs::dir_ls("data-raw", regexp = 'fieldplayers_overall_season')

#reading in all field player files
fp_overall_season_stats <- map(fieldfiles, read_xlsx)

#creating a single data frame of all seasons
fp_overall_season_stats <- bind_rows(fp_overall_season_stats, .id = "season")

#identifying the season
fieldplayer_overall_season_stats <- fp_overall_season_stats %>%
  mutate(season = str_extract(season, "[^_]+(?=\\.xlsx$)"))

#correcting the nation column
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  mutate(Nation = str_extract(Nation, "\\s(.*)"))

#removing unneccesary columns
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  select(-Rk)

#removing keepers
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  filter(Pos != "GK")

#creating person_id's
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  mutate(person_id = group_indices(., Player, Born, Nation))

#converting to snake case
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  rename_all(.funs = to_any_case)

#converting team names to team codes
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  mutate(
    squad = case_when(
      squad == "Boston" | squad == "Boston Breakers" ~ "BOS",
      squad == "Chicago" | squad == "Chicago Red Stars" ~ "CHI",
      squad == "Kansas City" | squad == "FC Kansas City" ~ "KC",
      squad == "Houston" | squad == "Houston Dash" ~ "HOU",
      squad == "North Carolina" ~ "NC",
      squad == "Orlando" | squad == "Orlando Pride" ~ "ORL",
      squad == "Portland" | squad == "Portland Thorns FC" ~ "POR",
      squad == "Reign" | squad == "Seattle" ~ "SEA",
      squad == "Sky Blue" | squad == "Sky Blue FC" ~ "NJ",
      squad == "Utah" ~ "UTA",
      squad == "Washington" | squad == "Washington Spirit" ~ "WAS",
      squad == "Western New York Flash" ~ "WNY"
    ))


#removing player names
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  select(-player)
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  rename(team_id = squad)

#reordering columns
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats[, c(16, 1:4,
                                                                         7:15)]
#correcting data type
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  mutate(season = as.numeric(season))

#fixing nation column
fieldplayer_overall_season_stats <- fieldplayer_overall_season_stats %>%
  mutate(nation = str_replace_all(nation, " ", ""))

#exporting final FP data
usethis::use_data(fieldplayer_overall_season_stats, overwrite = TRUE)