2014-10-17 6 views
0

Я использую функцию table, чтобы отображать результаты с матрицей путаницы классификации kNN/SVM.Построение таблицы в R

Пример:

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") 
(...) 

Как я могу генерировать одну barplot с несколькими матрицами путаницы (например, сгруппированных barplot) в R, как это?

 yWohn1 xxxx 
kNN yFlur1 xxxxxxxxxxxxxxx 
     yBad1 xxxxxxxx 

     yWohn1 x 
SVMl yFlur1 xxxxxxxxxxxx 
     yBad1 xxxxxxxxxxx 

(...) 

ответ

2

Прежде всего, необходимо назначить таблицы некоторой переменной:

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

Тогда вы можете комбинировать их с cbind:

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

И затем использовать barplot:

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

И смотрите ?barplot для получения дополнительной информации.

+0

Отлично, я просто добавил недостающую легенду: 'barplot (allTables, рядом = TRUE, legend.text = TRUE, names = c (" SVN "," kNN "))' – larkee

Смежные вопросы