library(tidyverse)
table.data %>%
  select(Team, GoalsFor)%>%
  head(6)%>%
  ggplot(aes(reorder(Team, GoalsFor), GoalsFor))+
  theme(axis.text.x = element_text(angle = 90, hjust = 1))+
  labs(x='Team', y='Total Goals For')+
  geom_bar(stat="identity")
library(tidyverse)
table.data %>%
  select(Team, GoalsAgainst)%>%
  head(6)%>%
  ggplot(aes(x=reorder(Team, GoalsAgainst),y= GoalsAgainst, fill= Team))+
  theme(axis.text.x = element_text(angle = 90, hjust = 1))+
  labs(x='Team', y='Total Goals Against')+
  geom_bar(stat="identity")