获取匹配值的 dimnames 的名称

Question

我正在尝试从矩阵选择中获得一对暗名。

names<-c("n1", "n2", "n3")
mat<-matrix(0, nrow=length(names), ncol=length(names), dimnames=list(names, names))
mat[1,2]<-3
mat[3,2]<-6
mat

输出是：

   n1 n2 n3
n1  0  3  0
n2  0  0  0
n3  0  6  0

我想得到所有大于 0 的对：

n1,n2
n2,n3

rownames 和 colnames 的使用给了我 NULL。

Answer 1

试试这个：

matrix(rownames(mat)[which(mat!=0,arr.ind=TRUE)],ncol=2)
#     [,1] [,2]
#[1,] "n1" "n2"
#[2,] "n3" "n2"

结果矩阵的每一行都显示一个非零元素的索引。