Project for Developing Data Products course.
How to navigate in such a wealth of information? Not to worry! IMDB films will help you!
library(ggplot2)
count <- sapply(movies[, c(18:24)], function(x) {length(which(x == "1"))})
countY <- data.frame(count)
countY$genre <- rownames(countY)
p <- ggplot(countY, aes(x = genre, y = count)) + geom_bar(stat = "identity")
p <- p + ggtitle("Genres on IMDB by year and rating")
p + theme(text = element_text(size = 18), plot.title = element_text(size=18, face = "bold"),
axis.title=element_text(size=16,face="bold"), axis.text.x=element_text(angle=90))