Assignment 2 BAN 350

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

top_albums %>%
  filter(Year == 1967:1971) %>%
  ggplot(aes(x = Year, fill = Genre)) +
  geom_bar() + 
  xlab("Year") +
  coord_flip() +
  ggtitle("Genres of Top Albums From 1967-1971") +
  theme_minimal()