如何比较一个矩阵每行是不是另一个矩阵每行的子集？

如果把a <- array(1:24, c(2,3,4))
比作一个长方体
那么此时是dim=(2,3,4)
，，1
。。。
，，2
。。。
，，3
。。。
，，4
如果把这个长方体，翻个个头,并没有改变 xyz的定位
比如dim=c(3,4,2)
，，1
。。。
，，2
。。。
此时又如何来实现这个转换呢？如果能实现了话，就能很方便解决数据提取的问题了a[,,1]

知道怎么转变了， 呵呵，那个长方体真好理解
> a <- array(1:24, dim=c(2,3,4))
> a
, , 1

     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

, , 2

     [,1] [,2] [,3]
[1,]    7    9   11
[2,]    8   10   12

, , 3

     [,1] [,2] [,3]
[1,]   13   15   17
[2,]   14   16   18

, , 4

     [,1] [,2] [,3]
[1,]   19   21   23
[2,]   20   22   24

如果这个长方体的空间结构标定不变，要转变为 dim=c(3,4,2)

apply(a,c(3,1),function(x)x[])
, , 1     
        [,1] [,2] [,3] [,4]
[1,]    1    7   13   19
[2,]    3    9   15   21
[3,]    5   11   17   23
, , 2   
        [,1] [,2] [,3] [,4]
[1,]    2    8   14   20
[2,]    4   10   16   22
[3,]    6   12   18   24
这样就很方便 数据的提取了。
或者
apply(a,1,function(x)x[])#简单的矩阵

。。。。c(3,1)  c(1,2),c(2,3) ...还是有点难理解空间结构！

为了你这个题， 我至少关注了4个夜晚。尝试出怎么不用循环来做着个题了。呵呵
先谢谢qoiqpwqr 兄——我R导师  的指导。


A=read.table(text="
1 2
3 4
5 6
4 6
",header=F)
B=read.table(text="
2 4 5 6
3 2 4 6
             ",header=F)
#查看A的行在B行中，是否包含
#AB的行为B的行，AB的列为A的行


AB <- apply(A,1,function(x){
  apply(B,1,function(i)(all(x%in%i)))
}
);AB  
apply(AB,2,sum) #向量的方式， 0不包含， >0表示包含，数值表示包含的个数

可以是可以的， 只是不知道比你的循环效率提高多少

A <- matrix(1:6, ncol=2, byrow=T)
B <- matrix(c(1,3,4,2,5,4,6,6), nrow=2)

t(apply(A, 1, function(x) apply(B, 1, function(y) all(x %in%y ))))