dtrain <- xgboost::xgb.DMatrix(
data.matrix(iris[, -1]),
label = iris[, 1], nthread = 1
)
fit <- xgboost::xgb.train(data = dtrain, nrounds = 10, nthread = 1)
x <- shapviz(fit, X_pred = dtrain, X = iris)
sv_dependence(x, "Petal.Length")
sv_dependence(x, "Petal.Length", color_var = "Species")
sv_dependence(x, "Petal.Length", color_var = NULL)
sv_dependence(x, c("Species", "Petal.Length"), share_y = TRUE)
sv_dependence(x, "Petal.Width", color_var = c("Species", "Petal.Length")) +
patchwork::plot_layout(ncol = 1)
# SHAP interaction values/main effects
x2 <- shapviz(fit, X_pred = dtrain, X = iris, interactions = TRUE)
sv_dependence(x2, "Petal.Length", interactions = TRUE)
sv_dependence(
x2, c("Petal.Length", "Species"),
color_var = NULL, interactions = TRUE
)
sv_dependence(
x2, "Petal.Length",
color_var = colnames(iris[-1]), interactions = TRUE,
share_y = TRUE
)
Run the code above in your browser using DataLab