利用DS.JS的技术，在R语言中实现绘制Streagraph效果图，并且具有交互性的效果。这个包是由Github上的一位大神开发的，包需要从Github下载，RCRAN没有提供（会提示版本不支持）
1.安装streamgraph包
devtools::install_github("hrbrmstr/streamgraph")#从github上下载并安装该包
library(streamgraph)#调用
下载的过程中可能会提示下载失败等原因，除了GFW的原因可能和获取链接的函数有关，如果有出错试试这样调整：
library(httr)
set_config(config(ssl_verifypeer = 0L))
2.绘制streamgraph图
2.1简单的绘制
需要提供的数据是一个3维的Dataframe或者list
这里用到了一组我的实验数据，是一个矩阵，一开始长这个样子：
需要将其变成一个竖型的Dataframe，第一列代表横坐标，第二列代表纵坐标，第三列代表该位置的取值
做如下处理：
new_df=data.frame(x=rep(1:99,each=99),y=rep(1:99,99),distance=NA)#原数据为坐标矩阵的形式，需要将数据转换为竖形数据的形式，建立一个空白的竖型数据Dataframe
for(i in 1:9801){
new_df$distance[i]=d1s[new_df[i,1],new_df[i,2]]
}#对Dataframe用矩阵进行填充
得到的Dataframe为new_df长这个样子，列名为x,y,distance：
接下来就可以绘制了：
streamgraph(new_df, "x", "distance", "y",interpolate="cardinal")
结果提示出错：
Error in eval(substitute(expr), envir, enclos) :
'origin' must be supplied
这个错误的意思是，你提供的y列必须是时间型的数据，那我们直接给y加个1900好了，变成“1900年-1999年”
new_df$y=new_df$y+1900
streamgraph(new_df, "x", "distance", "y",offset = "zero",interpolate="cardinal")#这下就可以了
效果如下：
去掉offset变量，即可变成对称效果：
streamgraph(new_df, "x", "distance", "y",interpolate="cardinal")
由于我数据的原因，这样看好像不太好看哈哈
2.2修改时间显示情况
我们再来找一份公共的数据集
下载地址为：http://asbcllc.com/blog/2015/february/cre_stream_graph_test/data/cre_transaction-data.csv
长这个样子，可以看到，这里提供了具体的时间年月日
dat %>%
streamgraph("asset_class", "volume_billions", "year", interpolate="cardinal") %>% #绘图初始化
sg_axis_x(1, "year", "%Y") %>% #这里规定，y轴我们只显示年，不显示日，月的情况（因为给出的year是一个标准年月日数据）
sg_fill_brewer("PuOr") #换一个颜色，调色板工具
得到这样的效果：
2.3步阶柱状图效果
此外，我们还可以让streamline变得“不平滑”————就变成了一种类似于柱状图的效果：
dat%>%
streamgraph("asset_class","volume_billions","year",offset="silhouette",interpolate="step")%>% #改为“step”模式
sg_axis_x(1,"year","%Y")%>%
sg_fill_brewer("PuOr")
最后，你可以保存为html格式的网页，方便进行展示~：
