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

Moved another plot

Browse Source
This commit is contained in:
Nora Wickelmaier 2024-04-23 15:51:08 +02:00
parent 84f0434638
commit fa3d400ede
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
code/02_descriptives.R
View File

@ -308,16 +308,9 @@ addmargins(tab)
proportions(tab, margin = "item") proportions(tab, margin = "item")
proportions(tab, margin = "event") proportions(tab, margin = "event")
cc <- palette.colors(palette = "Okabe-Ito")[c(3,2,4,8)] barplot(t(proportions(tab, margin = "item")), las = 2, col = c("#3CB4DC", "#91C86E", "#FF6900", "#78004B"),
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"),
legend.text = levels(datlogs$event), args.legend = list(x = "bottomleft", bg = "white")) legend.text = levels(datlogs$event), args.legend = list(x = "bottomleft", bg = "white"))
dev.off()
#lattice::barchart(proportions(tab, margin = "item"), las = 2) #lattice::barchart(proportions(tab, margin = "item"), las = 2)
# Proportion of events # Proportion of events