Phân loại với Random Forest

Machine Learning trong tidyverse

Dmitriy (Dima) Gorenshteyn

Lead Data Scientist, Memorial Sloan Kettering Cancer Center

ranger() cho phân loại

cv_tune <- cv_data %>%
  crossing(mtry = c(2, 4, 8, 16)) 

cv_models_rf <- cv_tune %>% 
  mutate(model = map2(train, mtry, ~ranger(formula = Attrition~., 
                                           data = .x, mtry = .y,
                                           num.trees = 100, seed = 42)))

1) Chuẩn bị lớp thực tế

nghỉ việc	lớp
Yes	TRUE
No	FALSE

validate$Attrition

No  No  No  No  No  Yes No  Yes ... No  No  No

validate_actual <- validate$Attrition == "Yes"
validate_actual

FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE ... FALSE FALSE FALSE

2) Chuẩn bị lớp dự đoán

P(nghỉ việc)	lớp
Yes	TRUE
No	FALSE

validate_classes <- predict(rf_model, rf_validate)$predictions
validate_classes

No  No  No  No  No  Yes No  No ... No  No  No

validate_predicted <- validate_classes == "Yes"
validate_predicted

FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE ... FALSE FALSE FALSE

Xây mô hình nghỉ việc tốt nhất

Machine Learning trong tidyverse