HomeAwayRecords

homeaway.R

## Data from - https://github.com/jalapic/engsoccerdata

library(tidyverse)
library(engsoccerdata)
df <- rbind(england, england_current()) %>%  
  filter(tier==1) %>%
  homeaway()
df$Date <-  as.Date(as.character(df$Date))
head(df)

df1 <- df %>% 
  group_by(team,Season) %>% 
  arrange(Date) %>% 
  mutate(gameno = row_number()) %>% 
  group_by(team,venue,Season) %>% 
  summarise(totalpts = 3*sum(gf>ga)+sum(gf==ga)) %>%
  spread(venue,totalpts) %>%
  mutate(totalpts = away+home, pcthome = home/totalpts) %>%
  ungroup() %>%
  arrange(-pcthome)
head(df1,10)