逻辑上匹配不同大小的字符串的向量

Question

所以我有一些数据帧都由不同大小的多个字符串组成。第一个数据帧中包含所有字符串，所有后续数据帧都是由该原始帧的子集组成的数据帧。我希望形成类似于真/假表的东西来匹配子集化数据框中的字符串，并且我不确定如何去做。

 x <- c("A", "B", "C")
 y <- c("A", "C")
 z <- c("C")

 > final.data.frame 
     y   z
 A   1   0
 B   0   0
 C   1   1

谢谢！

Answer 1

我们可以做到

res <- sapply(list(y= y, z= z), function(u) as.integer(x %in% u))
row.names(res) <- x
res
#  y z
#A 1 0
#B 0 0
#C 1 1

Answer 2

t(sapply(x, function(a)
    data.frame(y = as.numeric(a %in% y), z = as.numeric(a %in% z))))
#  y z
#A 1 0
#B 0 0
#C 1 1