Import data

# excel file
Prem <- read_excel("data/Prem.xlsx")

rmarkdown::paged_table(Prem)

State one question

How does the half time result effect the final result depending on if you are home or away?

Plot data

ggplot(data = Prem, mapping = aes(x = FTR, fill = HTR))+
    geom_bar(position = "identity")

Interpret

Everytime the home team won a game they were leading at half time. Everytime the away team were winning at half time they would end up winning the game. If the first half ended in a tie, then it was more likely than not that the away team would end up winning. Only on a couple of occasions, the home team would be winning at half time and end up losing the game.