将插入符号的confusionMatrix应用于由data.frames组成的列表，从而导致多个混淆矩阵

Question

我有一个要通过插入符号的confusionMatrix函数运行的data.frame列表，从而产生了一个混淆矩阵列表，每个data.frame都有一个混淆矩阵。

每个data.frame具有14个变量，最后两个变量包含参考数据（变量13）和预测数据（变量14）。

以下示例：

d1 <- data.frame(y1 = c(1,2,3,4,5,5,5,5,5), y2 = c(1,1,1,2,2,2,3,3,3), y3 = c(1,1,2,2,2,2,3,3,1))
d2 <- data.frame(y1 = c(3,2,1,4,5,6,7,5,4), y2 = c(1,1,1,1,2,2,2,3,3), y3 = c(1,2,1,1,2,3,3,3,3))
my.list <- list(d1, d2)

CM <- lapply(my.list, function(x) confusionMatrix(data = x[,3],
                            reference = x[,2],
                            positive = 'yes'))

Answer 1

这仅提取混淆矩阵并将其放入CM列表！

CM <- lapply(my.list, function(x) confusionMatrix(data = x[,3],
                                              reference = x[,2],
                                              positive = 'yes')$table)
CM