r - 在 R 中绘制表格

Question

我正在使用该table函数显示具有 kNN/SVM 分类混淆矩阵的结果。

例子：

svmE1071 <- function(x,y,type) {
  library(e1071)

  (...)

  confTab <- table(pred=pred, true=y[,1])
  return(confTab)
}

> myKknn(y, yUnknown)

        unknown
  yWohn1       6
  yFlur1      18
  yBad1       12
> svmE1071(y, yUnknown, "linear")
        true
pred     unknown
  yWohn1       3
  yFlur1      25
  yBad1        8
> svmE1071(y, yUnknown, "polynomial")
        true
pred     unknown
  yWohn1       8
  yFlur1      20
  yBad1        8
> svmE1071(y, yUnknown, "radial")
(...)

如何像这样在 R 中生成一个具有多个混淆矩阵（如分组条形图）的条形图？

      yWohn1 xxxx
 kNN  yFlur1 xxxxxxxxxxxxxxx
      yBad1  xxxxxxxx

      yWohn1 x
 SVMl yFlur1 xxxxxxxxxxxx
      yBad1  xxxxxxxxxxx

 (...)

Answer 1

首先，您需要将表分配给一些变量：

table1 <- svm(...)
table2 <- svm(...)
...

然后你可以将它们与 cbind 结合起来：

allTables <- cbind(table1, table2, ...)

然后使用条形图：

barplot(allTables, beside=TRUE, names=c("SVN","kNN"))

并查看?barplot更多信息。