Delmål 5: Ligestilling mellem kønnene
Gennemsnitsindkomst
GS Gennemsnitsindkomst efter køn, bosted og uddannelse
INXPI104_raw <-
"INXPI104" %>%
statgl_url(lang = language) %>%
statgl_fetch(
"level of education" = px_all(),
unit = 3,
gender = 1:2,
age = c(0, 4),
"type of income" = 1,
time = px_all(),
.col_code = TRUE
) %>%
as_tibble()
INXPI104 <-
INXPI104_raw %>%
filter(
value != "NA",
age == unique(INXPI104_raw %>% pull(age))[1]
) %>%
rename(
"edu" = `level of education`,
"type" = `type of income`
) %>%
mutate(
edu = edu %>% fct_inorder(),
type = type %>% str_remove_all("[:digit:]|[:punct:]|\\+") %>% trimws()
)
INXPI104 %>%
ggplot(aes(
x = time %>% as.numeric(),
y = value,
color = gender %>% fct_rev()
)) +
geom_line(size = 2) +
facet_wrap(~ edu) +
theme_statgl() +
scale_color_statgl() +
scale_y_continuous(labels = function(x) format(x, big.mark = ".", scientific = FALSE)) +
scale_x_continuous(breaks = scales:: pretty_breaks()) +
labs(
title = INXPI104 %>% pull(type) %>% unique(),
subtitle = INXPI104 %>% pull(unit) %>% unique(),
x = " ",
y = " ",
color = " ",
caption = sdg5$figs$fig1$cap[language]
)
Metode
INXPI104 <-
INXPI104_raw %>%
filter(
value != "NA",
age == unique(INXPI104_raw %>% pull(age))[2]
) %>%
rename(
"edu" = `level of education`,
"type" = `type of income`
) %>%
mutate(
edu = edu %>% fct_inorder(),
type = type %>% str_remove_all("[:digit:]|[:punct:]|\\+") %>% trimws()
)
INXPI104 %>%
ggplot(aes(
x = time %>% as.numeric(),
y = value,
color = gender %>% fct_rev()
)) +
geom_line(size = 2) +
facet_wrap(~ edu) +
theme_statgl() +
scale_color_statgl() +
scale_y_continuous(labels = function(x) format(x, big.mark = ".", scientific = FALSE)) +
scale_x_continuous(breaks = scales:: pretty_breaks()) +
labs(
title = paste0(
INXPI104 %>% pull(type) %>% unique(), ", ",
INXPI104 %>% pull(age) %>% unique()
),
subtitle = INXPI104 %>% pull(unit) %>% unique(),
x = " ",
y = " ",
color = " ",
caption = sdg5$figs$fig1$cap[language]
)
Metode
Fordelingen af folkevalgte efter køn
FN 5.5.1 Andel af kvindelige parlamentarikere i det nationale parlament
# Import
ELEC03_raw <-
"https://pxweb.nordicstatistics.org:443/sq/6c4d7add-c65a-43ab-a60a-0119c13f9bd6.csv" |>
read.csv() |>
as_tibble()
vec <- 1:21
names(vec) <- c("country", 2003:2022)
# Transform
ELEC03 <-
ELEC03_raw |>
rename(vec) |>
mutate(across(everything(), as.numeric),
country = "greenland") |>
pivot_longer(cols = c("2003", "2004", "2005", "2006", "2007", "2008", "2009",
"2010", "2011", "2012", "2013", "2014", "2015", "2016",
"2017", "2018", "2019", "2020", "2021", "2022"),
names_to = "time",
values_to = "value") |>
drop_na(value)
# Plot
ELEC03 |>
ggplot(aes(
x = time,
y = value,
fill = country
)) +
geom_col() +
theme_statgl() +
scale_fill_statgl() +
theme(legend.position = "none") +
labs(
title = sdg5$figs$fig2$title[language],
x = " ",
y = sdg5$figs$fig2$y_lab[language],
fill = " ",
caption = sdg5$figs$fig2$cap[language]
)
Metode
Økonomisk udsatte
GS Andel af økonomisk udsatte i befolkningen efter køn
# Import
SOXOU01_raw <-
statgl_url("SOXOU01", lang = language) %>%
statgl_fetch(
"inventory variable" = c("Andel50", "Andel60"),
gender = 1:2,
year = px_all(),
.col_code = TRUE
) %>%
as_tibble()
# Transform
SOXOU01 <-
SOXOU01_raw %>%
mutate(
year = year %>% make_date(),
gender = gender %>% fct_inorder()
)
# Plot
SOXOU01 %>%
mutate(`inventory variable` = `inventory variable` %>% str_to_sentence()) %>%
ggplot(aes(
x = year,
y = value,
fill = gender)) +
geom_col(position = "dodge") +
scale_y_continuous(labels = scales::percent_format(
scale = 1,
accuracy = 1,
big.mark = ".",
decimal.mark = ",")
) +
facet_wrap(~ `inventory variable`) +
theme_statgl() +
scale_fill_statgl(reverse = TRUE) +
labs(
title = sdg5$figs$fig3$title[language],
subtitle = sdg5$figs$fig3$sub[language],
x = " ",
y = " ",
fill = " ",
caption = sdg5$figs$fig3$cap[language]
)
Metode
Trintest-resultater
GS Trintest resultater efter køn
# Import
UDXTKK_raw <-
statgl_url("UDXTKK", lang = language) %>%
statgl_fetch(subject = px_all(),
grade = px_all(),
sex = 1:2,
unit = "B",
time = px_all(),
.col_code = TRUE
) %>%
as_tibble()
# Transform
UDXTKK <-
UDXTKK_raw %>%
mutate(
time = time %>% make_date(),
subject = subject %>% fct_inorder()
)
fig_legend <- statgl_url("UDXTKK", lang = language) %>% statgl_fetch() %>% select(1) %>% colnames()
fig_title <- (statgl_url("UDXTKK", lang = language) %>% statgl_meta())$title
fig_subtitle <- UDXTKK_raw[["unit"]] %>% unique()
# Plot
UDXTKK %>%
ggplot(aes(
x = time,
y = value,
color = subject
)) +
geom_line(size = 2) +
facet_grid(grade ~ sex) +
theme_statgl() +
scale_color_statgl() +
scale_y_continuous(labels = scales::percent_format(
scale = 1,
accuracy = 1,
big.mark = ".",
decimal.mark = ","
)) +
labs(
title = fig_title,
subtitle = fig_subtitle,
x = " ",
y = " ",
color = fig_legend,
caption = sdg5$figs$fig4$cap[language]
)
Metode
Karaktergennemsnit
GS Prøvekarakterer efter køn
# Import
UDXFKK_raw <-
statgl_url("UDXFKK", lang = language) %>%
statgl_fetch(unit = "andel",
grade = "FO",
subject = c("01", "02", "03", "04"),
"type of grades" = 56:58,
sex = 1:2,
time = px_all(),
.col_code = TRUE) %>%
as_tibble()
# Transform
UDXFKK <-
UDXFKK_raw %>%
separate(`type of grades`, c("split1", "split2"), " - ") %>%
mutate(split2 = split2 %>% str_to_title(),
split1 = split1 %>% str_to_lower(),
time = time %>% make_date()) %>%
unite(combi, 2, 4, sep = ", ")
fig_title <- (statgl_url("UDXFKK", lang = language) %>% statgl_meta())$title
fig_y <- UDXFKK[["unit"]] %>% unique() %>% str_to_title()
fig_subtitle <- UDXFKK[["combi"]] %>% unique()
# Plot
UDXFKK %>%
ggplot(aes(
x = time,
y = value,
color = sex
)) +
geom_line(size = 1.5) +
facet_grid(split2 ~ subject) +
scale_y_continuous(labels = scales::unit_format(
suffix = " ",
big.mark = ".",
decimal.mark = ",",
accuracy = 1
)) +
theme_statgl() +
scale_color_statgl(guide = guide_legend(reverse = TRUE)) +
labs(
title = fig_title,
subtitle = fig_subtitle,
x = " ",
y = fig_y,
color = " ",
caption = sdg5$figs$fig5$cap[language]
)
Metode
På grund af Covid-19 har der ikke været afholdt afgangseksamen i 2020.
Højest fuldførte uddannelse
GS Højst fuldførte uddannelse blandt 35-39 årige efter køn
# Import
UDXISCPROD_raw <-
statgl_url("UDXISCPROD", lang = language) %>%
statgl_fetch(
ISCED11_level = px_all(),
Sex = px_all(),
Aar = px_all(),
alder_grp = "35-39",
.col_code = TRUE
) %>%
as_tibble()
# Transform
UDXISCPROD <-
UDXISCPROD_raw %>%
filter(ISCED11_level != UDXISCPROD_raw[[2]][1]) %>%
mutate(
ISCED11_level = ISCED11_level %>% factor(level = unique(ISCED11_level) %>% rev()),
Aar = Aar %>% make_date()
)
# Plot
UDXISCPROD %>%
arrange(ISCED11_level) %>%
ggplot(aes(
x = Aar,
y = value,
fill = ISCED11_level
)) +
geom_area(position = "fill") +
facet_wrap(~ Sex) +
scale_y_continuous(labels = scales::percent_format(
scale = 100,
accuracy = 1,
big.mark = ".",
decimal.mark = ","
)) +
theme_statgl(base_size = 11) +
scale_fill_statgl(reverse = TRUE, guide = guide_legend(reverse = TRUE, nrow = 3)) +
labs(
title = sdg5$figs$fig6$title[language],
subtitle = unique(UDXISCPROD[["age"]]),
x = " ",
y = " ",
fill = NULL,
caption = sdg5$figs$fig6$cap[language]
)
Metode
Beskæftigelse
GS Hovedbeskæftigelse blandt fastboende, efter brancher og køn
ARXBFB01_raw <-
statgl_url("ARXBFB01", lang = language) |>
statgl_fetch(
beskbrch = c("01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16"),
sex = c("M","K"),
opg_var = "G",
aar = px_all(),
.col_code = T
) |>
as_tibble()
# Transform
ARXBFB01 <-
ARXBFB01_raw %>%
mutate(
aar = aar %>% make_date(),
beskbrch = beskbrch %>% fct_reorder(value) %>% fct_rev()
) %>%
arrange(beskbrch)
# Plot
ARXBFB01 %>%
ggplot(aes(
x = aar,
y = value,
fill = sex
)) +
geom_area() +
facet_wrap(~ beskbrch, scales = "free", labeller = label_wrap_gen()) +
theme_statgl(base_size = 8) +
scale_fill_statgl(reverse = TRUE) +
scale_y_continuous(labels = scales::unit_format(
suffix = " ",
big.mark = ".",
decimal.mark = ","
)) +
labs(
title = unique(ARXBFB01[[4]]),
subtitle = sdg5$figs$fig7$title[language],
x = " ",
y = sdg5$figs$fig7$y_lab[language],
fill = " ",
caption = sdg5$figs$fig7$cap[language]
)
Metode
Ledighed
GS Ledighedsprocent efter køn
# Import
url <- paste0("https://bank.stat.gl/api/v1/", language, "/Greenland/AR/AR40/ARXLED3.px")
ARXLED3_raw <-
statgl_url("ARXLED3", lang = language) |>
statgl_fetch(
sex = c("M", "K"),
alder_grp = px_all(),
aar = px_all(),
opg_var = "P",
.col_code = T
) |>
as_tibble()
# Transform
ARXLED3 <-
ARXLED3_raw %>%
mutate(
aar = aar %>% make_date(),
alder_grp = alder_grp %>% factor(levels = unique(alder_grp))
)
# Plot
ARXLED3 %>%
ggplot(aes(
x = aar,
y = value,
color = sex
)) +
geom_line(size = 1.5) +
facet_wrap(~ alder_grp, scales = "free") +
theme_statgl() + scale_color_statgl(reverse = TRUE) +
scale_y_continuous(labels = scales::percent_format(
scale = 1,
accuracy = 1,
big.mark = ".",
decimal.mark = ",")) +
labs(
title = sdg5$figs$fig8$title[language],
subtitle = sdg5$figs$fig8$sub[language],
x = " ",
y = " ",
color = " ",
caption = sdg5$figs$fig8$cap[language]
)
Metode
Middellevetid
GS Middellevetid for 0 og 1-årige efter køn
# Import
BEXDT5A_raw <-
statgl_url("BEXDT5A", lang = language) %>%
statgl_fetch(type = "E",
gender = c("M", "K"),
time = px_all(),
age = 0:1,
.col_code = TRUE) %>%
as_tibble()
# Transform
BEXDT5A <-
BEXDT5A_raw %>%
separate(time, c("startar", "slutar"), " - ") %>%
mutate(slutar = slutar %>% make_date())
# Plot
BEXDT5A %>%
ggplot(aes(
x = slutar,
y = value,
color = gender
)) +
geom_line(size = 2) +
facet_wrap(~ age) +
theme_statgl() +
scale_color_statgl(reverse = TRUE) +
theme(plot.margin = margin(10, 10, 10, 10)) +
labs(
title = sdg5$figs$fig9$title[language],
subtitle = sdg5$figs$fig9$sub[language],
x = sdg5$figs$fig9$x_lab[language],
y = sdg5$figs$fig9$y_lab[language],
color = " ",
caption = sdg5$figs$fig9$cap[language]
)
Barselsdagpenge
FN 5.4.1
# Import
SOX007_raw <-
statgl_url("SOX007", lang = language) |>
statgl_fetch(
gender = 1:2,
type = 30,
time = px_all(),
.col_code = T
) |>
as_tibble()
# Transform
SOX007 <-
SOX007_raw |>
mutate(value = as.numeric(value)) |>
select(-2)
# Plot
SOX007 |>
ggplot(aes(
x = as.integer(time),
y = value,
color = gender
)) +
geom_line(size = 2) +
theme_statgl() +
scale_color_statgl() +
labs(
title = sdg5$figs$fig10$title[language],
x = " ",
y = " ",
color = " ",
caption = sdg5$figs$fig10$cap[language]
)
SOX007 |>
filter(time >= year(Sys.time()) - 6) |>
spread(time, value) |>
rename(" " = 1) |>
statgl_table() |>
add_footnote(sdg5$figs$fig10$foot[language], notation = "symbol")| 2019 | 2020 | 2021 | 2022 | 2023 | |
|---|---|---|---|---|---|
| Kvinde | 897 | 867 | 834 | 718 | 625 |
| Mand | 190 | 165 | 148 | 128 | 94 |
| * Antal personer |