我有两个矩阵,我需要查找一个矩阵中的两列集是否出现在另一个矩阵中,而不考虑顺序(A:B = B:A)。
作为示例,这里有两个矩阵:
X <- matrix(c(23, 33, 4, 21, 5, 27, 47, 39, 37, 8, 30, 42, 59, 63, 53, 50, 49, 65, 53, 59), nrow = 10, ncol = 2, byrow = F)
Y <- matrix(c(30, 21, 53, 23, 63, 37), nrow = 3, ncol = 2, byrow = F)
> X
[,1] [,2]
[1,] 23 30
[2,] 33 42
[3,] 4 59
[4,] 21 63
[5,] 5 53
[6,] 27 50
[7,] 47 49
[8,] 39 65
[9,] 37 53
[10,] 8 59
> Y
[,1] [,2]
[1,] 30 23
[2,] 21 63
[3,] 53 37
例如,我希望能够找到 X 中的 Y[1,],无论它是 {30,23} 还是 {23,30}。
我努力了merge
, intersect
, and setdiff
,但这些都不会返回所有可能的匹配项。
> merge(data.frame(X),data.frame(Y))
X1 X2
1 21 63
> merge(data.frame(Y),data.frame(X))
X1 X2
1 21 63
> intersect(data.frame(X),data.frame(Y))
X1 X2
1 21 63
> intersect(data.frame(Y),data.frame(X))
X1 X2
1 21 63
> setdiff(data.frame(Y),data.frame(X))
X1 X2
1 30 23
2 53 37
> setdiff(data.frame(X),data.frame(Y))
X1 X2
1 23 30
2 33 42
3 4 59
4 5 53
5 27 50
6 47 49
7 39 65
8 37 53
9 8 59
最终目标是识别 X 中包含匹配项(有或没有内容)的行。所以,用伪代码来说,它将是:
对于 X 中的每个 Y[i,]
返回行号 X