Fødselsårgange

Hvor er de i dag?

Udgivet

01.06.2026

Opdateret: 2026-04-23

56.740

Født i Grønland

1. januar

ca 4.150

Født i Rigsfællesskabet

Befolkning efter fødselsårgang

2026

På landsniveau i 2026 er fødselsårgangen fra 1964 fortsat omtrent dobbelt så stor som 1974-årgangen og 1994-årgangen næsten som 1964-årgangen.

I lokaliteter efter bostedstype

2026, født i Grønland

Udviklingen fordelt på bostedstyper (f.eks. by/bygder), for personer født i Grønland.

Født i Grønland, hvor er de i dag?

2026, version

Status i dag: i Danmark, i Grønland, eller døde?

--- title: Fødselsårgange subtitle: "Hvor er de i dag?" order: 4 tag: - pop_size toc: true toc-title: Alder icon: bi-collection lang: da date: last-modified date-format: "DD.MM.YYYY" execute: echo: false warning: false release-date: 2026-04-23 --- ```{r} library(tidyverse) library(janitor) library(statgl) library(pxmake) library(tidyr) library(highcharter) # Sprog kommer fra YAML (lang: da|kl|en) lang <- rmarkdown::metadata$lang if (is.null(lang) || !lang %in% c("da","kl","en")) lang <- "da" # Intern ordbog txt <- list( da = list( nav_lang = "Sprog", kpi_1_title = "Født i Grønland", kpi_1_subtitle = "1. januar", kpi_2_title = "Født i Rigsfællesskabet", shorty_0_title = "Befolkning efter fødselsårgang", shorty_0_desc = "På landsniveau i 2026 er fødselsårgangen fra 1964 fortsat omtrent dobbelt så stor som 1974-årgangen og 1994-årgangen næsten som 1964-årgangen.", shorty_1_title = "I lokaliteter efter bostedstype", shorty_1_desc = "Udviklingen fordelt på bostedstyper (f.eks. by/bygder), for personer født i Grønland.", shorty_2_title = "Født i Grønland, hvor er de i dag?", shorty_2_desc = "Status i dag: i Danmark, i Grønland, eller døde?" ), kl = list( nav_lang = "Oqaatsit", kpi_1_title = "Kalaallit Nunaanni inunngortut", kpi_1_subtitle = "Januaarip 1-ani", kpi_2_title = "Naalagaaffeqatigiinni inunngortut", shorty_0_title = "Inunngorput (cohort) naapertorlugu innuttaasut", shorty_0_desc = "2026-mi nuna tamakkerlugu 1964-mi inunngortut 1974-mi inunngortunit suli marloriaammik amerlanerupput, 1994-mi inunngortut 1964-mi inunngortunut qaninnerullutik.", shorty_1_title = "Najugaqarfik naapertorlugu (bostedstype)", shorty_1_desc = "Kalaallit Nunaanni inunngortut najugaqarfiisa suussusaat naapertorlugu agguataarneqarneq (ass. illoqarfiit/nunaqarfiit).", shorty_2_title = "Kalaallit Nunaanni inunngortut – ullumikkut qanoq inissisimappat?", shorty_2_desc = "Ullumikkut qanoq inissisimappat: Danmark-imi, Kalaallit Nunaanni, imaluunniit toqusimappat?" ), en = list( nav_lang = "Language", kpi_1_title = "Born in Greenland", kpi_1_subtitle = "1 January", kpi_2_title = "Born in the Realm", shorty_0_title = "Population by birth cohort", shorty_0_desc = "Nationally in 2026, the 1964 cohort is still roughly twice the size of the 1974 cohort, and the 1994 cohort is nearly as large as the 1964 cohort.", shorty_1_title = "By settlement type", shorty_1_desc = "Distribution by settlement type (e.g., towns/villages) for people born in Greenland.", shorty_2_title = "Born in Greenland — where are they today?", shorty_2_desc = "Current status: in Denmark, in Greenland, or deceased?" ) ) t <- txt[[lang]] taar <- 2026L ``` ::: {.grid} ::: {.g-col-12 .g-col-md-6} {{< kpicard title = "`r t$kpi_1_title`" subtitle = "`r t$kpi_1_subtitle`" value = "56.740" >}} ::: ::: {.g-col-12 .g-col-md-6} {{< kpicard title = "`r t$kpi_2_title`" value = "ca 4.150" >}} ::: ::: ```{r} # Gemt spørgsmål (sq) fra originalen sq <- "https://bank.stat.gl:443/sq/8a227b3f-762e-444e-92b1-23b32b528b7e" df_1 <- read.csv(paste0(sq,".csv2"), fileEncoding = "Latin1") %>% rename(value = Befolkningsregnskab) %>% filter(value > 0) hc_0 <- df_1 %>% statgl_plot(x = fødselsår, group = fødested) ``` ## `r t$shorty_0_title` {#shorty-cohort-national} {{< shorty title = "`r t$shorty_0_title`" subtitle = "`r df_1$tid %>% unique()`" description = "`r t$shorty_0_desc`" plot = '`r hc_0`' >}} ```{r} hc_1 <- statgl_fetch( "BEDCALCR2", omr = px_all(), fsted = px_all(), faar = px_all(), taar = px_top(1), ttype = "P" ) %>% filter(fødested == "Grønland", substr(område, 1, 2) == "f.", value > 0) %>% statgl_plot(x = fødselsår, group = område) ``` ## `r t$shorty_1_title` {#shorty-cohort-settlement} {{< shorty title = "`r t$shorty_1_title`" subtitle = "`r df_1$tid %>% unique()`, født i Grønland" description = "`r t$shorty_1_desc`" plot = '`r hc_1`' >}} ```{r} # pxmake bruges her. Labels forsøges sat til samme sprog som siden. labels_lang <- if (lang %in% c("da","kl","en")) lang else "da" df_2 <- pxmake::px("https://bank.stat.gl/Resources/PX/Databases/Greenland/BE/BE01/BE0120/BEXSTFSGRL.px") %>% px_data(labels = labels_lang) %>% filter(figures_ > 0, cohort > (taar - 100), time == taar) %>% mutate(cohort = as.numeric(cohort)) %>% select(-gender, -`parents birthplace`, -time) %>% uncount(figures_) %>% count(across(everything()), name = "value") hc_2 <- df_2 %>% statgl_plot(x = cohort, group = status, type = "area", stacking = "normal") ``` ## `r t$shorty_2_title` {#shorty-cohort-status} {{< shorty title = "`r t$shorty_2_title`" subtitle = "`r df_1$tid %>% unique()`, version" description = "`r t$shorty_2_desc`" plot = '`r hc_2`' >}}