ggplot(agg) + geom_bar(aes(x = Hair, y = n), stat = "identity")
agg_ord <- mutate(agg, Hair = reorder(Hair, -n, sum))