hannah yan han yanhann10

## gist:e92ada92e35eea9924a362dea0187b22
devtools::install_github("hrbrmstr/streamgraph")
library(streamgraph)
YC <- read_csv("~/YC.csv")
YC %>%
  streamgraph(vertical, n, year)%>%
  sg_axis_x(1) %>%
  sg_axis_y(10) %>%
  sg_legend(show=TRUE, label="Genres: ")

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit
	devtools::install_github("hrbrmstr/streamgraph")
	library(streamgraph)
	YC <- read_csv("~/YC.csv")
	YC %>%
	streamgraph(vertical, n, year)%>%
	sg_axis_x(1) %>%
	sg_axis_y(10) %>%
	sg_legend(show=TRUE, label="Genres: ")