利用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

这里用到了一组我的实验数据，是一个矩阵，一开始长这个样子：

99x99的矩阵

需要将其变成一个竖型的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：

99x99=9801行，3列

接下来就可以绘制了：

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格式的网页，方便进行展示~：