Modely náhodného lesa

Redukce dimenzionality v R

Matt Pickard

Owner, Pickard Predictives, LLC

Náhodný les

Ensemble model
- přístup „moudrosti davu"
Agreguje predikce mnoha náhodných stromů
Náhodné nekorelované stromy snižují chybu
Zabraňuje přetrénování
Přesný
Provádí výběr příznaků

Diagram znázorňující ensemble model složený z několika rozhodovacích stromů a způsob, jakým jsou jejich hlasy sloučeny do jednoho výsledného hlasu.

Náhodný les

Diagram ukazující, jak jsou vytvářeny různé podstromy pomocí různých podmnožin příznaků.

Trénování náhodného lesa

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))

Vyhodnocení modelu

f_meas(predict_df, credit_score, .pred_class)

0.6895

Důležitost proměnných

library(vip)

rf_fit %>% vip()

Sloupcový graf důležitosti proměnných.

Maska příznaků

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"

Redukce dat

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

Výkonnost

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-skóre neredukovaného modelu:

0.6895

Pojďme si procvičit!

Redukce dimenzionality v R