丰富事件

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)

Passons à la pratique !

R 中的业务流程分析