o <- ggplot(data=movies, aes(x=BudgetMillion))
h <- o + geom_histogram(binwidth=10, aes(fill=Genre),
colour="Black")
h +
xlab("Money Axis") +
ylab("Number of Movies") +
ggtitle("Movies Budget Distribution") +
theme(axis.title.x = element_text(colour = "DarkGreen", size=25),
axis.title.y = element_text(colour = "Red", size=25),
axis.text.x = element_text(size=20),
axis.text.y = element_text(size=20),
legend.title = element_text(size=25),
legend.text = element_text(size=20),
legend.position = c(1,1),
legend.justification = c(1,1),
plot.title=element_text(colour = "DarkBlue",
size=40,
family = "Courier"))