【R】无向网络数据格式转矩阵格式简易函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. ### 网络(Network)数据集格式转对称矩阵(Matrix)格式函数;转载或传播请注明来源与作者相关信息
   
2. ### 本函数适用于无向网络图
   
3. ##  网络数据格式适用于R/Gelhi/Pajek等
   
4. ##  对称矩阵格式适用于Ucinet等

复制代码

1. TransToM <- function(data,x,n)       ## x为权数所在列；n为节点个数
   
2. {
   
3.   Matrix <- matrix(nrow=n,ncol=n)
   
4.   for(i in 1:(n-1))                  ##建立上三角矩阵
   
5.     {
   
6.     if(i==1)
   
7.       {
   
8.       Matrix[i,2:n] <- data[1:(n-1),x]
   
9.       }else
   
10.       {
    
11.         Matrix[i,(i+1):n] <- data[(1+sum((n-i+1):(n-1))):(i*n-sum(1:i)),x]
    
12.       }
    
13.     }
    
14.   for(i in 1:n)                      ##对角赋0
    
15.    {
    
16.      for(j in 1:n)
    
17.      {
    
18.        {
    
19.         if(is.na(Matrix[i,j]) == TRUE)
    
20.          {Matrix[i,j]<- 0}
    
21.        }
    
22.      }
    
23.    }
    
24.   Matrix <- t(Matrix)+Matrix         ##下三角矩阵+上三角矩阵
    
25.   print(Matrix)
    
26. }
    
27. 
    
28. ##Author
    
29. # JianCheng Li
    
30. # School of Economics ＆ Management
    
31. # Zhejiang University of Technology
    
32. # No.288.Liuhe Road, Hangzhou, Zhejiang, P.R.China, 310000

复制代码

所用数据格式如下：

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：数据格式 network matrix UCINET Pajek 格式转换 网络