使用R的中心节点的循环网络

Question

我想基于相关矩阵（c）建立一个类似于下图的网络。其中，边的类型，大小和颜色基于correlation的强度（我们可以做出三种区分，高正，高负以及两者之间的区别）以及每个节点内的饼图（红色和绿色）基于两个（NP）列向量（在一个变量上具有总正相关，而另一个具有负相关）。

一些随机变量

DD<- matrix(NA, 1000, 6)

for (i in 1:6){
    DD[,i]=runif(1000)
}

他们的相关性和和

C=cor(DD)

diag(C)<- 0

NP<- matrix(NA, 6, 2)

NP[,1]<-rowSums(C < 0,na.rm=TRUE)
NP[,2]<-rowSums(C > 0,na.rm=TRUE)

感谢您的帮助。