[英]how to reorder the contingency table to form a confusion matrix in R
在聚类算法的应用方面,我得到了实际 class 和预测 class 的每个组合的计数列联表后,例如,
1 2 3
A 2 3 15
B 20 1 4
C 0 32 1
我怎么能写一个 function 来获得通过改变列的顺序来最大化对角线的混淆矩阵? 谢谢!
1 2 3
A 15 2 3
B 4 20 1
C 1 0 32
我们可以使用max.col
来获取每行最大值的列索引,并使用它来重新排列列
m2 <- m1[,max.col(m1, 'first')]
colnames(m2) <- seq_len(ncol(m2))
m2
# 1 2 3
#A 15 2 3
#B 4 20 1
#C 1 0 32
m1 <- structure(c(2L, 20L, 0L, 3L, 1L, 32L, 15L, 4L, 1L), .Dim = c(3L,
3L), .Dimnames = list(c("A", "B", "C"), c("1", "2", "3")))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.