R语言：绘制知识图谱

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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

今天我们借助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 #可缩放

结果如下：