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")
1234567