Tilbage

---

Delmål 11: Bæredygtige byer og lokalsamfund

Urbanisering

---

GS Urbanisering

# Import
BEXSTA_raw <- 
  statgl_url("BEXSTA", lang = language) %>% 
  statgl_fetch(
    `residence type` = px_all(), 
    .col_code        = TRUE
    ) %>% 
  as_tibble() 

# Transform
BEXSTA <-
  BEXSTA_raw %>% 
  filter(`residence type` != BEXSTA_raw[[1]][1]) %>% 
  mutate(
    `residence type` = fct_inorder(`residence type`) %>% fct_rev,
    time             = as.numeric(time),
    value            = as.numeric(value)
    )

# Plot
BEXSTA %>% 
  ggplot(aes(
    x    = time,
    y    = value,
    fill = `residence type`
  )) +
  geom_area(position = "fill") +
  scale_y_continuous(labels  = scales::percent_format(
    scale = 100, 
    accuracy = 1, 
    big.mark = ".",
    decimal.mark = ","
    )) +
  scale_fill_statgl(reverse = TRUE, guide = guide_legend(reverse = TRUE)) +
  theme_statgl() +
  labs(
    title = sdg11$figs$fig1$title[language],
    subtitle = sdg11$figs$fig1$sub[language],
    x = " ",
    y = " ",
    fill = sdg11$figs$fig1$fill[language],
    caption = sdg11$figs$fig1$cap[language]
  )

Statistikbanken

Vis tabel

# Transform
BEXSTA <-
  BEXSTA_raw %>% 
  filter(
    `residence type` != BEXSTA_raw[[1]][1],
    time >= year(Sys.time()) - 7) %>% 
  mutate(
    `residence type` = fct_inorder(`residence type`),
    time             = as.numeric(time),
    value            = as.numeric(value),
    ) %>% 
  spread(1, 3) %>% 
  arrange(desc(time)) %>% 
  mutate(var = "Antal personer")

# Table
BEXSTA %>% 
  select(-ncol(.)) %>% 
  rename(" " = 1) %>% 
  statgl_table(year_col = " ") %>% 
  pack_rows(index = BEXSTA[[9]] %>% table())

	Hovedstad	Hovedbosteder	Større bosteder	Bosteder	Mindre bosteder	Mindste bosteder	Andre lokaliteter
Antal personer
2024	19.872	16.373	12.242	4.133	3.536	479	64
2023	19.604	16.192	12.406	4.361	3.563	420	63
2022	19.261	16.242	12.558	4.377	3.590	470	64
2021	18.800	16.345	12.679	5.005	3.171	353	68
2020	18.326	16.299	12.861	5.031	3.124	366	74
2019	17.984	16.287	12.915	4.924	3.206	591	85
2018	17.796	16.267	12.883	5.144	3.090	596	101
2017	17.600	16.165	12.949	4.961	3.528	551	106

Uddannelsessteders placering

---

GS Uddannelsessteders placering

# Import
if (language == "da") {
  udd_raw <- readxl::read_xlsx(paste0(getwd(), "/text/", "udd_da.xlsx"))
} else if (language == "kl") {
  udd_raw <- readxl::read_xlsx(paste0(getwd(), "/text/", "udd_kl.xlsx"))
} else {
  udd_raw <- readxl::read_xlsx(paste0(getwd(), "/text/", "udd_en.xlsx"))
}

udd <- 
  udd_raw %>% 
  mutate(value = 1) %>% 
  group_by(type, metro) %>% 
  summarise(value = sum(value))

# plot
udd %>% 
  ggplot(aes(
    x    = type,
    y    = value,
    fill = metro 
  )) +
  geom_col(position = "dodge") +
  theme_statgl() +
  scale_fill_statgl() +
  scale_y_continuous(breaks = scales::pretty_breaks()) +
  labs(
    title = sdg11$figs$fig1$title[language],
    y     = " ",
    x     = " ",
    fill  = " "
  )

Vis tabel

# table
udd %>% 
  spread(metro, value) %>% 
  rename(" " = 1) %>% 
  mutate(across(everything(), replace_na, 0)) %>% 
  statgl_table(replace_0s = TRUE)

	Inden for kommunehovedstæderne	Uden for kommunehovedstæderne
Andre	6	3
Erhvervsuddannelse	11	2
Gymnasium	3	1
Videregående uddannelse	1	0

Fredede områder

---

GS Fredede områder

områder <- readxl:: read_xlsx("text/områder_da.xlsx")

# Table
områder %>% 
  mutate_if(is.numeric, ~ replace(., is.na(.), 0)) %>% 
  mutate_if(is.numeric, funs(as.character(signif(., 3)))) %>% 
  select(-Ramsar) %>% 
  rename(" " = 1) %>% 
  statgl_table(replace_0s = TRUE) %>% 
  pack_rows(index = områder["Ramsar"] %>% table())

	Kvadratkilometer	Rettet kvadratkilometer	Bemærkning
Ikke ramsarområde
Qinnguadalen	30	37.2	0
Øen Uunartoq	5850	6.32	0
Klosterdalen	24	26	0
Ivittuut og Kangilinnguit (Inkl 5 delområder, herunder Ikkafjorden)	573	615	rettet område
Øen Akilia	1	1.52	0
Austmannadalen	587	632	0
Arnangarnup Qoorua	90	96	0
Arktisk Station (Lyngmarken)	2600	1.93	rettet område
Melville Bugten	7980	6980	0
Ilulissat Isfjord	4000	4050	0
Kitsissunnguit – Grønne Ejland (også ramsar)	69	70.1	0
Uunnartorsuaq (Engelskmandens Havn)	0	0.601	indsat område
Nationalparken i Nord- og Østgrønland	953000	935000	0
Ramsarområde
Ikkattoq and adjacent archipelago	0	449	indsat område
Kitsissut Avalliit	0	44.7	indsat område
Aqajarua, Qaamassoq and Sullorsuaq	0	264	indsat område
Qinnquata Marraa and Kuussuaq	0	70	indsat område
Kuannersuit Kuussuat	0	38	indsat område
Naternaq	0	1910	indsat område
Heden	0	2620	indsat område
Hochstetter Forland	0	2070	indsat område
Kilen	0	495	indsat område
Ørsted Dal, Pingel Dal and Enhjørningen Dal	0	1960	indsat område
Eqalummiut Nunaat and Nassuttuup Nunaa	0	5820	indsat område