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"))