Enriching events

R ile İş Süreci Analitiği

Gert Janssenswillen

Creator of bupaR

Mutate new variables

log %>%
    group_by_case() %>%
    mutate(total_cost = sum(cost, na.rm = T)

Mutate new variables

log %>%
    group_by_case %>%
    mutate(total_cost = sum(cost, na.rm = T) %>%
    mutate(impact = case_when(cost <= 1000 ~ "Low",
                              cost <= 5000 ~ "Medium",
                              T ~ "High"))

Mutate new variables

log %>%
    group_by_case %>%
    mutate(refund_made = any(str_detect(activity, "Pay Claim")))

Adding process metrics

Adding information about a case to the original data

Its througput time
Its length
Its amount of rework
...

Adding information about activities

Its frequency
Its specialization by resources
...

Adding process metrics

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)

Let's practice!

R ile İş Süreci Analitiği