利用DS.JS的技術(shù)仗阅，在R語(yǔ)言中實(shí)現(xiàn)繪制Streagraph效果圖玫霎，并且具有交互性的效果。這個(gè)包是由Github上的一位大神開發(fā)的拔创，包需要從Github下載，RCRAN沒有提供（會(huì)提示版本不支持）
1.安裝streamgraph包
devtools::install_github("hrbrmstr/streamgraph")#從github上下載并安裝該包
library(streamgraph)#調(diào)用
下載的過程中可能會(huì)提示下載失敗等原因湾盗，除了GFW的原因可能和獲取鏈接的函數(shù)有關(guān)伏蚊，如果有出錯(cuò)試試這樣調(diào)整：
library(httr)
set_config(config(ssl_verifypeer = 0L))
2.繪制streamgraph圖
2.1簡(jiǎn)單的繪制
需要提供的數(shù)據(jù)是一個(gè)3維的Dataframe或者list
這里用到了一組我的實(shí)驗(yàn)數(shù)據(jù)，是一個(gè)矩陣格粪，一開始長(zhǎng)這個(gè)樣子：
需要將其變成一個(gè)豎型的Dataframe躏吊，第一列代表橫坐標(biāo)，第二列代表縱坐標(biāo)帐萎，第三列代表該位置的取值
做如下處理：
new_df=data.frame(x=rep(1:99,each=99),y=rep(1:99,99),distance=NA)#原數(shù)據(jù)為坐標(biāo)矩陣的形式比伏，需要將數(shù)據(jù)轉(zhuǎn)換為豎形數(shù)據(jù)的形式，建立一個(gè)空白的豎型數(shù)據(jù)Dataframe
for(i in 1:9801){
new_df$distance[i]=d1s[new_df[i,1],new_df[i,2]]
}#對(duì)Dataframe用矩陣進(jìn)行填充
得到的Dataframe為new_df長(zhǎng)這個(gè)樣子疆导，列名為x,y,distance：
接下來就可以繪制了：
streamgraph(new_df, "x", "distance", "y",interpolate="cardinal")
結(jié)果提示出錯(cuò)：
Error in eval(substitute(expr), envir, enclos) :
'origin' must be supplied
這個(gè)錯(cuò)誤的意思是，你提供的y列必須是時(shí)間型的數(shù)據(jù)澈段，那我們直接給y加個(gè)1900好了悠菜，變成“1900年-1999年”
new_df$y=new_df$y+1900
streamgraph(new_df, "x", "distance", "y",offset = "zero",interpolate="cardinal")#這下就可以了
效果如下：
去掉offset變量败富，即可變成對(duì)稱效果：
streamgraph(new_df, "x", "distance", "y",interpolate="cardinal")
由于我數(shù)據(jù)的原因悔醋，這樣看好像不太好看哈哈
2.2修改時(shí)間顯示情況
我們?cè)賮碚乙环莨驳臄?shù)據(jù)集
下載地址為：http://asbcllc.com/blog/2015/february/cre_stream_graph_test/data/cre_transaction-data.csv
長(zhǎng)這個(gè)樣子，可以看到兽叮，這里提供了具體的時(shí)間年月日
dat %>%
streamgraph("asset_class", "volume_billions", "year", interpolate="cardinal") %>% ? ? ? #繪圖初始化
sg_axis_x(1, "year", "%Y") %>% ? ? ? ? ? #這里規(guī)定芬骄，y軸我們只顯示年，不顯示日鹦聪，月的情況（因?yàn)榻o出的year是一個(gè)標(biāo)準(zhǔn)年月日數(shù)據(jù)）
sg_fill_brewer("PuOr") ? ? ? ? ? ? ? ? ? ? ? ? ? #換一個(gè)顏色账阻，調(diào)色板工具
得到這樣的效果：
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格式的網(wǎng)頁(yè)淘太，方便進(jìn)行展示~：
