nwickelmaier/mtt_haum
nwickelmaier/mtt_haum
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Moved code for cases per day plot to thesis folder

Browse Source
This commit is contained in:
Nora Wickelmaier 2024-03-28 18:28:18 +01:00
parent 07a64d8c59
commit e40ed45848
1 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
code/02_descriptives.R
View File

@ -15,7 +15,6 @@
# results/figures/duration.pdf # results/figures/duration.pdf
# results/figures/heatmap_start.pdf # results/figures/heatmap_start.pdf
# results/figures/heatmap_stop.pdf # results/figures/heatmap_stop.pdf
# results/figures/cases_per_day.pdf
# results/figures/timeMs.pdf # results/figures/timeMs.pdf
# results/figures/xycoord.pdf # results/figures/xycoord.pdf
# results/figures/event-dist.pdf # results/figures/event-dist.pdf
@ -28,16 +27,10 @@
# results/figures/bp_corona.pdf # results/figures/bp_corona.pdf
# results/figures/traceexplore_case-artwork_often080.pdf # results/figures/traceexplore_case-artwork_often080.pdf
# #
# last mod: 2024-03-22 # last mod: 2024-03-28
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/analysis/code") # setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/analysis/code")
# Overall Research Question: How do museum visitors interact with the
# artworks presented on the MTT?
# Distribution of bursts
# Can this be visualized in a nice way?
#--------------- (1) Read data --------------- #--------------- (1) Read data ---------------
datlogs <- read.table("results/event_logfiles_2024-02-21_16-07-33.csv", datlogs <- read.table("results/event_logfiles_2024-02-21_16-07-33.csv",
@ -247,15 +240,7 @@ plot(datpath, type = "h")
plot(path ~ date, datpath, type = "h", col = "#3CB4DC") plot(path ~ date, datpath, type = "h", col = "#3CB4DC")
points(case ~ date, datcase, type = "h") points(case ~ date, datcase, type = "h")
pdf("results/figures/cases_per_day.pdf", width = 9, height = 5, pointsize = 10)
par(mai = c(.6, .6, .1, .1), mgp = c(2.4, 1, 0))
plot(case ~ date, datcase, type = "h", col = "#434F4F") plot(case ~ date, datcase, type = "h", col = "#434F4F")
abline(v = datcase$date[datcase$date %in% c("2020-03-13", "2022-10-25")],
col = "#FF6900", lty = 2)
text(datcase$date[datcase$date == "2020-03-13"]+470, 80,
"Corona gap from 2020-03-13 to 2022-10-25",
col = "#FF6900")
dev.off()
## weird behavior of timeMs ## weird behavior of timeMs