library(ggplot2)
data("iris")
g <- ggplot(iris, aes(x = Sepal.Width, fill = Species))
g <- g + geom_histogram(binwidth = 0.2, alpha = 0.8)
g <- g + labs(title = "Histogram of Sepal Width", x = "Sepal Width", y = "Frequency")
g <- g + scale_fill_conesa(palette = "main")
Run the code above in your browser using DataLab