--- title: "Socialområdet" subtitle: "Arbejdsmarkedstilknytning, ydelser og forsorg" icon: bi-heart-pulse-fill description: "Tilknytning til arbejdsmarkedet, ydelser, social forsorg mm." listing: - id: social-links template: ../../../../ejs/subtopics.ejs - id: so-contact contents: ../../../../staff.yml template: ../../../../ejs/staff.ejs include: topics: SO release-date: 2026-05-26 next-release: 2026-12-15 i18n: locales: [en, kl] --- ### Nøgletal ```{r} library (tidyverse)library (statgl)# KPI 1+2: Beskæftigede og ledige (arbejdsmarkedstilknytning, november) <- statgl_fetch ("SODATI1" ,` labour force status ` = c (0 ,1 ,2 ,3 ,4 ,5 ,10 ,11 ,12 ,20 ,21 ,23 ),time = px_top (), .col_code = TRUE , .val_code = "labour force status" %>% mutate (gruppe = case_when (` labour force status ` %in% c (0 ,1 ,2 ,3 ,4 ,5 ,10 ,11 ,12 ) ~ "Beskæftigede" ,` labour force status ` %in% c (20 ,21 ,23 ) ~ "Ledige" %>% filter (! is.na (gruppe)) %>% summarise (value = sum (value), .by = c (gruppe, time))<- am_df %>% filter (gruppe == "Beskæftigede" ) %>% pull (value) %>% format (big.mark = "." , decimal.mark = "," )<- am_df %>% filter (gruppe == "Ledige" ) %>% pull (value) %>% format (big.mark = "." , decimal.mark = "," )<- am_df$ time[1 ]# KPI 3: Alderspensionister (december) <- statgl_fetch ("SODPEN1" , payment = "2. A" , time = px_top (), .col_code = TRUE )<- format (pen_df$ value, big.mark = "." , decimal.mark = "," )<- pen_df$ time# KPI 4: Andel af økonomisk udsatte <- statgl_fetch ("SODOU01" , ` inventory variable ` = "Andel50" , year = px_top (), .col_code = TRUE )<- paste0 (ou_df$ value, " %" )<- ou_df$ year``` `r besk_val` '`r am_tid` '>}} ::: `r ledi_val` '`r am_tid` '>}} ::: `r pen_val` '`r pen_tid` '>}} ::: `r ou_val` '`r ou_tid` '>}} ::: ### Emner ### Se også >}} >}} >}} ### Kontakt