Data Exploration

library(dplyr)
library(bupaR)
library(Rcpp)
library(processanimateR)


setwd("C:/Users/tyler/Desktop/R/Case Study Data")

df_final_web_data_pt_1 <- read.delim("df_final_web_data_pt_1.txt", header=TRUE, sep=",")
#data for 5/1 - 6/20
df_final_web_data_pt_2 <- read.delim("df_final_web_data_pt_2.txt", header=TRUE, sep=",")

df_final_web_data_full <- rbind(df_final_web_data_pt_1, df_final_web_data_pt_2)
df_final_demo <- read.delim("df_final_demo.txt", header=TRUE, sep=",")

df_final_web_data_full <- df_final_web_data_full%>%
  mutate(date = ymd_hms(date_time),
         act_inst = 1:n())

client_measure_df <- left_join(df_final_web_data_full, df_final_demo, by = "client_id")%>%
dplyr::filter(date > as.Date("2017-03-27"))%>%
  arrange(date)


eventlog <-  client_measure_df %>% 
  mutate(resource_id=NA)%>%
 slice(1:10000)%>%
  eventlog(
    case_id = "client_id",
    activity_id = "process_step",
    activity_instance_id = "act_inst",
    lifecycle_id = "visit_id",
    timestamp = "date",
    resource_id = "resource_id"
  ) 
  
  animate_process(eventlog, width = 800,
height = 600,
)