在R中提取邻接矩阵的行名和列名

Question

    library(sna)  
    library(proxy)  
    library(igraph)  
    rawdataframe<-read.csv(file =     "~/Desktop/SNA/Techniques/LinkPrediction/Sample.csv" ,fill=TRUE,header=FALSE,sep=",")  
    rawgraphdata<-    graph.data.frame(rawdataframe,directed=TRUE,vertices=NULL)  
    adj<-get.adjacency(rawgraphdata)  
    g1<-as.matrix(adj)  
    adjmatrix<-simil(g1, method ="Jaccard", diag = TRUE, upper = TRUE ,pairwise = TRUE, by_rows = TRUE, convert_distances = TRUE,     auto_convert_data_frames = TRUE)  
    adjmatrix[adjmatrix >= 0.75]<-1   
    adjmatrix[adjmatrix <= 0.75]<-0

我使用了simil proxy measure，得到的结果如下。

输出如下：

       2 159 3 5 858 100 114 171
   2   0   0 0 0   0   0   0   0
   159 0   0 0 0   0   0   0   0
   3   0   0 0 0   0   0   0   0
   5   0   0 0 0   0   0   0   0
   858 0   0 0 0   0   0   0   0
   100 0   0 0 0   0   0   1   1
   114 0   0 0 0   0   1   0   1
   171 0   0 0 0   0   1   1   0  

我想提取值对应于 1 的（行、列）对。

Answer 1

正如 NiceE 所指出的，您可以将which 与arr.ind=1 一起使用，这将为您提供行和列索引； 收集行名和列名，例如使用apply:

> apply(which (as.matrix(adjmatrix)==1,arr.ind=T), 2, function(x)rownames(as.matrix(adjmatrix))[x])

     row   col  
[1,] "114" "100"
[2,] "171" "100"
[3,] "100" "114"
[4,] "171" "114"
[5,] "100" "171"
[6,] "114" "171"

这将适用于您的情况，因为在邻接矩阵中，行名和列名应该相同。