On Github olgakruglova23 / mydeck
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))