library("tidyverse")
library(statgl) # Info at www.stat.gl/SBE202003/o1
library("kableExtra")

first_blank <- c(" " = 1)

unit = "Antal personer"
unit2 = "Alder"
unit3 = "Ton"
unit4 = "Styk"
unit5 = "Antal"


footnote_none = "None"

1.1. Folketal

table2 <- 
  read_csv(
  "https://bank.stat.gl/sq/075f045e-07d3-4ee3-9ef4-3236fd5526fb.csv",
  locale = locale(encoding = "latin1")) %>%
  select(-2)

# Define header
header <- names(table2) %>% 
  str_to_title() %>% 
  str_extract("Kommune|Mænd|Kvinder|I Alt")

# Draw table
table2 %>% 
    mutate_if(is.double, format, big.mark = ".", decimal.mark = ",") %>% 
  kable(
    col.names = header,
    align = "lrrrrrrrrr"
  ) %>% 
  kable_styling(c("striped", "condensed", "reactive"),  full_width = TRUE) %>% 
  row_spec(1, bold = TRUE) %>%
  add_header_above(
    c(" " = 1, "Grønland" = 3, "Udenfor Grønland" = 3, "I alt" = 3),
    align = c("left", rep("right", 3))
  )
Grønland
Udenfor Grønland
I alt
Kommune Mænd Kvinder I Alt Mænd Kvinder I Alt I Alt I Alt I Alt
Hele landet 25.824 24.541 50.365 3.925 2.131 6.056 29.749 26.672 56.421
Kommune Kujalleq 3.114 2.939 6.053 285 116 401 3.399 3.055 6.454
Kommuneqarfik Sermersooq 9.795 9.645 19.440 2.575 1.447 4.022 12.370 11.092 23.462
Qeqqata Kommunia 4.461 4.139 8.600 455 250 705 4.916 4.389 9.305
Kommune Qeqertalik 3.146 2.935 6.081 149 82 231 3.295 3.017 6.312
Avannaata Kommunia 5.298 4.874 10.172 417 231 648 5.715 5.105 10.820
Udenfor kommunerne 10 9 19 44 5 49 54 14 68
Se Statistikbankens tabel: BEDSTB

Bemærk: Distrikt anvendes som betegnelse for områder svarende til kommuner fra før 2009

table3 <- 
  read_csv(
  "http://bank.stat.gl/sq/9ddd0763-6830-4f53-aff2-07e22222ab2e.csv",
  locale = locale(encoding = "latin1")) %>%
  select(-1)

# Define header
header <- names(table3) %>% 
  str_to_title() %>% 
  str_extract("Område|Mænd|Kvinder|I Alt")

# Remove null-lines
table3 <- table3[table3$`I alt I alt` != 0, ] 

table3 %>% 
    mutate_if(is.double, format, big.mark = ".", decimal.mark = ",") %>% 
  kable(
    col.names = header,
    align = "lrrrrrrrrr"
  ) %>% 
  kable_styling(c("striped", "condensed", "reactive"),  full_width = TRUE) %>% 
  row_spec(1, bold = TRUE) %>% 
  add_header_above(
    c(" " = 1, "Grønland" = 3, "Udenfor Grønland" = 3, "I alt" = 3),
    align = c("left", rep("right", 3))
  )
Grønland
Udenfor Grønland
I alt
Område Mænd Kvinder I Alt Mænd Kvinder I Alt I Alt I Alt I Alt
Hele landet 25.824 24.541 50.365 3.925 2.131 6.056 29.749 26.672 56.421
Nanortalik 875 717 1.592 40 11 51 915 728 1.643
Qaqortoq 1.458 1.457 2.915 177 81 258 1.635 1.538 3.173
Narsaq 781 765 1.546 68 24 92 849 789 1.638
Paamiut 704 580 1.284 24 21 45 728 601 1.329
Nuuk 7.584 7.611 15.195 2.448 1.380 3.828 10.032 8.991 19.023
Maniitsoq 1.542 1.357 2.899 108 49 157 1.650 1.406 3.056
Sisimiut 2.919 2.782 5.701 347 201 548 3.266 2.983 6.249
Kangaatsiaq 618 524 1.142 9 4 13 627 528 1.155
Aasiaat 1.542 1.433 2.975 120 64 184 1.662 1.497 3.159
Qasigiannguit 569 562 1.131 8 10 18 577 572 1.149
Ilulissat 2.336 2.234 4.570 310 179 489 2.646 2.413 5.059
Qeqertarsuaq 417 416 833 12 4 16 429 420 849
Uummannaq 1.132 1.049 2.181 58 33 91 1.190 1.082 2.272
Upernavik 1.440 1.238 2.678 42 11 53 1.482 1.249 2.731
Qaanaaq 390 353 743 7 8 15 397 361 758
Tasiilaq 1.326 1.291 2.617 92 38 130 1.418 1.329 2.747
Ittoqqortoormiit 181 163 344 11 8 19 192 171 363
Se Statistikbankens tabel: BEDSTC
Bemærk: Lokaliteterne afspejler oplysninger i folkeregistrene, hvor der først i 2020 er taget et egentligt adresseregister ibrug.

table4 <- 
  read_csv(
  "http://bank.stat.gl/sq/263fd50e-8192-4f7e-adf7-07cf537b5b58.csv",
  locale = locale(encoding = "latin1")) %>%
  select(-2)

# Define header
header <- names(table4) %>% 
  str_to_title() %>% 
  str_extract("Område|Mænd|Kvinder|I Alt")

# Draw table with no null rows
table4 %>% 
  filter(`I alt I alt` != 0) %>% 
    mutate_if(is.double, format, big.mark = ".", decimal.mark = ",")  %>% 
      kable(col.names = c("Lokalitet",
                      "Mænd",
                      "Kvinder",
                      "I alt",
                      "Mænd",
                      "Kvinder",
                      "I alt",
                      "Mænd",
                      "Kvinder",
                      "I alt"),
        align = "lrrrrrrrrr") %>%
  kable_styling(c("striped", "condensed", "reactive"),  full_width = TRUE) %>% 
  row_spec(1, bold = TRUE) %>% 
  add_header_above(
    c(" " = 1, "Grønland" = 3, "Udenfor Grønland" = 3, "I alt" = 3),
    align = c("left", rep("right", 3))
  )
Grønland
Udenfor Grønland
I alt
Lokalitet Mænd Kvinder I alt Mænd Kvinder I alt Mænd Kvinder I alt
Hele landet 25.824 24.541 50.365 3.925 2.131 6.056 29.749 26.672 56.421
Nanortalik (by) 607 521 1.128 31 10 41 638 531 1.169
Aappilattoq (bygd i Kujalleq) 58 37 95 1 1 2 59 38 97
Narsarmijit 36 35 71 2 0 2 38 35 73
Tasiusaq (bygd i Kujalleq) 43 20 63 0 0 0 43 20 63
Ammassivik (bygd) 21 19 40 0 0 0 21 19 40
Alluitsup Paa (bygd) 110 85 195 6 0 6 116 85 201
Qaqortoq (by) 1.382 1.401 2.783 174 80 254 1.556 1.481 3.037
Saarloq (bygd) 13 11 24 0 0 0 13 11 24
Eqalugaarsuit (bygd) 53 40 93 2 1 3 55 41 96
Qassimiut (bygd) 10 5 15 1 0 1 11 5 16
Narsaq (by) 672 658 1.330 44 18 62 716 676 1.392
Igaliku (bygd) 24 14 38 1 0 1 25 14 39
Qassiarsuk (bygd) 35 30 65 2 2 4 37 32 69
Narsarsuaq (bygd) 50 63 113 21 4 25 71 67 138
Paamiut (by) 660 546 1.206 24 17 41 684 563 1.247
Arsuk (bygd) 44 34 78 0 4 4 44 38 82
Nuuk (by) 7.450 7.524 14.974 2.447 1.379 3.826 9.897 8.903 18.800
Qeqertarsuatsiaat (bygd) 106 73 179 1 1 2 107 74 181
Kapisillit (bygd) 28 14 42 0 0 0 28 14 42
Tasiilaq (by) 899 909 1.808 80 28 108 979 937 1.916
Sermiligaaq (bygd) 105 104 209 0 1 1 105 105 210
Isertoq (bygd) 30 27 57 0 1 1 30 28 58
Kulusuk (bygd) 110 92 202 7 7 14 117 99 216
Tiilerilaaq (bygd) 45 45 90 2 1 3 47 46 93
Kuummiit (bygd) 137 114 251 3 0 3 140 114 254
Ittoqqortoormiit (by) 180 163 343 10 8 18 190 171 361
Nerlerit Inaat (Lufthavn) 1 0 1 1 0 1 2 0 2
Maniitsoq (by) 1.221 1.112 2.333 105 48 153 1.326 1.160 2.486
Atammik (bygd) 101 80 181 2 1 3 103 81 184
Napasoq (bygd) 43 41 84 0 0 0 43 41 84
Kangaamiut (bygd) 177 124 301 1 0 1 178 124 302
Sisimiut (by) 2.647 2.527 5.174 271 177 448 2.918 2.704 5.622
Itilleq (bygd) 40 33 73 0 0 0 40 33 73
Sarfannguit (bygd) 50 40 90 1 0 1 51 40 91
Kangerlussuaq (bygd) 182 182 364 75 24 99 257 206 463
Kangaatsiaq (by) 279 247 526 4 4 8 283 251 534
Attu (bygd) 121 85 206 1 0 1 122 85 207
Iginniarfik (bygd) 38 36 74 0 0 0 38 36 74
Niaqornaarsuk (bygd) 130 110 240 2 0 2 132 110 242
Ikerasaarsuk (KAN)(bygd) 50 46 96 2 0 2 52 46 98
Aasiaat (by) 1.472 1.379 2.851 120 64 184 1.592 1.443 3.035
Akunnaaq (bygd) 39 25 64 0 0 0 39 25 64
Kitsissuarsuit (bygd) 31 29 60 0 0 0 31 29 60
Qasigiannguit (by) 533 521 1.054 8 9 17 541 530 1.071
Ikamiut (bygd) 36 41 77 0 1 1 36 42 78
Qeqertarsuaq (by) 410 412 822 12 4 16 422 416 838
Kangerluk (bygd) 7 4 11 0 0 0 7 4 11
Ilulissat (by) 2.150 2.078 4.228 306 176 482 2.456 2.254 4.710
Oqaatsut (bygd) 18 13 31 2 0 2 20 13 33
Qeqertaq (bygd) 57 56 113 0 0 0 57 56 113
Saqqaq (bygd) 84 63 147 2 2 4 86 65 151
Ilimanaq (bygd) 27 24 51 0 1 1 27 25 52
Uummannaq (by) 693 653 1.346 53 29 82 746 682 1.428
Niaqornat (bygd) 19 17 36 0 0 0 19 17 36
Qaarsut (bygd) 80 84 164 2 1 3 82 85 167
Ikerasak (bygd) 133 117 250 1 1 2 134 118 252
Saattut (bygd) 133 102 235 2 1 3 135 103 238
Ukkusissat (bygd) 74 76 150 0 1 1 74 77 151
Upernavik (by) 558 478 1.036 33 7 40 591 485 1.076
Upernavik Kujalleq (bygd) 106 101 207 0 0 0 106 101 207
Kangersuatsiaq (bygd) 85 55 140 0 0 0 85 55 140
Aappilattoq (bygd i Avannaani) 89 72 161 0 0 0 89 72 161
Tasiusaq (bygd i Avannaa) 139 115 254 3 2 5 142 117 259
Nuussuaq (bygd) 101 90 191 0 0 0 101 90 191
Kullorsuaq (bygd) 212 218 430 5 2 7 217 220 437
Naajaat (bygd) 23 18 41 0 0 0 23 18 41
Innaarsuit (bygd) 92 67 159 0 0 0 92 67 159
Nutaarmiut (bygd) 34 23 57 1 0 1 35 23 58
Ikerasaarsuk (UPE)(bygd) 1 1 2 0 0 0 1 1 2
Qaanaaq (by) 305 300 605 6 8 14 311 308 619
Savissivik (bygd) 46 26 72 0 0 0 46 26 72
Siorapaluk (bygd) 24 16 40 1 0 1 25 16 41
Qeqertat (bygd) 15 11 26 0 0 0 15 11 26
Pituffik (Station) 10 8 18 36 2 38 46 10 56
Uoplyst udenfor kommunerne 0 1 1 8 3 11 8 4 12
Se Statistikbankens tabel: BEDSTD