共现矩阵数据转化

请教一下大家R语言怎么把共现矩阵转化成三列（Source Target value）,因为我的矩阵是对称的，所以应该只需要提取上三角或者下三角即可。具体是指：从第一张图转化为第二张图 ，这里只列举了3*3的，实际数据会比较大。谢谢各位大佬解答。

我猜有专门的函数，但我没找到，只写个代码你参考一下吧

1. library(dplyr)
   
2. library(matrixcalc)
   
3. 
   
4. #示例矩阵
   
5. A <- matrix(
   
6.   c(0, 1, 2, 3, 4,
   
7.     1, 0, 3, 4, 5,
   
8.     2, 3, 0, 5, 1,
   
9.     3, 4, 5, 0, 2,
   
10.     4, 5, 1, 2, 0),
    
11.   nrow = 5,
    
12.   byrow = TRUE
    
13. )
    
14. 
    
15. a <- lower.triangle(A)  #取下三角
    
16. 
    
17. rownames(a) <- letters[1:5]
    
18. colnames(a) <- letters[1:5]
    
19. 
    
20. res <-
    
21.   data.frame(
    
22.     source = rep(rownames(a), dim(a)[2]),
    
23.     target = rep(colnames(a), each = dim(a)[1]),
    
24.     value = vec(a)
    
25.   ) %>%
    
26.   filter(value != 0)

复制代码