重叠网络的可视化用R语言实现

最近写毕业论文，研究怎么画重叠网络的社区结构，终于找到了画法，先给大家来个图，是用R语言和igraph库画的。

下面附上代码：

library(igraph)
library(doParallel)
library(sand)
#添加网络（无向网络）
g <- graph.formula(1-2,1-3,1-4,2-5,2-6,2-7,3-8,3-9,4-10)
values <- lapply(1:10, function(x) c(1,0,0))
#定义节点是重叠节点还是非重叠节点
shape=c('pie','circle','circle','circle','circle','circle','circle','circle','circle','circle')
#对重叠节点的节点颜色及占比进行设置
values[[1]][1]=3
values[[1]][2]=2
values[[1]][3]=4
V(g)[1]$pie.color=list(c('yellow','blue','red'))
#对其它节点颜色进行设置
s=c('red','red','yellow','blue','red','red','red','yellow','yellow','blue')
set.seed(123)
#显示
plot(g,
     vertex.shape=shape, 
     vertex.pie=values,
     vertex.color=s,
     vertex.size=seq(30, 30, length=10), 
)