给定一个矩阵，如下：
A=matrix(c(0,1,0,0,2,0,0,0,0,1,1,1,0,1,1,0),byrow=T,nrow=4,dimnames = list(c(1:4),c(1:4)))
怎么利用apply等函数，分别读取矩阵中大于零的元素所在的行，列？
比如记录列数：
right <-as.vector( unlist(apply(a,1, function(i) as.numeric(colnames(a)[which(i>0)]))))
那么行数怎么做，试了好久没成功，请大侠指点，谢谢！