From 6b1b5767bf5d222cbad79d12d6193103c3bbd065 Mon Sep 17 00:00:00 2001 From: nwickel Date: Thu, 12 Oct 2023 16:27:44 +0200 Subject: [PATCH] Prepared slides for next meeting with PG and Co. --- code/03_plots_8o8m.R | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/code/03_plots_8o8m.R b/code/03_plots_8o8m.R index feeee2a..4ad9350 100644 --- a/code/03_plots_8o8m.R +++ b/code/03_plots_8o8m.R @@ -40,9 +40,16 @@ dev.off() ### Dwell times/duration set.seed(1033) -pdf("../figures/duration_8o8m.pdf", width = 5, height = 5, pointsize = 10) -bwplot(I(duration/1000/60) ~ as.factor(event), datlogs[sample(nrow(datlogs), 100000), ], - ylab = "Duration in min") +pdf("../figures/duration_8o8m.pdf", width = 20, height = 6, pointsize = 10) +bwplot(I(duration/1000/60) ~ as.factor(event) | folder, + datlogs[sample(nrow(datlogs), 100000), ], ylab = "Duration in min") +dev.off() + +set.seed(1033) + +pdf("../figures/duration_8o8m_artworks.pdf", width = 20, height = 10, pointsize = 10) +bwplot(I(duration/1000/60) ~ as.factor(event) | artwork + folder, + datlogs[sample(nrow(datlogs), 100000), ], ylab = "Duration in min") dev.off() ### Are there certain areas of the table that are touched most often?