Use IDS palette also for POS
Change-Id: Ic77c89cf0464168f815fb39cff20470e3324b48c
diff --git a/R/report.Rmd b/R/report.Rmd
index b888def..5366ddb 100644
--- a/R/report.Rmd
+++ b/R/report.Rmd
@@ -70,8 +70,9 @@
icc_by_pos_tag %>% ggplot(aes(x=lang, fill = POS, y=f)) +
geom_col() + scale_y_continuous(labels = label_number(scale_cut = cut_short_scale())) +
+ scale_fill_ids() + scale_color_ids() +
theme_ids(base_size = 12) +
- geom_text(aes(label=sprintf("%.2f%%", 100*f), y=f), position= position_stack(reverse = F, vjust = 0.5), color="white", size=3.2, family="Fira Sans Condensed")
+ geom_text(aes(label=sprintf("%.2f%%", 100*f), y=f), position= position_stack(reverse = F, vjust = 0.5), color="black", size=3.2, family="Fira Sans Condensed")
```
# Pilot study: Identification of Light Verb Constructions with *take*