如何阻止Boruta算法将因变量纳入输出？R Shiny应用问题

你遇到的因变量出现在Boruta结果里的问题，核心原因是传给Boruta的x参数包含了因变量列。当前代码中x = X是整个数据集，而y是X里的因变量列，Boruta会把x里的所有列都当作特征进行评估，自然就会把因变量也包含进去，这和as.factor()没有关系。

1. 从数据集中移除因变量列 #

在调用Boruta之前，先提取纯特征数据集——也就是去掉选中的因变量列后的数据集。修改observeEvent(input$boruta, {...})里的代码：

observeEvent(input$boruta, {
  # 获取选中的数据集
  X = eval(parse(text=paste(input$For_Boruta,"()")))
  # 提取因变量列名
  outcome_col <- Out_var1()
  # 生成仅含特征的数据集：移除因变量列
  X_features <- X[, !names(X) %in% outcome_col, drop = FALSE]
  
  set.seed(206)
  # 调用Boruta时使用纯特征数据集作为x
  boruta_output <- Boruta(x = X_features,
                          y = as.factor(X[[outcome_col]]), doTrace=2)
  output$BorutaTbl <- renderTable(attStats(boruta_output),rownames = TRUE)
  output$BorutaPlot <- renderPlot({plot(boruta_output)})
})

• drop = FALSE的作用是确保即使只剩一列特征，也保持数据框格式，避免Boruta报错。

2. 可选优化：限制仅能选择单个因变量 #

当前DT的列选择允许多选，可能会导致后续出错，建议在renderDT里修改选择模式为单选：

output$File1_table <- renderDT(
  Table1(), options = list(pageLength = 10, lengthChange = FALSE, searching = FALSE),
  selection = list(target = 'column', mode = 'single') # 限制单选列
)

修改后再运行，Boruta的结果里就只会包含特征列，不会出现你选中的因变量（比如Species）了。

内容的提问来源于stack exchange，提问作者Violet