R 商業流程分析
Gert Janssenswillen
Creator of bupaR
log %>% group_by_case() %>% mutate(total_cost = sum(cost, na.rm = T)
log %>% group_by_case %>% mutate(total_cost = sum(cost, na.rm = T) %>% mutate(impact = case_when(cost <= 1000 ~ "Low", cost <= 5000 ~ "Medium", T ~ "High"))
log %>% group_by_case %>% mutate(refund_made = any(str_detect(activity, "Pay Claim")))
把案件資訊加回原始資料
加入活動相關資訊
log %>% throughput_time(level = "case", units = "days", append = TRUE)
log %>% throughput_time(level = "case", units = "days", append = TRUE) %>% mutate(on_time = processing_time_case <= 7)
Preparing Video For Download...
