将R`outer`与“%in%”运算符一起使用

如评论中所述 table match (由调用的函数 %in% )不打算成为列表(如果是,则强制为字符)。你应该使用 vapply

vapply(choices,function(y) x %in% y,logical(length(x)))
#      [,1]  [,2]
#[1,]  TRUE FALSE
#[2,] FALSE  TRUE

另一种接近你思路的方法是 expand.grid() 创建组合,然后 Map %in% 功能,即。

d1 <- expand.grid(x, choices)
matrix(mapply(`%in%`, d1$Var1, d1$Var2), nrow = length(x))
#or you can use Map(`%in%`, ...) in order to keep results in a list

或

d1 <- expand.grid(list(x), choices) 
mapply(%in%, d1$Var1, d1$Var2)

都是给予,,

      [,1]  [,2]
[1,]  TRUE FALSE
[2,] FALSE  TRUE