Interactive Confusion Matrix

Interactive Confusion Matrix

fdPlotConfusionMatrix(x, class = "table table-bordered", digits = 3)

Arguments

x

confusion matrix with row and column names representing classes. It is expected that the rownames represent actual classes while column names represent the predicted classes

class

html class to style the confusion matrix table

digits

number of digits to display in the tooltip

Examples

library(flightdeck)
library(rpart)
mod <- rpart(Species ~ ., data = iris)
outcome <- as.character(attr(mod, 'ylevels')[mod$y])
pred <- predict(mod, type = "class")

# Example 1: Table
ctable <- table(outcome, pred)

if (interactive()){
  fdRowBox(width = 6,
    fdPlotConfusionMatrix(ctable),
    title = 'Confusion Matrix',
    footer = paste(
      'Numbers in parantheses indicate % of observations',
      'correctly classified. Hover for more details'
    )
  ) %>%
  fdPreview(wrap = 'none')
}

# Example 2: Matrix
cmat2 <- matrix(data = c(63, 3, 4, 33), nrow = 2, ncol = 2,
  dimnames = list(
    c('Actual Positive', 'Actual Negative'),
    c('Predicted Positive', 'Predicted Negative')
  )
)

fdPlotConfusionMatrix(cmat2) %>%
  fdPreview