R做sankey图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

sankey图能是一种变形的条形图，成功将条形图的数据进行流化，展示的数据面更广更宽阔。下面我们就做一下这种图。
#数据与包

1. require(igraph)
   
2. ## Loading required package: igraph
   
3. require(rCharts)
   
4. ## Loading required package: rCharts
   
5. require(rjson)
   
6. ## Loading required package: rjson
   
7. require(plyr)
   
8. ## Loading required package: plyr
   
9. require(reshape2)
   
10. ## Loading required package: reshape2
    
11. #https://github.com/timelyportfolio/rCharts_d3_sankey 下载文件

复制代码

将需要下载的文件下载并解压，路径将用来设置setLib参数 x <- temp[which(temp$source == 2),]

数据准备

1. sick <- read.csv("I:/自媒体/2015-06-24/全国疾病谱/sick.csv", header = T, sep = ",", stringsAsFactors = F)
   
2. sick$source <- as.character(sick$source)

复制代码

在这里还是要向大家再次表明一个看法：要模仿出一幅图，首先要了解他的数据结构，包括是数据框还是list，数据怎么摆放，然后别人做图的思路，最后才是具体实现和实现的技术细节。

1. sankeyPlot <- rCharts$new()
   
2. sankeyPlot$setLib("I:/自媒体/2015-06-24/全国疾病谱/rCharts_d3_sankey-gh-pages/libraries/widgets/d3_sankey")
   
3. sankeyPlot$setTemplate(script = "I:/自媒体/2015-06-24/全国疾病谱/rCharts_d3_sankey-gh-pages/libraries/widgets/d3_sankey/layouts/chart.html")
   
4. sankeyPlot$set(
   
5.   data = sick,
   
6.   nodeWidth = 20,#修改条形宽度
   
7.   nodePadding = 10,#修改条形高度，越小越高
   
8.   layout = 10,
   
9.   width = 1000,
   
10.   height = 700,
    
11.   title = "Sankey Diagram"
    
12. )
    
13. sankeyPlot$save('mychart1.html', cdn = TRUE)#保存为网页
    
14. sankeyPlot

复制代码

#其他参考资料 http://rcharts.io/viewer/?6001601#.VYt8opOdVit

http://rcharts.io/viewer/?6003605#.VYt8BZOdVis

相关数据及代码：http://pan.baidu.com/s/1qWytZKo   密码：微信索取

关于我们，关注理性与文艺，用数据创作内容性的精致阅读，这里是数据分析挖掘人员与文艺青年的集结地，不做培训，不做鼓吹，只踏踏实实的做一个又一个数据驱动的文章，并设计机器人减轻数据分析的负担，无论你感兴趣还是想参与都可以关注，请加微信公众号大音如霜

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：sankey Key San Portfolio required sankey ggplot rcharts

第一次听说sankey，谢谢楼主！

nkunku 发表于 2015-6-29 16:43
第一次听说sankey，谢谢楼主！

以后会分享更多，谢谢关注

sssyunsheng 发表于 2015-6-29 17:33
以后会分享更多，谢谢关注

其实sankey的动态效果很好的

请问一下我做的时候出来中文是乱码该怎么办？

sssyunsheng 发表于 2015-6-28 21:25
sankey图能是一种变形的条形图，成功将条形图的数据进行流化，展示的数据面更广更宽阔。下面我们就做一下这 ...

好的?

提示包不可用，怎么破？楼主
install.packages("igragh")
Warning in install.packages :
  package ‘igragh’ is not available (for R version 3.2.2)