计算所有具有匹配行数的列的总和

Question

我有一个df，其中有几列的值为0或1.类似于：

a b c d e
1 0 0 0 0
0 1 0 1 0
0 1 0 1 0
1 0 1 0 1

如果列在同一行中有1，我想创建一个5乘5的矩阵，显示总计数。我只想考虑1＆＃39; s，如果是对角线，它会自动反映该列中的总行数为1.输出类似于：

  a b c d e
a 2 0 1 0 1
b 0 2 0 2 0
c 1 0 1 0 1 
d 0 2 0 2 0
e 1 0 1 0 1

感谢。

的Sudhir

Answer 1

转换为矩阵并采用跨产品：

m <- as.matrix(d)
crossprod(m,m)