From fa3d400ede5379c9e30e87f4fedd0ffc54c4249d Mon Sep 17 00:00:00 2001 From: nwickel Date: Tue, 23 Apr 2024 15:51:08 +0200 Subject: [PATCH] Moved another plot --- code/02_descriptives.R | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/code/02_descriptives.R b/code/02_descriptives.R index 7e7a08e..677e5b1 100644 --- a/code/02_descriptives.R +++ b/code/02_descriptives.R @@ -308,16 +308,9 @@ addmargins(tab) proportions(tab, margin = "item") proportions(tab, margin = "event") -cc <- palette.colors(palette = "Okabe-Ito")[c(3,2,4,8)] - -pdf("figures/event-dist.pdf", height = 3.375, width = 12, pointsize = 10) -par(mai = c(.4,.4,.1,.1), mgp = c(2.4, 1, 0)) - -barplot(t(proportions(tab, margin = "item")), las = 2, col = c("#78004B", "#3CB4DC", "#91C86E", "#FF6900"), +barplot(t(proportions(tab, margin = "item")), las = 2, col = c("#3CB4DC", "#91C86E", "#FF6900", "#78004B"), legend.text = levels(datlogs$event), args.legend = list(x = "bottomleft", bg = "white")) -dev.off() - #lattice::barchart(proportions(tab, margin = "item"), las = 2) # Proportion of events