TEST Age
TEST : age filter.
TEST : age filter.
04.06.2026
---
title: TEST Age
subtitle: "TEST : age filter."
order: 2.6
tag:
- pop_size
toc: true
toc-title: Age
icon: bi-hourglass-split
lang: da
date: last-modified
date-format: "DD.MM.YYYY"
execute:
echo: false
warning: false
release-date: 2026-04-23
---
```{r}
library(tidyverse)
library(jsonlite)
library(statgl)
```
```{r}
df5 <- statgl_fetch(
"BEESTA",
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="Agegroup"
options='`r toJSON(ages)`'
all_label="All ages"
>}}
```{r}
p <- df5 |>
mutate(
series_id = age_label
) |>
statgl_plot(
x = time,
y = value,
group = series_id,
digits = 0,
suffix = " persons",
series_tags = list(age = "age_label"),
legend_position = "right"
)
```
{{< shorty
plot = '`r p`'
filter_series = "age"
>}}