r - 如何在R中创建 "logical AND"列联表？

Question

这个问题已经有答案了:

Create a co-occurrence matrix from dummy-coded observations (2 个回答)

已关闭 2 年前。

我有一组数据，如下所示:

df <- data.frame(typeA = c(T,T,F,F,T,F,T,F), typeB = c(T,F,T,F,T,F,T,F), typeC = c(F,F,F,F,T,T,T,T))

我想输出一个看起来像这样的表格

|       | TypeA | TypeB | TypeC |  
|-------|-------|-------|-------|  
| TypeA | 4     | 3     | 2     |  
| TypeB | 3     | 4     | 2     |  
| TypeC | 2     | 2     | 4     |  

其中每个单元格是行和列均为 TRUE 的观测值的数量。

例如:第一行第二列显示有 3 个 obs，其中 TypeA == T && TypeB == T。

另外，这样的表格摘要的名称是什么？

Answer 1

sapply(df, function(x) sapply(df, function(y) sum(x * y)))
#OR
t(df) %*% as.matrix(df)
#      typeA typeB typeC
#typeA     4     3     2
#typeB     3     4     2
#typeC     2     2     4