Import Libraries.¶

In [2]:
options(warn = -1)
library(tidyverse)

Import and bind datasets scraped from ESPN FF.¶

In [3]:
ff_scores_2014 <- read.csv(file = "C:/Users/chris/Documents/Datasets/FFL/ff_scores_2014.csv")
ff_scores_2015 <- read.csv(file = "C:/Users/chris/Documents/Datasets/FFL/ff_scores_2015.csv")
ff_scores_2016 <- read.csv(file = "C:/Users/chris/Documents/Datasets/FFL/ff_scores_2016.csv")
ff_scores_2017 <- read.csv(file = "C:/Users/chris/Documents/Datasets/FFL/ff_scores_2017.csv")
ff_scores_2018 <- read.csv(file = "C:/Users/chris/Documents/Datasets/FFL/ff_scores_2018.csv")
ff_scores_2019 <- read.csv(file = "C:/Users/chris/Documents/Datasets/FFL/ff_scores_2019.csv")
ff_scores_2020 <- read.csv(file = "C:/Users/chris/Documents/Datasets/FFL/ff_scores_2020.csv")
ff_scores_2021 <- read.csv(file = "C:/Users/chris/Documents/Datasets/FFL/ff_scores_2021.csv")

ff_scores <- rbind(ff_scores_2014, ff_scores_2015, ff_scores_2016, ff_scores_2017,
                   ff_scores_2018, ff_scores_2019, ff_scores_2020, ff_scores_2021)

Add Columns to denote Wins, Regular Season, Playoffs, and Championship Week.¶

In [4]:
ff_scores <- ff_scores %>%
  mutate(win = case_when(
    (team_1_score > team_2_score) ~ 1,
    (team_1_score < team_2_score) ~ 0,
    (team_1_score == team_2_score) ~ 0.5
  )) %>%
  mutate(reg = case_when(
    (week < 13) ~ 1,
    ((week == 13) & (year %in% c(2014, 2018, 2021))) ~ 1,
    ((week == 13) & !(year %in% c(2014, 2018, 2021))) ~ 0,
    (week > 13) ~ 0
  )) %>%
  mutate(playoffs = case_when(
    (week < 13) ~ 0,
    ((week == 13) & (year %in% c(2014, 2018, 2021))) ~ 0,
    ((week == 13) & !(year %in% c(2014, 2018, 2021))) ~ 1,
    (week > 13) ~ 1
  ))

ff_scores <- ff_scores %>%
  group_by(year) %>%
  mutate(champ_week = max(week))

Add Columns to denote Playoff Rounds.¶

In [5]:
ff_scores <- ff_scores %>%
  mutate(winner_rd_1 = case_when(
    ((playoffs == 1) & (year == 2014) & (week != champ_week) & (team_1 %in% c("CARLEN", "ANDREW")) & (team_2 %in% c("CARLEN", "ANDREW"))) ~ 1,
    ((playoffs == 1) & (year == 2014) & (week != champ_week) & (team_1 %in% c("STEVE", "MATT")) & (team_2 %in% c("STEVE", "MATT"))) ~ 1,
    ((playoffs == 1) & (year == 2015) & (week != champ_week) & (team_1 %in% c("KYLE", "ANDREW")) & (team_2 %in% c("KYLE", "ANDREW"))) ~ 1,
    ((playoffs == 1) & (year == 2015) & (week != champ_week) & (team_1 %in% c("SAM", "STEVE")) & (team_2 %in% c("SAM", "STEVE"))) ~ 1,
    ((playoffs == 1) & (year == 2016) & (week != champ_week) & (team_1 %in% c("NICK", "CHRIS")) & (team_2 %in% c("NICK", "CHRIS"))) ~ 1,
    ((playoffs == 1) & (year == 2016) & (week != champ_week) & (team_1 %in% c("MATT", "ANDREW")) & (team_2 %in% c("MATT", "ANDREW"))) ~ 1,
    ((playoffs == 1) & (year == 2017) & (week != champ_week) & (team_1 %in% c("CARLEN", "DYLAN")) & (team_2 %in% c("CARLEN", "DYLAN"))) ~ 1,
    ((playoffs == 1) & (year == 2017) & (week != champ_week) & (team_1 %in% c("STEVE", "MATT")) & (team_2 %in% c("STEVE", "MATT"))) ~ 1,
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("CHRIS", "KYLE")) & (team_2 %in% c("CHRIS", "KYLE"))) ~ 1,
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("MATT", "NATHAN")) & (team_2 %in% c("MATT", "NATHAN"))) ~ 1,
    ((playoffs == 1) & (year == 2019) & (week != champ_week) & (team_1 %in% c("CARLEN", "STEVE")) & (team_2 %in% c("CARLEN", "STEVE"))) ~ 1,
    ((playoffs == 1) & (year == 2019) & (week != champ_week) & (team_1 %in% c("MATT", "NICK")) & (team_2 %in% c("MATT", "NICK"))) ~ 1,
    ((playoffs == 1) & (year == 2020) & (week != champ_week) & (team_1 %in% c("CHRIS", "ANDREW")) & (team_2 %in% c("CHRIS", "ANDREW"))) ~ 1,
    ((playoffs == 1) & (year == 2020) & (week != champ_week) & (team_1 %in% c("KYLE", "NICK")) & (team_2 %in% c("KYLE", "NICK"))) ~ 1,
    ((playoffs == 1) & (year == 2021) & (week != champ_week) & (team_1 %in% c("CHRIS", "ANDREW")) & (team_2 %in% c("CHRIS", "ANDREW"))) ~ 1,
    ((playoffs == 1) & (year == 2021) & (week != champ_week) & (team_1 %in% c("STEVE", "NICK")) & (team_2 %in% c("STEVE", "NICK"))) ~ 1,
  )) %>%
  mutate(loser_rd_1 = case_when(
    ((playoffs == 1) & (year == 2014) & (week != champ_week) & (team_1 %in% c("KYLE", "CHRIS")) & (team_2 %in% c("KYLE", "CHRIS"))) ~ 1,
    ((playoffs == 1) & (year == 2014) & (week != champ_week) & (team_1 %in% c("NATHAN", "DREW")) & (team_2 %in% c("NATHAN", "DREW"))) ~ 1,
    ((playoffs == 1) & (year == 2015) & (week != champ_week) & (team_1 %in% c("DYLAN", "CHRIS")) & (team_2 %in% c("DYLAN", "CHRIS"))) ~ 1,
    ((playoffs == 1) & (year == 2015) & (week != champ_week) & (team_1 %in% c("NICK", "MATT")) & (team_2 %in% c("NICK", "MATT"))) ~ 1,
    ((playoffs == 1) & (year == 2015) & (week != champ_week) & (team_1 %in% c("NATHAN", "CARLEN")) & (team_2 %in% c("NATHAN", "CARLEN"))) ~ 1,
    ((playoffs == 1) & (year == 2016) & (week != champ_week) & (team_1 %in% c("STEVE", "DYLAN")) & (team_2 %in% c("STEVE", "DYLAN"))) ~ 1,
    ((playoffs == 1) & (year == 2016) & (week != champ_week) & (team_1 %in% c("CARLEN", "KYLE")) & (team_2 %in% c("CARLEN", "KYLE"))) ~ 1,
    ((playoffs == 1) & (year == 2016) & (week != champ_week) & (team_1 %in% c("NATHAN", "SAM")) & (team_2 %in% c("NATHAN", "SAM"))) ~ 1,
    ((playoffs == 1) & (year == 2017) & (week != champ_week) & (team_1 %in% c("ANDREW", "CHRIS")) & (team_2 %in% c("ANDREW", "CHRIS"))) ~ 1,
    ((playoffs == 1) & (year == 2017) & (week != champ_week) & (team_1 %in% c("KYLE", "NATHAN")) & (team_2 %in% c("KYLE", "NATHAN"))) ~ 1,
    ((playoffs == 1) & (year == 2017) & (week != champ_week) & (team_1 %in% c("NICK", "SAM")) & (team_2 %in% c("NICK", "SAM"))) ~ 1,
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("ANDREW", "CARLEN")) & (team_2 %in% c("ANDREW", "CARLEN"))) ~ 1,
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("DYLAN", "NICK")) & (team_2 %in% c("DYLAN", "NICK"))) ~ 1,
    ((playoffs == 1) & (year == 2019) & (week != champ_week) & (team_1 %in% c("CHRIS", "NATHAN")) & (team_2 %in% c("CHRIS", "NATHAN"))) ~ 1,
    ((playoffs == 1) & (year == 2019) & (week != champ_week) & (team_1 %in% c("SAM", "DYLAN")) & (team_2 %in% c("SAM", "DYLAN"))) ~ 1,
    ((playoffs == 1) & (year == 2019) & (week != champ_week) & (team_1 %in% c("KYLE", "ANDREW")) & (team_2 %in% c("KYLE", "ANDREW"))) ~ 1,
    ((playoffs == 1) & (year == 2020) & (week != champ_week) & (team_1 %in% c("SAM", "STEVE")) & (team_2 %in% c("SAM", "STEVE"))) ~ 1,
    ((playoffs == 1) & (year == 2020) & (week != champ_week) & (team_1 %in% c("NATHAN", "DYLAN")) & (team_2 %in% c("NATHAN", "DYLAN"))) ~ 1,
    ((playoffs == 1) & (year == 2020) & (week != champ_week) & (team_1 %in% c("MATT", "CARLEN")) & (team_2 %in% c("MATT", "CARLEN"))) ~ 1,
    ((playoffs == 1) & (year == 2021) & (week != champ_week) & (team_1 %in% c("SAM", "KYLE")) & (team_2 %in% c("SAM", "KYLE"))) ~ 1,
    ((playoffs == 1) & (year == 2021) & (week != champ_week) & (team_1 %in% c("JASON", "NOAH")) & (team_2 %in% c("JASON", "NOAH"))) ~ 1,
    ((playoffs == 1) & (year == 2021) & (week != champ_week) & (team_1 %in% c("DYLAN", "MATT")) & (team_2 %in% c("DYLAN", "MATT"))) ~ 1,
  )) %>%
  mutate(winner_rd_2 = case_when(
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("CHRIS", "SAM")) & (team_2 %in% c("CHRIS", "SAM"))) ~ 1,
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("NATHAN", "STEVE")) & (team_2 %in% c("NATHAN", "STEVE"))) ~ 1,
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("MATT", "KYLE")) & (team_2 %in% c("MATT", "KYLE"))) ~ 1,
  )) %>%
  mutate(loser_rd_2 = case_when(
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("DYLAN", "CARLEN")) & (team_2 %in% c("DYLAN", "CARLEN"))) ~ 1,
    ((playoffs == 1) & (year == 2018) & (week != champ_week) & (team_1 %in% c("NICK", "ANDREW")) & (team_2 %in% c("NICK", "ANDREW"))) ~ 1,
  )) %>%
  mutate(match_34 = case_when(
    ((week == champ_week) & (year == 2014) & (team_1 %in% c("CARLEN", "STEVE")) & (team_2 %in% c("CARLEN", "STEVE"))) ~ 1,
    ((week == champ_week) & (year == 2015) & (team_1 %in% c("SAM", "ANDREW")) & (team_2 %in% c("SAM", "ANDREW"))) ~ 1,
    ((week == champ_week) & (year == 2016) & (team_1 %in% c("CHRIS", "MATT")) & (team_2 %in% c("CHRIS", "MATT"))) ~ 1,
    ((week == champ_week) & (year == 2017) & (team_1 %in% c("STEVE", "DYLAN")) & (team_2 %in% c("STEVE", "DYLAN"))) ~ 1,
    ((week == champ_week) & (year == 2018) & (team_1 %in% c("CHRIS", "NATHAN")) & (team_2 %in% c("CHRIS", "NATHAN"))) ~ 1,
    ((week == champ_week) & (year == 2019) & (team_1 %in% c("MATT", "STEVE")) & (team_2 %in% c("MATT", "STEVE"))) ~ 1,
    ((week == champ_week) & (year == 2020) & (team_1 %in% c("ANDREW", "NICK")) & (team_2 %in% c("NICK", "ANDREW"))) ~ 1,
    ((week == champ_week) & (year == 2021) & (team_1 %in% c("NICK", "CHRIS")) & (team_2 %in% c("NICK", "CHRIS"))) ~ 1,
  )) %>%
  mutate(match_56 = case_when(
    ((week == champ_week) & (year == 2014) & (team_1 %in% c("DREW", "CHRIS")) & (team_2 %in% c("DREW", "CHRIS"))) ~ 1,
    ((week == champ_week) & (year == 2015) & (team_1 %in% c("DYLAN", "MATT")) & (team_2 %in% c("DYLAN", "MATT"))) ~ 1,
    ((week == champ_week) & (year == 2016) & (team_1 %in% c("CARLEN", "STEVE")) & (team_2 %in% c("CARLEN", "STEVE"))) ~ 1,
    ((week == champ_week) & (year == 2017) & (team_1 %in% c("KYLE", "CHRIS")) & (team_2 %in% c("KYLE", "CHRIS"))) ~ 1,
    ((week == champ_week) & (year == 2018) & (team_1 %in% c("MATT", "KYLE")) & (team_2 %in% c("MATT", "KYLE"))) ~ 1,
    ((week == champ_week) & (year == 2019) & (team_1 %in% c("ANDREW", "CHRIS")) & (team_2 %in% c("ANDREW", "CHRIS"))) ~ 1,
    ((week == champ_week) & (year == 2020) & (team_1 %in% c("NATHAN", "SAM")) & (team_2 %in% c("NATHAN", "SAM"))) ~ 1,
    ((week == champ_week) & (year == 2021) & (team_1 %in% c("JASON", "SAM")) & (team_2 %in% c("JASON", "SAM"))) ~ 1,
  )) %>%
  mutate(match_78 = case_when(
    ((week == champ_week) & (year == 2015) & (team_1 %in% c("NICK", "CARLEN")) & (team_2 %in% c("NICK", "CARLEN"))) ~ 1,
    ((week == champ_week) & (year == 2016) & (team_1 %in% c("SAM", "DYLAN")) & (team_2 %in% c("SAM", "DYLAN"))) ~ 1,
    ((week == champ_week) & (year == 2017) & (team_1 %in% c("NICK", "ANDREW")) & (team_2 %in% c("NICK", "ANDREW"))) ~ 1,
    ((week == champ_week) & (year == 2018) & (team_1 %in% c("ANDREW", "CARLEN")) & (team_2 %in% c("ANDREW", "CARLEN"))) ~ 1,
    ((week == champ_week) & (year == 2019) & (team_1 %in% c("SAM", "NATHAN")) & (team_2 %in% c("SAM", "NATHAN"))) ~ 1,
    ((week == champ_week) & (year == 2020) & (team_1 %in% c("CARLEN", "STEVE")) & (team_2 %in% c("CARLEN", "STEVE"))) ~ 1,
    ((week == champ_week) & (year == 2021) & (team_1 %in% c("DYLAN", "KYLE")) & (team_2 %in% c("DYLAN", "KYLE"))) ~ 1,
  )) %>%
  mutate(match_12 = case_when(
    ((week == champ_week) & (year == 2014) & (team_1 %in% c("MATT", "ANDREW")) & (team_2 %in% c("MATT", "ANDREW"))) ~ 1,
    ((week == champ_week) & (year == 2015) & (team_1 %in% c("KYLE", "STEVE")) & (team_2 %in% c("KYLE", "STEVE"))) ~ 1,
    ((week == champ_week) & (year == 2016) & (team_1 %in% c("ANDREW", "NICK")) & (team_2 %in% c("ANDREW", "NICK"))) ~ 1,
    ((week == champ_week) & (year == 2017) & (team_1 %in% c("CARLEN", "MATT")) & (team_2 %in% c("CARLEN", "MATT"))) ~ 1,
    ((week == champ_week) & (year == 2018) & (team_1 %in% c("SAM", "STEVE")) & (team_2 %in% c("SAM", "STEVE"))) ~ 1,
    ((week == champ_week) & (year == 2019) & (team_1 %in% c("CARLEN", "NICK")) & (team_2 %in% c("CARLEN", "NICK"))) ~ 1,
    ((week == champ_week) & (year == 2020) & (team_1 %in% c("CHRIS", "KYLE")) & (team_2 %in% c("CHRIS", "KYLE"))) ~ 1,
    ((week == champ_week) & (year == 2021) & (team_1 %in% c("ANDREW", "STEVE")) & (team_2 %in% c("ANDREW", "STEVE"))) ~ 1,
  )) %>%
  mutate(match_sacko = case_when(
    ((week == champ_week) & (year == 2014) & (team_1 %in% c("NATHAN", "KYLE")) & (team_2 %in% c("NATHAN", "KYLE"))) ~ 1,
    ((week == champ_week) & (year == 2015) & (team_1 %in% c("NATHAN", "CHRIS")) & (team_2 %in% c("NATHAN", "CHRIS"))) ~ 1,
    ((week == champ_week) & (year == 2016) & (team_1 %in% c("NATHAN", "KYLE")) & (team_2 %in% c("NATHAN", "KYLE"))) ~ 1,
    ((week == champ_week) & (year == 2017) & (team_1 %in% c("NATHAN", "SAM")) & (team_2 %in% c("NATHAN", "SAM"))) ~ 1,
    ((week == champ_week) & (year == 2018) & (team_1 %in% c("DYLAN", "NICK")) & (team_2 %in% c("DYLAN", "NICK"))) ~ 1,
    ((week == champ_week) & (year == 2019) & (team_1 %in% c("KYLE", "DYLAN")) & (team_2 %in% c("KYLE", "DYLAN"))) ~ 1,
    ((week == champ_week) & (year == 2020) & (team_1 %in% c("MATT", "DYLAN")) & (team_2 %in% c("MATT", "DYLAN"))) ~ 1,
    ((week == champ_week) & (year == 2021) & (team_1 %in% c("MATT", "NOAH")) & (team_2 %in% c("MATT", "NOAH"))) ~ 1,
  ))

Format Values.¶

In [6]:
ff_scores[is.na(ff_scores)] <- 0
ff_scores$week <- sprintf("%02d", ff_scores$week)

ff_scores$date <- paste(ff_scores$year, ff_scores$week, sep="-")

replace_nathan_t1 = function(x, output){
    weeks = c("01", "02", "03", "04", "05", "06", "07", "08")
    year = x[1]
    week = x[2]
    team_1 = x[3]
    if ((team_1 == "NOAH") & (year == 2021) & (week %in% weeks)){
        x = "NATHAN"
    } else {
        x = team_1
    }
    return(x)
}
replace_nathan_t2 = function(x, output){
    weeks = c("01", "02", "03", "04", "05", "06", "07", "08")
    year = x[1]
    week = x[2]
    team_2 = x[5]
    if ((team_2 == "NOAH") & (year == 2021) & (week %in% weeks)){
        x = "NATHAN"
    } else {
        x = team_2
    }
    return(x)
}

new_t1 <- apply(ff_scores, 1, replace_nathan_t1)
new_t2 <- apply(ff_scores, 1, replace_nathan_t2)
ff_scores <- cbind(ff_scores, new_t1 = new_t1, new_t2 = new_t2)
ff_scores <- ff_scores[,c(1, 2, 21, 4, 22, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)]
ff_scores <- ff_scores %>%
  rename(team_1 = new_t1, 
         team_2 = new_t2)

Export Dataset.¶

In [7]:
write.csv(ff_scores,"C:\\Users\\chris\\Desktop\\ff_scores.csv", row.names = FALSE)
In [12]:
head(ff_scores[,1:11])
A grouped_df: 6 × 11
yearweekteam_1team_1_scoreteam_2team_2_scorewinregplayoffschamp_weekwinner_rd_1
<int><chr><chr><dbl><chr><dbl><dbl><dbl><dbl><int><dbl>
201401CHRIS 119.68CARLEN126.34010150
201401ANDREW106.28KYLE 145.94010150
201401STEVE 103.46DREW 101.92110150
201401MATT 125.50NATHAN 99.86110150
201402MATT 124.62CHRIS 119.12110150
201402STEVE 122.52ANDREW132.02010150