在第三个矩阵之后排序两个矩阵（使用 %in%）

Question

我有三个因子/矩阵（NFA、RX 和 LDC）。首先，我想对 NFA 中的每一行进行升序排序，并且 RX 应该以与 NFA 相同的方式排序。这行得通。但后来我想将因子 NFA 分成两组（G1 和 G2）。在第三因素 LDC 的方案之后，这两个组都应该是新的（单独的）排序。我的代码给了我一个错误的排序，但我不知道为什么。

数据

NFA<-matrix(c(4,9,5,3,1,7, 12,51,15,6,9,3, 9,5,1,11,3,8, 5,9,7,18,21,17),4,6,byrow=TRUE) RX<-matrix(c(1,3,7,1,5,4, 6,12,3,8,3,5, 4,4,5,34,8,2, 5,7,11,5,13,17),4,6,byrow=TRUE) LDC<-matrix(c(7,1,5,9,4,3, 12,51,6,3,9,15, 8,3,11,1,5,9, 9,5,7,18,17,21),4,6,byrow=TRUE) columns <- ncol(NFA)

第一次排序：

C<-t(apply(NFA, 1, order)) NFA.neu <- matrix(NFA[cbind(c(row(NFA)), c(C))], ,columns) RX.neu <- matrix( RX[cbind(c(row(NFA)), c(C))], ,columns)

按照 LDC 的方案对每个组进行排序

G1 <- 1:(columns/2); G2 <- (1+columns/2):columns for (i in 1:nrow(LDC)) {
nfa <- NFA.neu[i,]; ldc <- LDC[i,]
o1 <- order(ldc[nfa %in% ldc[G1]])
o2 <- order(ldc[nfa %in% ldc[G2]]) + columns/2
o<-c(o1, o2)
NFA.neu[i,]<- NFA.neu[i, o]
RX.neu[i,]<- RX.neu[i, o]
}
问题是在 group1 和 group2 中我的顺序错误。

正确的解决方案应该是这样的：

Solution<-matrix(c(1,4,3,7,5,9, 6,3,9,12,51,15, 3,1,5,8,11,9, 9,5,7,18,17,21),4,6,byrow=T)

也许有人对我有提示？我不知道我的错误在哪里。

提前谢谢你，

约旦

Answer 1

NFA.neu 中的第一行按升序排列： 矩阵(c(1,3,4,5,7,9),1,1)。
然后我想分成两组：
G1：1,3,4;
G2：5,7,9

现在，我有矩阵 LDC：7,1,5,9,4,3（它包含与NFA.neu)。
在 LDC 中，1 在 4 之前，然后是 3。所以我的新订单应该在 G1 中：1,4,3。

对于第 2 组：在 LDC 中，7 在 5 之前，然后是 9。我对第 2 组的新顺序应该是 7、5、9。 如果将 G1 和 G2 结合起来，则得到：1、4、3、7、5、9 第 2-4 行需要的方法相同。

我希望它更清楚一点，感谢您的努力和帮助，
约旦