From 198a22f4d85e9163a66ace2f4cb368a291413920 Mon Sep 17 00:00:00 2001 From: nwickel Date: Mon, 25 Mar 2024 16:37:37 +0100 Subject: [PATCH] Moved code for count_item.pdf to thesis folder --- code/02_descriptives.R | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/code/02_descriptives.R b/code/02_descriptives.R index 3542224..8275a25 100644 --- a/code/02_descriptives.R +++ b/code/02_descriptives.R @@ -11,8 +11,7 @@ # # input: results/event_logfiles_2024-02-21_16-07-33.csv # results/raw_logfiles_2024-02-21_16-07-33.csv -# output: results/figures/counts_item.pdf -# results/figures/counts_item_firsttouch.pdf +# output: results/figures/counts_item_firsttouch.pdf # results/figures/duration.pdf # results/figures/heatmap_start.pdf # results/figures/heatmap_stop.pdf @@ -104,12 +103,9 @@ datart <- mtt::extract_artworks(items, datart <- datart[order(datart$artwork), ] names(counts_item) <- datart$title -pdf("results/figures/counts_item.pdf", width = 20, height = 10, pointsize = 10) -par(mai = c(5, .6, .1, .1)) tmp <- barplot(counts_item, las = 2, ylim = c(0, 60000), border = NA, col = "#434F4F") text(tmp, counts_item + 1000, datart$artwork) -dev.off() ### Which item gets touched most often first?