# load the library
library(ggplot2)

# create a blank canvas
g <- ggplot(data = diamonds)

g + geom_bar(aes(x = cut, fill = cut)) + 
    scale_fill_discrete(guide = guide_legend(title = "CUT", 
                                             keywidth = 2, 
                                             keyheight = 2))

g + geom_bar(aes(x = cut, fill = color), position = "fill") + 
    guides(fill = guide_legend(title = NULL))

g + geom_bar(mapping = aes(x = cut, fill = clarity), position = "dodge") +
    theme(axis.text = element_text(colour = "red", size = 12))

 g + geom_histogram(aes(price, fill = cut), binwidth = 500) + 
    labs(x = "Price", y = "Number of diamonds", 
         title = "Distribution of prices \n across Cuts") + 
    theme(plot.title = element_text(colour = "red", face = "italic"),
        axis.title.x = element_text(face="bold", 
                                      colour="darkgreen", size = 12),
      axis.text.x  = element_text(angle = 45, vjust = 0.5, size = 12), 
      axis.title.y = element_text(face="bold", 
                                  colour="darkblue", size = 12),
      axis.text.y  = element_text(size = 12, colour = "brown"))