12.interactive streamgraph

library(streamgraph)
 
# Create data:
data <- data.frame(
  year=rep(seq(1990,2016) , each=10),
  name=rep(letters[1:10] , 27),
  value=sample( seq(0,1,0.0001) , 270)
)
 
# Stream graph with a legend
pp <- streamgraph(data, key="name", value="value", date="year", height="300px", width="1000px") %>%
  sg_legend(show=TRUE, label="names: ")
pp

library(streamgraph)
 
# Create data:
data <- data.frame(
  year=rep(seq(1990,2016) , each=10),
  name=rep(letters[1:10] , 27),
  value=sample( seq(0,1,0.0001) , 270)
)
 
# Stream graph with a legend

pp <- streamgraph(data, key="name", value="value", date="year", height="300px", width="1000px", scale = "continuous") %>%
  sg_legend(show=TRUE, label="names: ")
pp

pp <- streamgraph(data, key="name", value="value", date="year", height="300px", width="1000px", scale = "continuous") %>%
  sg_legend(show=TRUE, label="names: ")
pp <- sg_annotate(pp, "!", 2000, 3, color = "red", size = 20)
pp