nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv", sep=",")
nba <- nba[order(nba$PTS),]
row.names(nba) <- nba$Name
nba <- nba[,2:20]
nba_matrix <- data.matrix(nba)
ba_heatmap <- heatmap(nba_matrix, Rowv=NA, Colv=NA, col = cm.colors(256), scale="column", margins=c(5,10))

nba_heatmap <- heatmap(nba_matrix, Rowv=NA, Colv=NA, col = heat.colors(256), scale="column", margins=c(5,10))

data <- read.csv("http://datasets.flowingdata.com/post-data.txt")
#install.packages("portfolio")
library(portfolio)

## Loading required package: grid

## Loading required package: lattice

## Loading required package: nlme

map.market(id=data$id, area=data$views, group=data$category, color=data$comments, main="FlowingData Map")

#devtools::install_github("hrbrmstr/streamgraph")
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following object is masked from 'package:nlme':
## 
##     collapse

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(streamgraph)

## Registered S3 method overwritten by 'xts':
##   method     from
##   as.zoo.xts zoo

# Create data:
year=rep(seq(1990,2016) , each=10)
name=rep(letters[1:10] , 27)
value=sample( seq(0,1,0.0001) , length(year))
data=data.frame(year, name, value)
# Basic stream graph: just give the 3 arguments
streamgraph(data, key="name", value="value", date="year")

library(dplyr)
library(streamgraph)
library(viridis)

## Loading required package: viridisLite

## Registered S3 methods overwritten by 'ggplot2':
##   method         from 
##   [.quosures     rlang
##   c.quosures     rlang
##   print.quosures rlang

stocks <- read.csv("stocks.csv", stringsAsFactors=FALSE)
stock_colors <- viridis_pal()(100)
# Percent of total
stocks %>% 
  mutate(date=as.Date(quarter, format="%m/%d/%y")) %>% 
  streamgraph(key="ticker", value="nominal", offset="expand") %>% 
  sg_fill_manual(stock_colors) %>% 
  sg_axis_x(tick_interval=10, tick_units="year") %>% 
  sg_legend(TRUE, "Ticker: ")

library(dplyr)
library(babynames)
library(streamgraph)

babynames %>%
  filter(grepl("^Kr", name)) %>%
  group_by(year, name) %>%
  tally(wt=n) %>%
  streamgraph("name", "n", "year")

babynames %>%
  filter(grepl("^I", name)) %>%
  group_by(year, name) %>%
  tally(wt=n) %>%
  streamgraph("name", "n", "year", offset="zero", interpolate="linear") %>%
  sg_legend(show=TRUE, label="I- names: ")