Updated analysis files for haum and 8o8m

This commit is contained in:
Nora Wickelmaier 2023-09-22 16:16:20 +02:00
parent 3dd13a6c6e
commit a130ee596d
6 changed files with 99 additions and 111 deletions

View File

@ -1,108 +0,0 @@
# TODO: This script is obsolete and needs to be updated!
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/code")
#source("functions.R")
devtools::load_all("../../../../software/mtt")
small <- TRUE
now <- Sys.time()
# Read data ##############################################################
cat("########## Reading in data... ##########", "\n")
if (small) {
dat0 <- read.table("../data/haum/rawdata_logfiles_small.csv", sep = ";",
header = TRUE)
} else {
dat0 <- read.table("../data/haum/rawdata_logfiles.csv", sep = ";",
header = TRUE)
}
dat0$date <- as.POSIXct(dat0$date)
dat0$glossar <- ifelse(dat0$artwork == "glossar", 1, 0)
# Remove irrelevant events
dat <- subset(dat0, !(dat0$event %in% c("Start Application",
"Show Application")))
save(dat, file = paste0("tmp/dat_", ifelse(small, "small_", "full_"),
format(now, "%Y-%m-%d_%H-%M-%S"), ".RData"))
# Add trace variable #####################################################
cat("########## Adding trace variable... ##########", "\n")
dat1 <- add_trace(dat)
save(dat1, file = paste("tmp/dat1", ifelse(small, "small_", "full_"),
format(now, "%Y-%m-%d_%H-%M-%S"), ".RData"))
# Close events
cat("########## Closing events... ##########", "\n")
c1 <- close_events(dat1, "move")
cat("## --> move events closed.", "\n")
c2 <- close_events(dat1, "flipCard")
cat("## --> flipCard events closed.", "\n")
c3 <- close_events(dat1, "openTopic")
cat("## --> openTopic events closed.", "\n")
c4 <- close_events(dat1, "openPopup")
cat("## --> openPopup events closed.", "\n")
dat2 <- rbind(c1, c2, c3, c4)
dat2 <- dat2[order(dat2$date.start, dat2$fileId.start), ]
# Remove durations when event spans more than one log file, since they are
# not interpretable
#dat2[which(dat2$fileId.start != dat2$fileId.stop), "duration"] <- NA
# Remove all events that do not have a `date.start`
dat2 <- dat2[!is.na(dat2$date.start), ]
rownames(dat2) <- NULL
save(dat2, file = paste("tmp/dat2", ifelse(small, "small_", "full_"),
format(now, "%Y-%m-%d_%H-%M-%S"), ".RData"))
# Add case variable ######################################################
cat("########## Adding case and eventId variables... ##########", "\n")
dat3 <- add_case(dat2)
# Add event ID ###########################################################
dat3$eventId <- seq_len(nrow(dat3))
dat3 <- dat3[, c("fileId.start", "fileId.stop", "eventId", "case",
"trace", "glossar", "event", "artwork",
"date.start", "date.stop", "timeMs.start",
"timeMs.stop", "duration", "topicNumber", "popup",
"x.start", "y.start", "x.stop", "y.stop",
"distance", "scale.start", "scale.stop",
"scaleSize", "rotation.start", "rotation.stop",
"rotationDegree")]
save(dat3, file = paste("tmp/dat3", ifelse(small, "small_", "full_"),
format(now, "%Y-%m-%d_%H-%M-%S"), ".RData"))
# Add trace for move events ##############################################
cat("\n########## Adding trace variable for move events... ##########", "\n")
dat4 <- add_trace_moves(dat3)
save(dat4, file = paste("tmp/dat4", ifelse(small, "small_", "full_"),
format(now, "%Y-%m-%d_%H-%M-%S"), ".RData"))
# Add topics: file names and topics ######################################
cat("########## Adding information about topics... ##########", "\n")
artworks <- unique(dat4$artwork)
# remove artworks without XML information
artworks <- artworks[!artworks %in% c("504", "505")]
topics <- extract_topics(artworks, pattern = paste0(artworks, ".xml"),
path = "../data/haum/ContentEyevisit/eyevisit_cards_light/")
dat5 <- add_topic(dat4, topics = topics)
save(dat5, file = paste("tmp/dat5", ifelse(small, "small_", "full_"),
format(now, "%Y-%m-%d_%H-%M-%S"), ".RData"))
# TODO: Replace artwork with informative strings
# Export data ############################################################
cat("########## Exporting data frame with event logs... ##########", "\n")
write.table(dat5, "../data/haum/event_logfiles.csv", sep = ";",
row.names = FALSE)

View File

@ -0,0 +1,22 @@
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/code")
#library(mtt)
devtools::load_all("../../../../software/mtt")
now <- format(Sys.time(), , "%Y-%m-%d_%H-%M-%S")
folders <- dir("../data/8o8m/LogFiles/")
#folders <- "Berlin"
# parse raw log files
datraw <- parse_logfiles(folders, path = "../data/8o8m/LogFiles/")
artworks <- unique(na.omit(datraw$artwork))
# convert to log events
datlogs <- create_eventlogs(datraw, xmlfiles = paste0(artworks, "_de.xml"),
xmlpath = "../data/8o8m/Content8o8m/")
# export data
write.table(datlogs, paste0("../data/8o8m/event_logfiles_", now, ".csv"),
sep = ";", row.names = FALSE)

View File

@ -0,0 +1,23 @@
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/code")
#library(mtt)
devtools::load_all("../../../../software/mtt")
now <- format(Sys.time(), , "%Y-%m-%d_%H-%M-%S")
path <- "../data/haum/LogFiles/"
folders <- dir(path)
# parse raw log files
datraw <- parse_logfiles(folders, path)
artworks <- unique(na.omit(datraw$artwork))
# convert to log events
datlogs <- create_eventlogs(datraw, xmlfiles = paste0(artworks, "_de.xml"),
xmlpath = "../data/haum/ContentEyevisit/eyevisit_cards_light/")
# export data
write.table(datlogs, paste0("../data/haum/event_logfiles_", now, ".csv"),
sep = ";", row.names = FALSE)

View File

@ -16,7 +16,7 @@
#' # Read data #' # Read data
dat <- read.table("../data/haum/event_logfiles.csv", sep = ";", header = TRUE) dat <- read.table("../data/haum/event_logfiles_small.csv", sep = ";", header = TRUE)
dat$date.start <- as.POSIXct(dat$date.start) dat$date.start <- as.POSIXct(dat$date.start)
dat$date.stop <- as.POSIXct(dat$date.stop) dat$date.stop <- as.POSIXct(dat$date.stop)
@ -24,7 +24,8 @@ dat$date.stop <- as.POSIXct(dat$date.stop)
library(bupaverse) library(bupaverse)
names(dat)[6:7] <- c("start", "complete") names(dat)[names(dat) %in% c("date.start", "date.stop")] <- c("start",
"complete")
table(table(dat$start)) table(table(dat$start))
# --> hmm... # --> hmm...

View File

@ -0,0 +1,50 @@
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/code")
# TODO: Write an Rmd file this way and render at the end? Then put it in a
# function, so everybody can do it???
devtools::load_all("../../../../software/mtt")
fname <- "../overview_artworks_8o8m.tex"
if (file.exists(fname)) file.remove(fname)
path <- "C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/data/8o8m/Content8o8m"
artworks <- dir(path = path)
dat <- extract_artworks(artworks, file = paste0(artworks, "_de.xml"), path = path)
fout <- file(fname, "a") # open in append mode
writeLines("\\documentclass[a4paper,12pt]{article}", fout)
writeLines("\\usepackage{graphicx}", fout)
writeLines("\\usepackage[margin = 2cm]{geometry}", fout)
writeLines("\\author{Nora Wickelmaier}", fout)
writeLines("\\title{Overview of Artworks from 8 Objects 8 Museums (8o8m)}", fout)
writeLines("\\date{\\today}", fout)
writeLines("\\begin{document}", fout)
writeLines("\\maketitle", fout)
#writeLines("\\newpage", fout)
for (artwork in dat$artwork) {
writeLines(paste0("\\section*{Artwork Number ", artwork, "}"), fout)
writeLines("", fout)
writeLines("\\noindent", fout)
writeLines(paste0("Artist: ", dat[dat$artwork == artwork, "artist"]), fout)
writeLines("", fout)
writeLines("\\noindent", fout)
writeLines(paste0("Title: ", dat[dat$artwork == artwork, "title"]), fout)
writeLines("", fout)
writeLines("\\begin{center}", fout)
art_path <- paste(path, artwork, artwork, sep = "/")
writeLines(paste0("\\includegraphics[width = 12cm]{", art_path, "}"), fout)
writeLines("\\end{center}", fout)
writeLines("", fout)
writeLines("\\noindent", fout)
writeLines(paste0("Info: ", dat[dat$artwork == artwork, "misc"]), fout)
writeLines("\\newpage", fout)
}
writeLines("\\end{document}", fout)
close(fout)

View File

@ -9,7 +9,7 @@ path <- "C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesi
artworks <- dir(path = path) artworks <- dir(path = path)
artworks <- artworks[artworks != "glossar"] artworks <- artworks[artworks != "glossar"]
dat <- extract_artworks(artworks, path = path) dat <- extract_artworks(artworks, files = paste0(artworks, ".xml"), path = path)
fout <- file(fname, "a") # open in append mode fout <- file(fname, "a") # open in append mode