R语言：绘制知识图谱

Posted 2020-08-25 王亨

知识图谱主要是通过将应用数学，图形学，信息可视化技术，信息科学等学科的理论与方法与计量学引文分析、共现分析等方法结合，利用可视化的图谱形象地展示学科的核心结构、发展历史、前沿领域以及整体知识架构达到多学科融合目的的现代理论。

今天我们借助networkD3包里面的simpleNetwork 函数来绘制一个类似CSDN微信开发的知识图谱，效果图如下：

 

首先我们先来分析一下这张图，图里面的微信支付——微信支付，小程序——小程序，等这些，它们之间本不需要连线，但这里是为了美观好看，才有这些连线，但实际却没有什么意义。使用simpleNetwork 函数不能绘制类似微信支付——微信支付 的这种关系。我把这些数据整理写在了一个TXT文件里面，截图如下。

接下来我们分析一下 simpleNetwork，它的原型如下：

 

simpleNetwork(Data, Source = NULL, Target = NULL, height = NULL,  
  width = NULL, linkDistance = 50, charge = -200, fontSize = 7,  
  fontFamily = "serif", linkColour = "#666", nodeColour = "#3182bd",  
  nodeClickColour = "#E34A33", textColour = "#3182bd", opacity = 0.6,  
  zoom = F)  

 

参数解释如下：

Data	数据源
Source	默认为数据框的第一行，网络源变量
Target	默认为数据框的第二行，网络源目标变量
height	设置图像所占页面大小
width	设置图像所占页面大小
linkDistance	中间连线的长度，默认为50，数值越大，连线越长
charge	点与点之间的吸引力，值越大，点与点之间距离越近，值越小，点与点之间距离越大
fontSize	节点名称字体大小
fontFamily	设置标签字体
linkColour	连线颜色
nodeColour	节点颜色
nodeClickColour	点击后颜色
textColour	字体颜色
opacity	opacity=0时，透明度为0，看不到图像，最大值为1，超过1也默认为1
zoom	逻辑值为true是可以缩放，false时无法缩放

 

 

我想这里有了上面这个参数表，大家肯定就会对simpleNetwork这个函数十分了解了。首先我们来一个最简单。

 

data<-read.table("network.txt",header = FALSE, sep = "")#读取数据  
simpleNetwork(data)  

　　

 

结果如下：

 

现在我们就多加一些参数，然后看一下整体效果。

 

simpleNetwork(data,#数据  
       fontFamily="华文行楷",#字体设置  
       linkColour="#B23AEE",#连线颜色  
       nodeColour="#00CD66",#节点颜色  
       textColour="#0000FF",#文本颜色  
       charge = -550,#节点之间的引力  
       opacity=0.9,#透明度  
       zoom=TRUE #可缩放  

　　

结果如下：

至于其他参数大家可以自己去试试。，关注我的微信公众号《跟着菜鸟一起学R语言》，回复simpleNetwork，即可获取这次试用到的数据以及 RGB颜色查询对照表。

转载请注明原文链接：http://blog.csdn.net/wzgl__wh/article/details/53290514