ggplot(diamonds, aes(x=clarity, fill=cut))
+ geom bar(position="dodge")