指標矩陣非排他性因素

Question

說我有包含的因素矢量的列表：可能是這樣的哪個

colors <- c("red", "green", "blue") 
f <- factor(colors, levels=colors) 
rgb <- sapply(sample(1:3, 5, replace=TRUE), function(n) sample(f, n)) 

：

> invisible(sapply(rgb, function(x) print(x, max.levels=0))) 
[1] blue green 
[1] red 
[1] blue red green 
[1] red blue green 
[1] blue 

我如何構建指標值的矩陣代表相同的信息：

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

Answer 1

我們可以使用table

t(sapply(rgb, table))