其他
数据呈现 | 用R绘制和弦图，解读大健康产业经济数据
和弦图，是一种显示矩阵中数据间相互关系的可视化方法，节点数据沿圆周径向排列，节点之间使用带权重（有宽度）的弧线链接。它被生物科学界广泛用于可视化基因数据，在Wired，New York Times和American Scientist等刊物上也被称为信息图表(info graphics)。
”１.展示层次结构中的依赖关系，如剖析关联企业间的控股关系。
２.展示同级实体之间的流通关系，如可探索公司资金流向问题。
３.展示不同对象的交叉分布关系，如研究某一产业在地区与行业间的结构分布。
表1：大健康产业企业存量在省与行业间的分布矩阵（展示的仅部分数据）
#加载包library(openxlsx)library(tidyverse)library（circlize）##绘制和弦图包
#读取大健康产业企业存量数据djk_data<-read.xlsx('djk_data.xlsx') ##数据样式见上表1
#将数据框转换成矩阵结构djk_data<-as.matrix(djk_data)
#设置参数grid.col=NULLgrid.col[c('北京','天津','河北','山西','内蒙古','辽宁','吉林','黑龙江','上海','江苏','浙江','安徽','福建','江西','山东','河南','湖北','湖南','广东','广西','海南','重庆','四川','贵州','云南','西藏','陕西','甘肃','青海','宁夏','新疆')]='grey50'grid.col[c('H01','H02','H03','H04','H05','H06','H07','H08','H09','H10','H11','H12','H13')]='grey'col_fun=colorRamp2(range(djk_data),c('#FFFFFF','#000000'))##设置弧线颜色
##绘制和弦图chordDiagrm(djk_data, grid.col=grid.col, col=col_fun, annotationTrack='grid', annotationTrackHeight=c(0.03,0.01), preAllocateTracks=1, order=('北京','天津','河北','山西','内蒙古','辽宁','吉林','黑龙江','上海','江苏','浙江','安徽','福建','江西','山东','河南','湖北','湖南','广东','广西','海南','重庆','四川','贵州','云南','西藏','陕西','甘肃','青海','宁夏','新疆'), transparency=0.3) circos.trackPlotRegion(track.index=1,panel.fun=function(x,y){ xlim=get.cell.meta.data('xlim') ylim=get.cell.meta.data('ylim') sector.name=get.cell.meta.data('sector.index') circos.text(mean(xlim),ylim[1]+0.3,sector.name,facing='clockwise',niceFacing=T,adj=c(0,0.5),cex=0.7) circos.axis(h='top',label.cex=0.5,major.tick.percentage=0.2,sector.index=sector.name,track.index=2) },bg.border=NA)##调整文本标签垂直方式放置►往期推荐
回复【Python】👉简单有用易上手
回复【学术前沿】👉机器学习丨大数据
回复【数据资源】👉公开数据
回复【可视化】👉你心心念念的数据呈现
回复【老姚专栏】👉老姚趣谈值得一看
►一周热文
工具＆技巧丨能够融合Stata、Python和R的神器——Jupyter Notebook
工具&技巧 | 经济学圈特供 小刘帮你画专业社会网络图（二）
数据Seminar
这里是大数据、分析技术与学术研究的三叉路口
欢迎扫描👇二维码添加关注