From e40ed45848fc8db812d4a66302fabb869f5f83ad Mon Sep 17 00:00:00 2001 From: nwickel Date: Thu, 28 Mar 2024 18:28:18 +0100 Subject: [PATCH] Moved code for cases per day plot to thesis folder --- code/02_descriptives.R | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/code/02_descriptives.R b/code/02_descriptives.R index 8275a25..b279975 100644 --- a/code/02_descriptives.R +++ b/code/02_descriptives.R @@ -15,7 +15,6 @@ # results/figures/duration.pdf # results/figures/heatmap_start.pdf # results/figures/heatmap_stop.pdf -# results/figures/cases_per_day.pdf # results/figures/timeMs.pdf # results/figures/xycoord.pdf # results/figures/event-dist.pdf @@ -28,16 +27,10 @@ # results/figures/bp_corona.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") -# 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 --------------- 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") 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") -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