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