R语言对矩阵所有元素进行排名，记住元素原来的行列

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R语言对矩阵所有元素进行降序排名，记住元素原来的行和列名，重新存入一个N*3的矩阵，第一列为排名后的元素值，第二列为元素在原矩阵的行名，第三列为元素在原矩阵的列名，请大牛指教，谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 元素

自愿购买，等价交换

千5320 发表于 2016-8-10 01:09
自愿购买，等价交换

不需要，谢谢。

#m is column, n is row
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 <- order(ma, decreasing = T)%%n
col3 <- ceiling(order(ma, decreasing = T)/n)
result <- data.frame(col1, col2, col3)

czrdiao 发表于 2016-8-14 13:14
#m is column, n is row
m = 4
n = 5

太厉害了，你的回答完美地解决我的问题。非常感谢！

czrdiao 发表于 2016-8-14 13:14
#m is column, n is row
m = 4
n = 5

好像原矩阵最后一行的行名在排序后的矩阵里面显示为0，有点小错误。。。。

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)