匹配不同矩阵之间的行

Question

我有一个矩阵中的一行，我想将其中的 2 和 3 个条目（按该顺序以及在 1 和 6 以下的情​​况下）与另一个矩阵匹配，以查看它是否存在于其中以及它是哪一行在这个矩阵中。

i1
1      1      6      1      2

应该与

比较

      [,1] [,2]     [,3]      [,4]
[1,]    3    5 4.227097 0.0183694
[2,]    1    6 4.225503 0.0605286
[3,]    2    9 4.208603 0.1786530

输出应该是下矩阵中的索引（表示在矩阵的第2行找到了1 6）

Answer 1

据我所知，没有一个命令可以同时匹配 2 个（或更多）值，因此您需要创建一个辅助变量来执行此操作。像这样的：

i1 <- c(1,    1,      6,      1,      2)

data <- as.matrix(read.table(text='3    5 4.227097 0.0183694
1    6 4.225503 0.0605286
2    9 4.208603 0.1786530', header=F))

paste(i1[2:3], collapse='_') # What you are looking.
paste(data[,1], data[,2], sep='_') # Where you are looking.


which(paste(data[,1], data[,2], sep='_') %in% paste(i1[2:3], collapse='_')) # The index