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?