40 lines
1.6 KiB
R
40 lines
1.6 KiB
R
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/analysis/code")
|
|
|
|
library(bupaverse)
|
|
|
|
dat0 <- read.table("results/haum/event_logfiles_2024-01-18_09-58-52.csv",
|
|
colClasses = c("character", "character", "POSIXct",
|
|
"POSIXct", "character", "integer",
|
|
"numeric", "character", "character",
|
|
rep("numeric", 3), "character",
|
|
"character", rep("numeric", 11),
|
|
"character", "character"),
|
|
sep = ";", header = TRUE)
|
|
dat0$event <- factor(dat0$event, levels = c("move", "flipCard", "openTopic",
|
|
"openPopup"))
|
|
|
|
# Select data pre Corona
|
|
dat <- dat0[as.Date(dat0$date.start) < "2020-03-13", ]
|
|
dat <- dat[dat$path != 106098, ]
|
|
|
|
dat$start <- dat$date.start
|
|
dat$complete <- dat$date.stop
|
|
|
|
alog <- activitylog(dat,
|
|
case_id = "path",
|
|
activity_id = "event",
|
|
resource_id = "item",
|
|
timestamps = c("start", "complete"))
|
|
|
|
dfg_complete <- process_map(alog,
|
|
type_nodes = frequency("absolute", color_scale = "Greys"),
|
|
sec_nodes = frequency("relative"),
|
|
type_edges = frequency("absolute", color_edges = "#FF6900"),
|
|
sec_edges = frequency("relative"),
|
|
#rankdir = "TB",
|
|
render = FALSE)
|
|
export_map(dfg_complete,
|
|
file_name = "results/processmaps/dfg_complete_R.png",
|
|
file_type = "png")
|
|
|