Data for Titanic survival

Let’s see an example for iBreakDown plots for survival probability of Titanic passengers. First, let’s see the data, we will find quite nice data from in the DALEX package (orginally stablelearner).

#>   gender age class    embarked       country  fare sibsp parch survived
#> 1   male  42   3rd Southampton United States  7.11     0     0       no
#> 2   male  13   3rd Southampton United States 20.05     0     2       no
#> 3   male  16   3rd Southampton United States 20.05     1     1       no
#> 4 female  39   3rd Southampton       England 20.05     1     1      yes
#> 5 female  16   3rd Southampton        Norway  7.13     0     0      yes
#> 6   male  25   3rd Southampton United States  7.13     0     0      yes

Model for Titanic survival

Ok, now it’s time to create a model. Let’s use the Random Forest model.

#> 
#> Call:
#>  randomForest(formula = survived == "yes" ~ gender + age + class +      embarked + fare + sibsp + parch, data = titanic) 
#>                Type of random forest: regression
#>                      Number of trees: 500
#> No. of variables tried at each split: 2
#> 
#>           Mean of squared residuals: 0.1426426
#>                     % Var explained: 34.92

Explainer for Titanic survival

The third step (it’s optional but useful) is to create a DALEX explainer for Random Forest model.

Break Down plot with D3

Let’s see Break Down for model predictions for 8 years old male from 1st class that embarked from port C.

Calculate variable attributions

library("iBreakDown")
rf_la <- local_attributions(explain_titanic_rf, new_passanger)
rf_la
#>                                          contribution
#> Random Forest v7: intercept                     0.324
#> Random Forest v7: age = 8                       0.200
#> Random Forest v7: class = 1st                   0.066
#> Random Forest v7: gender = male                -0.053
#> Random Forest v7: fare = 72                    -0.031
#> Random Forest v7: embarked = Southampton       -0.018
#> Random Forest v7: sibsp = 0                    -0.001
#> Random Forest v7: parch = 0                    -0.026
#> Random Forest v7: prediction                    0.461

Plot attributions with ggplot2

Plot attributions with D3

plotD3(rf_la)

Calculate uncertainty for variable attributions

Show only top features

plotD3(rf_la, max_features = 3)

Force OX axis to be from 0 to 1

plotD3(rf_la, max_features = 3, min_max = c(0,1))