Модели случайного леса

Снижение размерности в R

Matt Pickard

Owner, Pickard Predictives, LLC

Random Forest

Ансамблевая модель
- подход «коллективного разума»
Объединяет предсказания множества случайных деревьев
Случайные некоррелированные деревья снижают ошибку
Предотвращает переобучение
Высокая точность
Выполняет отбор признаков

Диаграмма ансамблевой модели из нескольких деревьев решений с объединением их голосов в один итоговый.

Random Forest

Диаграмма, показывающая, как разные поддеревья создаются с использованием разных подмножеств признаков.

Обучение Random Forest

library(tidymodels)


rf <- rand_forest(mode = "classification",  trees = 200) %>% 
  set_engine("ranger", importance = "impurity")


rf_fit <- rf %>% 
  fit(credit_score ~ ., data = train)


predict_df <- test %>%  
  bind_cols(predict = predict(rf_fit, test))

Оценка модели

f_meas(predict_df, credit_score, .pred_class)

0.6895

Важность переменных

library(vip)

rf_fit %>% vip()

Столбчатая диаграмма важности переменных.

Маска признаков

top_features <- rf_fit %>% 
  vi(rank = TRUE) %>% 
  filter(Importance <= 10) %>% 
  pull(Variable)

top_features

 [1] "outstanding_debt"        "interest_rate"          
 [3] "delay_from_due_date"     "changed_credit_limit"   
 [5] "credit_history_months"   "num_credit_card"        
 [7] "monthly_balance"         "num_of_delayed_payment" 
 [9] "annual_income"           "amount_invested_monthly"

Сокращение данных

train_reduced <- train[top_features]
test_reduced <- test[top_features]

Производительность

rf_fit <- rf %>% 
  fit(credit_score ~ ., data = train_reduced) 

predict_reduced_df <- test_reduced %>%  
  bind_cols(predict = predict(rf_fit, test_reduced)) 

f_meas(predict_reduced_df, credit_score, .pred_class)

0.6738

F-мера модели без сокращения:

0.6895

Давайте потренируемся!

Снижение размерности в R