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

Moved code for count_item.pdf to thesis folder

Browse Source
This commit is contained in:
Nora Wickelmaier 2024-03-25 16:37:37 +01:00
parent bdf9ad947a
commit 198a22f4d8
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/02_descriptives.R
View File

@ -11,8 +11,7 @@
# #
# input: results/event_logfiles_2024-02-21_16-07-33.csv # input: results/event_logfiles_2024-02-21_16-07-33.csv
# results/raw_logfiles_2024-02-21_16-07-33.csv # results/raw_logfiles_2024-02-21_16-07-33.csv
# output: results/figures/counts_item.pdf # output: results/figures/counts_item_firsttouch.pdf
# results/figures/counts_item_firsttouch.pdf
# 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
@ -104,12 +103,9 @@ datart <- mtt::extract_artworks(items,
datart <- datart[order(datart$artwork), ] datart <- datart[order(datart$artwork), ]
names(counts_item) <- datart$title 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), tmp <- barplot(counts_item, las = 2, ylim = c(0, 60000),
border = NA, col = "#434F4F") border = NA, col = "#434F4F")
text(tmp, counts_item + 1000, datart$artwork) text(tmp, counts_item + 1000, datart$artwork)
dev.off()
### Which item gets touched most often first? ### Which item gets touched most often first?