Я хочу создать сеть, подобную приведенной ниже, на основе корреляционной матрицы (c). Где тип кромки, размер и цвет основаны на силе корреляции (мы можем сделать три различия: высокий положительный, высокий отрицательный и один между) и p ie в каждом узле (красный и зеленый) цвет) на основе вектора из двух (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)
Спасибо за помощь.
