イベントの強化

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)

練習しましょう！

R によるビジネスプロセス分析