R矩阵排序 - 经管之家

2134

收藏 2017-08-31

例如我有个矩阵A
A=(1，3，
   2，3，
   4， 5)

现在打乱A的行的顺序
B=(2，3
   4， 5，
   1， 3)
如何找出B的矩阵的每一行在原来A矩阵的顺序，结果应该是(2,3,1)即原来的第一行在A矩阵中是第2行所以第一个元素是2，依次类推。

扫码加我拉你入群

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

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

全部回复

cheetahfly

2017-8-31 16:23:24

复制代码

扫码加我拉你入群

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

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

子衿1219

2017-8-31 17:09:42

cheetahfly 发表于 2017-8-31 16:23

谢谢，亲测之后，举了一个特殊的例子，觉得不行呢。比方说，
a <- matrix(c(1:16),4,4)
A <- which(upper.tri(a),arr.ind = TRUE)
b <- c(10,5,9, 13, 14,15)
G1 <- b %% ncol(a)
G2 <- floor(b / ncol(a)) + 1
B <- interactionOrder <- cbind(G1,G2)

colnames(A) <- NULL
colnames(B) <- NULL

apply(apply(B, 1, function(y) {apply(A, 1, function(x) identical(x, y))}), 2, which)
会报错。

扫码加我拉你入群

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

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

cheetahfly

2017-8-31 17:42:53

子衿1219 发表于 2017-8-31 17:09
谢谢，亲测之后，举了一个特殊的例子，觉得不行呢。比方说，
a

问题出在identical()太严格了

复制代码

扫码加我拉你入群

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

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

子衿1219

2017-8-31 17:49:21

cheetahfly 发表于 2017-8-31 17:42
问题出在identical()太严格了

非常感谢。可以了~~~

扫码加我拉你入群

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

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

子衿1219

2017-8-31 18:07:05

cheetahfly 发表于 2017-8-31 17:42
问题出在identical()太严格了

刚又把这个程序用在大矩阵中比方说，5000*2,还是会显示跟刚才一样的报错。。

扫码加我拉你入群

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

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

点击查看更多内容…

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群