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

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 x 5 矩阵来显示总计数。我只想考虑 1，如果是对角线，它会自动反映该列中的总行数为 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

谢谢。

苏迪尔

Answer 1

转换为矩阵并取叉积：

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