Bar Chart

mm.counts <- c(12,6,8,10,6,7)
names(mm.counts) <- c("blue","brown", "green", "orange", "red", "yellow")
mm.colors <- c("blue", "brown", "green", "orange","red", "yellow")
barplot(mm.counts, col=mm.colors)