我的图形无法很好地打印出来,它看起来像这样:
我需要用我的代码(在下面找到)进行更新吗?
library(lime)
explainer <- lime(trainScaled, xgb.fit, bin_continuous = TRUE, quantile_bins = FALSE)
explanation <- explain(testScaled, explainer, n_labels = 1, n_features = 4)
explanation[,]
plot_features(explanation, ncol = 1)