通过比较nxm矩阵和nxc矩阵（其中c <= m）来创建真/假矩阵

Question

我在R中有以下问题：

我有一个名为“ H”的矩阵，它通过以下方式获得：

 v<-t(combn(x, 1))
 v<-cbind(v,matrix(0,nrow(v),2))
 y<-t(combn(x, 2))
 y<-cbind(y,matrix(0,nrow(y),1))
 z<-t(combn(x, 3)) 

 H<-rbind(v,y,z)  

这将是标题中的“ nxc”矩阵：

       [,1] [,2] [,3]
 [1,]    1    0    0
 [2,]    2    0    0
 [3,]    3    0    0
 [4,]    4    0    0
 [5,]    5    0    0
 [6,]    6    0    0
 [7,]    7    0    0
 [8,]    8    0    0
 [9,]    9    0    0
[10,]   10    0    0
[11,]    1    2    0
[12,]    1    3    0
[13,]    1    4    0

接下来，我有一个“ nxm”矩阵，该矩阵是通过将第一列（在此示例中为1:10的序列）重复n次（基于H的行）而创建的。

x = c(1:10)
c<-as.data.frame(t(x))
a<-as.data.frame(c[rep(seq_len(nrow(c)), each=nrow(H)),])

这将给：

      V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
1      1  2  3  4  5  6  7  8  9  10
1.1    1  2  3  4  5  6  7  8  9  10
1.2    1  2  3  4  5  6  7  8  9  10
1.3    1  2  3  4  5  6  7  8  9  10
1.4    1  2  3  4  5  6  7  8  9  10
1.5    1  2  3  4  5  6  7  8  9  10
1.6    1  2  3  4  5  6  7  8  9  10

现在，我想要得到的是一个数据帧，该数据帧将这两个数据进行比较，并且当“ H”中的数字位于“ a”和“ FALSE”的列之一中时，显示“ TRUE”。 像这样：

      V1     V2     V3     V4     V5     V6     V7     V8     V9     V10
1     TRUE   FALSE  FALSE  FALSE  FALSE  FALSE  FALSE  FALSE  FALSE  FALSE
1.1   FALSE  TRUE   FALSE  FALSE  FALSE  FALSE  FALSE  FALSE  FALSE  FALSE
.
.
.  
1.n   FALSE  FALSE  FALSE  FALSE  FALSE  FALSE  FALSE  TRUE   TRUE   TRUE

谢谢！

Answer 1

回来了：希望这会有所帮助：

t(mapply("%in%",data.frame(t(a)),data.frame(t(H))))

上面的代码中的行中的值进行比较a是在的行H并给出一个TRUE时的值a是在H 。 如果这不起作用，请告诉我

Answer 2

也许有帮助（b是所需的数据框）：

b <- data.frame()

for (j in 1:nrow(a)){
  common = intersect(H[j,],a[j,])
  for (i in a[j,])
  {
    if (i %in% common){
        b[j,i]<- T
    }
    else
    {
        b[j,i]<- F
    }
  }
}