如何在R中創建錯誤（即混淆）矩陣？

Question

如何在R中生成錯誤（即混淆）矩陣？

讓我們從一些示例數據開始：

a = c(1,2,3,4,5,1,2,2,3,4,2,1,4,5,5,1)
b = c(1,2,3,4,5,1,2,2,3,4,2,2,4,5,2,1)

這是我打算根據樣本數據實現的目標：

     [,1] [,2] [,3] [,4] [,5] [total]
 [,1]  3    1                    4
 [,2]       4                    4
 [,3]            2               2
 [,4]                3           3
 [,5]       1              3     4
[total]3    6    2   3     3     16   

我可以使用table()創建一個簡單的交叉制表矩陣，但是我似乎無法獲得行，列和總計。

> table(a,b)
   b
a   1 2 3 4 5
  1 3 1 0 0 0
  2 0 4 0 0 0
  3 0 0 2 0 0
  4 0 0 0 3 0
  5 0 1 0 0 2

Answer 1

要獲取行，列和總計，只需使用addmargins ：

> addmargins(table(a, b))
     b
a      1  2  3  4  5 Sum
  1    3  1  0  0  0   4
  2    0  4  0  0  0   4
  3    0  0  2  0  0   2
  4    0  0  0  3  0   3
  5    0  1  0  0  2   3
  Sum  3  6  2  3  2  16