R语言实现关系图谱

数据是这样存储的

http://cda.pinggu.org/uploadfile/image/20170420/20170420070230_83299.png

社交关系分析和可视化用的是igraph包

脚本是这样的

-------------------------------------------------------------------------------------------

#install.packages("igraph")

library(igraph) 

#igraph社交关系分析及可视化

#读取数据，注意编码格式是utf-8

data <- read.csv('F:/work/R/relationship.csv', head=T,fileEncoding='UTF-8',stringsAsFactors=F)

#加载数据???

g <- graph.data.frame(data)

plot(g,

vertex.size=5,    #节点大小

layout=layout.fruchterman.reingold,  #布局方式

vertex.shape='none',    #不带边框

vertex.label.cex=1.5,   #节点字体大小

vertex.label.color='red', #节点字体颜色

edge.arrow.size=0.7)   #连线的箭头的大小

#tkplot(g) 交互绘图命令

--------------------------------------------------------------------------------------------------

执行plot效果是这样的

http://cda.pinggu.org/uploadfile/image/20170420/20170420070157_34814.png

如果执行tkplot(g) ，效果是这样的

http://cda.pinggu.org/uploadfile/image/20170420/20170420070149_86973.png

菜单选项可以自己选，这也是交互式绘图的意思