library(ggplot2)

ggplot(diamonds) + geom_bar(aes(cut))