smoothen tokens per pub year
Change-Id: Id20e8f57dd1b4c32219511b552e89267b2748df7
diff --git a/R/report.Rmd b/R/report.Rmd
index b730917..6320eda 100644
--- a/R/report.Rmd
+++ b/R/report.Rmd
@@ -34,8 +34,8 @@
## Composition by date of publication
-```{r composition_by_pubdate}
-year <- c(1988:2023)
+```{r composition_by_pubdate, message=F, warning=F}
+year <- c(1986:2023)
icc_year <- icc %>%
expand_grid(year) %>%
@@ -44,8 +44,14 @@
mutate(tokens= corpusStats(icc_con(lang, token), vc = vc)@tokens)
icc_year %>% ggplot(aes(x=year, fill=lang, color=lang, y=tokens)) +
- geom_line() +
- geom_point() +
+ # geom_smooth(se=F, span=0.25) +
+ xlim(1990, 2023) +
+ ylim(0, NA) +
+ stat_smooth(
+ geom = 'area', method = 'loess', span = 1/4,
+ alpha = 0.1) +
+ # geom_area(alpha=0.1, position = "identity") +
+ scale_fill_ids() + scale_colour_ids() +
scale_y_continuous(labels = label_number(scale_cut = cut_short_scale())) +
theme_ids()
```