r - 多类模型的准确率、精度和召回率

Question

如何从混淆矩阵中计算每个类的准确率、准确率和召回率？我正在使用嵌入式数据集 iris；混淆矩阵如下：

prediction   setosa versicolor virginica
setosa         29          0         0
versicolor      0         20         2
virginica       0          3        21

我使用 75 个条目作为训练集和其他用于测试：

iris.train <- c(sample(1:150, 75)) # have selected 75 randomly

Answer 1

在整个答案中，mat是您描述的混淆矩阵。

您可以使用以下方法计算和存储准确性：

(accuracy <- sum(diag(mat)) / sum(mat))
# [1] 0.9333333

每个类的精度（假设预测在行上，真实结果在列上）可以用以下公式计算：

(precision <- diag(mat) / rowSums(mat))
#     setosa versicolor  virginica 
#  1.0000000  0.9090909  0.8750000 

如果您想获取特定类的精度，您可以执行以下操作：

(precision.versicolor <- precision["versicolor"])
# versicolor 
#  0.9090909 

每个类的召回（再次假设预测在行上，真实结果在列上）可以用以下公式计算：

recall <- (diag(mat) / colSums(mat))
#     setosa versicolor  virginica 
#  1.0000000  0.8695652  0.9130435 

如果您想召回特定课程，您可以执行以下操作：

(recall.virginica <- recall["virginica"])
# virginica 
# 0.9130435 

相反，如果您将真实结果作为行，将预测结果作为列，那么您将翻转精度和召回定义。

数据：

(mat = as.matrix(read.table(text="  setosa versicolor virginica
 setosa         29          0         0
 versicolor      0         20         2
 virginica       0          3        21", header=T)))
#            setosa versicolor virginica
# setosa         29          0         0
# versicolor      0         20         2
# virginica       0          3        21