0

関数を使用して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 で複数の混同行列 (グループ化されたバープロットなど) を使用して 1 つのバープロットを生成するにはどうすればよいですか?

      yWohn1 xxxx
 kNN  yFlur1 xxxxxxxxxxxxxxx
      yBad1  xxxxxxxx

      yWohn1 x
 SVMl yFlur1 xxxxxxxxxxxx
      yBad1  xxxxxxxxxxx

 (...)
4

1 に答える 1

2

まず、テーブルをいくつかの変数に割り当てる必要があります。

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

次に、それらを cbind と組み合わせることができます。

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

そして、barplot を使用します。

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

詳細については、を参照?barplotしてください。

于 2014-10-17T21:02:27.473 に答える