---
title: "test"
toc: true
---
```{r}
library(tidyverse)
library(jsonlite)
library(statgl)
```
```{r}
df5 <- statgl_fetch(
"BEDSTA",
age = 0:99,
.col_code = TRUE,
.val_code = TRUE
) |>
mutate(
age = as.integer(age),
age_start = pmin((age %/% 5) * 5, 90)
) |>
group_by(time, age_start) |>
summarise(value = sum(value), .groups = "drop") |>
rename(age = age_start) |>
mutate(
age_label = if_else(age == 90, "90+", paste0(age, "-", age + 4)),
time = as.numeric(time),
) |>
arrange(age, time)
ages <- df5 |>
distinct(age, age_label) |>
arrange(age) |>
pull(age_label)
```
{{< filter
id="age"
label="Aldersklasse"
options='`r toJSON(ages)`'
all_label="Alle aldersklasser"
>}}
```{r}
p <- df5 |>
mutate(
series_id = age_label
) |>
statgl_plot(
x = time,
y = value,
group = series_id,
digits = 0,
suffix = " personer",
series_tags = list(age = "age_label"),
legend_position = "right"
)
```
{{< shorty
plot = '`r p`'
filter_series = "age"
>}}