Moved code for cases per day plot to thesis folder

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