anchu 发表于 2016-8-15 19:02 
好像原矩阵最后一行的行名在排序后的矩阵里面显示为0,有点小错误。。。。
m = 4
n = 5
N = m*n
a = sample(1:N, replace = F)
ma <- matrix(a, n, m)
col1 <- ma[order(ma, decreasing = T)]
col2 <- ifelse(order(ma, decreasing = T)%%n == 0,n,order(ma, decreasing = T)%%n)
col3 <- ceiling(order(ma, decreasing = T)/n)
result <- data.frame(col1, col2, col3)