HR 分析：以 R 預測員工流失
Anurag Gupta
People Analytics Practitioner
# 載入 tidypredict library(tidypredict) # 計算離職機率 emp_risk <- emp_final %>% filter(status == "Active") %>% # 使用最終模型加入預測 tidypredict_to_column(final_log)
# 檢視員工的離職機率 emp_risk %>% select(emp_id, fit) %>% slice_max(n = 5, fit)
# A tibble: 5 x 2 emp_id fit <chr> <dbl> E202 0.9694593 E6475 0.9814252 E6574 0.9983320 E7105 0.9193704 E9878 0.9371767
# 建立離職風險分群 emp_risk_bucket <- emp_risk %>% mutate(risk_bucket = cut(fit, breaks = c(0, 0.5, 0.6, 0.8, 1), labels = c("no-risk", "low-risk", "medium-risk", "high-risk")))
Preparing Video For Download...
