xgb.fi() 函数检测交互并使用 xgboost 返回异常答案

【问题标题】：xgb.fi() function detecting interactions and working with xgboost returns exceptionxgb.fi() 函数检测交互并使用 xgboost 返回异常
【发布时间】：2018-04-06 05:38:06
【问题描述】：

xgb.fi() 是一个新函数，它与 xgboost 一起使用来检测变量之间的交互。

文档可以在这里找到：https://rdrr.io/github/RSimran/RXGBfi/man/xgb.fi.html

这是一个重要的主题，我尝试测试该功能，但遇到了异常。

请参阅下面的可重现示例：

library(data.table)
library(xgboost)
library(RXGBfi)


data(mtcars)

X = as.matrix(mtcars[, -9])
Y = mtcars$am

dtrain = xgb.DMatrix(data = X, label = Y)

model = xgb.train(data = dtrain, 

                  eval = "auc",

                  verbose =0,  maximize = TRUE, 

                  params = list(objective = "binary:logistic",

                                eta = 0.1,

                                max_depth = 6,

                                subsample = 0.8,

                                lambda = 0.1 ), 

                  nrounds = 10)



features = names(mtcars)[-9]


xgb.fi(model = model, features = features)


Listening on http://127.0.0.1:7333
Warning: Error in :=: Check that is.data.table(DT) == TRUE. Otherwise, := and `:=`(...) are defined for use in j, once only and in particular ways. See help(":=").
Stack trace (innermost first):
    95: :=
    94: [.data.frame
    93: [.data.table
    92: [
    91: tableVars1
    90: base::rownames
    89: datatable
    88: eval
    87: eval
    86: %>%
    85: exprFunc
    84: widgetFunc
    83: func
    82: origRenderFunc
    81: renderFunc
    80: origRenderFunc
    79: output$tableVars1
     4: <Anonymous>
     3: do.call
     2: print.shiny.appobj
     1: <Promise>

【问题讨论】：

您找到解决方案了吗？

标签： r xgboost interaction

【解决方案1】：

当我测试你的代码时，我得到了和你一样的错误。所以我决定更深入地研究函数 xgb.fi()，我在这里复制源代码：https://github.com/RSimran/RXGBfi/blob/master/R/xgbfi.R 并逐行执行，以便识别我们在闪亮应用中看到的错误。

当我这样做时，它正确地工作......所以我执行了整个函数以重写函数 xgb.fi()（它出现在我的 Rstudio 环境中）并再次运行代码。这一次，闪亮的效果完美。

[your code, with the xgboost model]

xgb.fi <- function(model, xgbfi.loc = "C:/xgbfi", features = NULL, max.interaction.depth = 2, 
                   max.deepening = -1, max.trees = -1, top.k = 100, max.histograms = 10) {

  library(xgboost)
  xgbfi_exe <- paste0(xgbfi.loc, "/", "bin", "/", "XgbFeatureInteractions.exe")

  featureVector <- c()
  [...]
}

xgb.fi(model = model, features = features)

这样，第一个表“3 Variable Feature”只有一个错误，因为在您的示例中，模型没有创建与 3 个变量的交互。

【讨论】：