其他
数据呈现 | 用R绘制和弦图,解读大健康产业经济数据
和弦图,是一种显示矩阵中数据间相互关系的可视化方法,节点数据沿圆周径向排列,节点之间使用带权重(有宽度)的弧线链接。它被生物科学界广泛用于可视化基因数据,在Wired,New York Times和American Scientist等刊物上也被称为信息图表(info graphics)。
”1.展示层次结构中的依赖关系,如剖析关联企业间的控股关系。
2.展示同级实体之间的流通关系,如可探索公司资金流向问题。
3.展示不同对象的交叉分布关系,如研究某一产业在地区与行业间的结构分布。
表1:大健康产业企业存量在省与行业间的分布矩阵(展示的仅部分数据)
#加载包
library(openxlsx)
library(tidyverse)
library(circlize)##绘制和弦图包
#读取大健康产业企业存量数据
djk_data<-read.xlsx('djk_data.xlsx') ##数据样式见上表1
#将数据框转换成矩阵结构
djk_data<-as.matrix(djk_data)
#设置参数
grid.col=NULL
grid.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
这里是大数据、分析技术与学术研究的三叉路口
欢迎扫描👇二维码添加关注