r - 如何求R中表格的前导对角线之和

Question

我使用 R 中的 table() 命令创建了一个表:

   y
x    0  1  2  3  4  5  6  7  8  9
  0 23  0  0  0  0  1  0  0  0  0
  1  0 23  1  0  1  0  1  2  0  2
  2  1  1 28  0  0  0  1  0  2  2
  3  0  1  0 24  0  1  0  0  0  1
  4  1  1  0  0 34  0  3  0  0  0
  5  0  0  0  0  0 33  0  0  0  0
  6  0  0  0  0  0  2 32  0  0  0
  7  0  1  0  1  0  0  0 36  0  1
  8  1  1  1  1  0  0  0  1 20  1
  9  1  3  0  1  0  1  0  1  0 24

此表显示了分类的结果，我想对其前导对角线求和(具有大数字的对角线 - 如 23、23、28 等)。在 R 中是否有一种明智/简单的方法来做到这一点？

Answer 1

sum(diag(tbl)) 怎么样，其中 tbl 是您的表？