Assignment 2

library(tidyverse)
library(readr)
library(dplyr)
library(ggplot2)
top_albums <- read_csv("http://jamessuleiman.com/teaching/datasets/Rolling_Stones_Top_500_Albums.csv",
    locale = locale(encoding = "ISO-8859-2",
    asciify = TRUE))

newset <- top_albums %>% select(Number, Genre)

newset %>%filter(Number <= 20)%>% ggplot(aes(x= Genre))+ geom_bar(fill= "blue")+ coord_flip()+ggtitle("Top 20 Albums of All Time by Genre")

I wanted to futher see how often Rock was the genre of an album on the overall list.

sum(newset$Genre=='Rock')

## [1] 249

I wanted to display the relationship I saw with Rock as the number one most represnted Genre within this list.