---

Innuttaasut

---

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


lang <- paste0("?lang=", language) 
select <- "&select"
json <- ".json_stat2"
csv <- ".csv"

first_blank <- c(" " = 1)

table <- "Tabel"
note   <- "Se Statistikbanken tabel: "

title1 <- "1.1. Befolkning i kommuner, distrikter og lokaliteter"

id1 <- "BEDST2"
id2 <- "BEDST3"
id3 <- "BEDST4"


link1 <- "https://bank.stat.gl:443/sq/be66e20d-950c-41fd-98be-0c81e0f19417"
link2 <- "https://bank.stat.gl:443/sq/45b2ccd0-17b0-476c-b7c1-7a92cd5c7a3c" 
link3 <- "https://bank.stat.gl:443/sq/1bb5507d-07ca-4f13-a800-eb873e7c4569"


table1 <- glue("**", table, " 1.** ", fromJSON(file = glue(link1, json, lang))$label)
table2 <- glue("**", table, " 2.** ", fromJSON(file = glue(link2, json, lang))$label)
table3 <- glue("**", table, " 3.** ", fromJSON(file = glue(link3, json, lang))$label)

Inuit amerlassusaat

Tabel 1. 1. Januaarimi innuttaasut kingorna kommuni, piffissaq, suiaassuseq aamma inunngorfik

table <- 
  read_csv(
    glue::glue(link1, csv, lang),
    locale = locale(encoding = "latin1"))

column_vector <- 1:8
names(column_vector) <- c(" ",
                          fromJSON(file = glue::glue(link1, json, lang))$dimension$`place of birth`$category$label$N,
                          fromJSON(file = glue::glue(link1, json, lang))$dimension$`place of birth`$category$label$S,
                          fromJSON(file = glue::glue(link1, json, lang))$dimension$`place of birth`$category$label$T,
                          glue(fromJSON(file = glue::glue(link1, json, lang))$dimension$`place of birth`$category$label$N, " "),
                          glue(fromJSON(file = glue::glue(link1, json, lang))$dimension$`place of birth`$category$label$S, " "),
                          glue(fromJSON(file = glue::glue(link1, json, lang))$dimension$`place of birth`$category$label$T, " "),
                          glue(fromJSON(file = glue::glue(link1, json, lang))$dimension$`place of birth`$category$label$T, "  "))

header_vector <- c(1, 3, 3, 1)
names(header_vector) <- c(" ",
                          fromJSON(file = glue::glue(link1, json, lang))$dimension$gender$category$label$M,
                          fromJSON(file = glue::glue(link1, json, lang))$dimension$gender$category$label$K,
                          fromJSON(file = glue::glue(link1, json, lang))$dimension$gender$category$label$T)

table %>% 
  select(-8, -9) %>% 
  rename(column_vector) %>% 
  statgl_table() %>% 
  row_spec(1, bold = T) %>% 
  add_header_above(header_vector)

	Angutit			Arnat			Katillugit
	Kalaallit Nunaat	Kalaallit Nunaata avataani	Katillugit	Kalaallit Nunaat	Kalaallit Nunaata avataani	Katillugit	Katillugit
Katillugit	25.568	4.353	29.921	24.389	2.389	26.778	56.699
Kommune Kujalleq	2.959	269	3.228	2.775	142	2.917	6.145
Kommuneqarfik Sermersooq	9.996	2.848	12.844	9.951	1.587	11.538	24.382
Qeqqata Kommunia	4.385	461	4.846	4.098	260	4.358	9.204
Kommune Qeqertalik	3.046	172	3.218	2.752	88	2.840	6.058
Avannaata Kommunia	5.167	568	5.735	4.804	307	5.111	10.846
Kommunit avataanni	15	35	50	9	5	14	64

Se Statistikbanken tabel: BEDST2

Tabel 2. 1. Januaarimi distriktimi innuttaasut kingorna distrikti, piffissaq, suiaassuseq aamma inunngorfik

table <- 
  read_csv(
    glue::glue(link2, csv, lang),
    locale = locale(encoding = "latin1"))

column_vector <- 1:8
names(column_vector) <- c(" ",
                          fromJSON(file = glue::glue(link2, json, lang))$dimension$`place of birth`$category$label$N,
                          fromJSON(file = glue::glue(link2, json, lang))$dimension$`place of birth`$category$label$S,
                          fromJSON(file = glue::glue(link2, json, lang))$dimension$`place of birth`$category$label$T,
                          glue(fromJSON(file = glue::glue(link2, json, lang))$dimension$`place of birth`$category$label$N, " "),
                          glue(fromJSON(file = glue::glue(link2, json, lang))$dimension$`place of birth`$category$label$S, " "),
                          glue(fromJSON(file = glue::glue(link2, json, lang))$dimension$`place of birth`$category$label$T, " "),
                          glue(fromJSON(file = glue::glue(link2, json, lang))$dimension$`place of birth`$category$label$T, "  "))

header_vector <- c(1, 3, 3, 1)
names(header_vector) <- c(" ",
                          fromJSON(file = glue::glue(link2, json, lang))$dimension$gender$category$label$M,
                          fromJSON(file = glue::glue(link2, json, lang))$dimension$gender$category$label$K,
                          fromJSON(file = glue::glue(link2, json, lang))$dimension$gender$category$label$T)


table %>% 
  select(-8, -9) %>% 
  filter(table[,10] > 0) %>% 
  rename(column_vector) %>% 
  statgl_table() %>% 
  row_spec(1, bold = T) %>% 
  add_header_above(header_vector)

	Angutit			Arnat			Katillugit
	Kalaallit Nunaat	Kalaallit Nunaata avataani	Katillugit	Kalaallit Nunaat	Kalaallit Nunaata avataani	Katillugit	Katillugit
Katillugit	25.568	4.353	29.921	24.389	2.389	26.778	56.699
Nanortalik	766	31	797	656	9	665	1.462
Qaqortoq	1.464	185	1.649	1.406	104	1.510	3.159
Narsaq	729	53	782	713	29	742	1.524
Paamiut	652	29	681	562	19	581	1.262
Nuuk	7.870	2.733	10.603	7.970	1.518	9.488	20.091
Maniitsoq	1.552	113	1.665	1.378	49	1.427	3.092
Sisimiut	2.833	348	3.181	2.720	211	2.931	6.112
Kangaatsiaq	570	5	575	476	4	480	1.055
Aasiaat	1.496	146	1.642	1.351	71	1.422	3.064
Qasigiannguit	559	9	568	516	8	524	1.092
Ilulissat	2.342	450	2.792	2.269	238	2.507	5.299
Qeqertarsuaq	421	12	433	409	5	414	847
Uummannaq	1.066	70	1.136	988	45	1.033	2.169
Upernavik	1.394	37	1.431	1.224	16	1.240	2.671
Qaanaaq	365	11	376	323	8	331	707
Tasiilaq	1.289	77	1.366	1.258	41	1.299	2.665
Ittoqqortoormiit	185	9	194	161	9	170	364

Se Statistikbanken tabel: BEDST3

Tabel 3. 1. Januaarimi inoqarfinni innuttaasut kingorna inoqarfik, piffissaq, suiaassuseq aamma inunngorfik

table <- 
  read_csv(
    glue(link3, csv, lang),
    locale = locale(encoding = "latin1"))

column_vector <- 1:8
names(column_vector) <- c(" ",
                          fromJSON(file = glue::glue(link3, json, lang))$dimension$`place of birth`$category$label$N,
                          fromJSON(file = glue::glue(link3, json, lang))$dimension$`place of birth`$category$label$S,
                          fromJSON(file = glue::glue(link3, json, lang))$dimension$`place of birth`$category$label$T,
                          glue(fromJSON(file = glue::glue(link3, json, lang))$dimension$`place of birth`$category$label$N, " "),
                          glue(fromJSON(file = glue::glue(link3, json, lang))$dimension$`place of birth`$category$label$S, " "),
                          glue(fromJSON(file = glue::glue(link3, json, lang))$dimension$`place of birth`$category$label$T, " "),
                          glue(fromJSON(file = glue::glue(link3, json, lang))$dimension$`place of birth`$category$label$T, "  "))

header_vector <- c(1, 3, 3, 1)
names(header_vector) <- c(" ",
                          fromJSON(file = glue::glue(link3, json, lang))$dimension$gender$category$label$M,
                          fromJSON(file = glue::glue(link3, json, lang))$dimension$gender$category$label$K,
                          fromJSON(file = glue::glue(link3, json, lang))$dimension$gender$category$label$T)

table %>% 
    select(-8, -9) %>% 
    filter(table[,10] > 0) %>% 
    rename(column_vector) %>% 
    statgl_table() %>% 
    row_spec(1, bold = T) %>% 
    add_header_above(header_vector)

	Angutit			Arnat			Katillugit
	Kalaallit Nunaat	Kalaallit Nunaata avataani	Katillugit	Kalaallit Nunaat	Kalaallit Nunaata avataani	Katillugit	Katillugit
Nuna tamakkerlugu	25.568	4.353	29.921	24.389	2.389	26.778	56.699
Nanortalik (illoqarfik)	555	21	576	511	8	519	1.095
Aappilattoq (Kujallermi nunaqarfik)	49	1	50	32	1	33	83
Narsarmijit (2018-ip naanerani taajuut allanngorpoq)	32	1	33	25	0	25	58
Tasiusaq (Kujallermi nunaqarfik)	31	0	31	16	0	16	47
Ammassivik (nunaqarfik)	17	0	17	15	0	15	32
Alluitsup Paa (nunaqarfik)	81	6	87	54	0	54	141
Uoplyst i Nanortalik distrikt	1	2	3	3	0	3	6
Qaqortoq (illoqarfik)	1.397	181	1.578	1.366	103	1.469	3.047
Saarloq (nunaqarfik)	16	0	16	9	0	9	25
Eqalugaarsuit (nunaqarfik)	42	3	45	27	1	28	73
Qassimiut (nunaqarfik)	9	1	10	4	0	4	14
Narsaq (illoqarfik)	616	33	649	611	18	629	1.278
Igaliku (nunaqarfik)	19	2	21	12	0	12	33
Qassiarsuk (nunaqarfik)	30	2	32	29	4	33	65
Narsarsuaq (nunaqarfik)	58	16	74	60	7	67	141
Uoplyst i Narsaq distrikt	6	0	6	1	0	1	7
Paamiut (illoqarfik)	615	29	644	533	16	549	1.193
Arsuk (nunaqarfik)	37	0	37	29	3	32	69
Nuuk (illoqarfik)	7.742	2.730	10.472	7.885	1.515	9.400	19.872
Qeqertarsuatsiaat (nunaqarfik)	98	2	100	68	2	70	170
Kapisillit (nunaqarfik)	25	1	26	14	1	15	41
Uoplyst i Nuuk distrikt	5	0	5	3	0	3	8
Tasiilaq (illoqarfik)	861	62	923	873	33	906	1.829
Sermiligaaq (nunaqarfik)	105	0	105	92	1	93	198
Isertoq (nunaqarfik)	23	0	23	25	0	25	48
Kulusuk (nunaqarfik)	118	9	127	93	7	100	227
Tiilerilaaq (nunaqarfik)	43	2	45	49	0	49	94
Kuummiit (nunaqarfik)	139	4	143	126	0	126	269
Ittoqqortoormiit (illoqarfik)	185	8	193	161	9	170	363
Uoplyst i Illoqqortoormiut distrikt	0	1	1	0	0	0	1
Maniitsoq (illoqarfik)	1.253	110	1.363	1.135	49	1.184	2.547
Atammik (nunaqarfik)	102	2	104	85	0	85	189
Napasoq (nunaqarfik)	38	0	38	33	0	33	71
Kangaamiut (nunaqarfik)	159	1	160	125	0	125	285
Sisimiut (illoqarfik)	2.530	265	2.795	2.439	178	2.617	5.412
Itilleq (nunaqarfik)	43	0	43	43	0	43	86
Sarfannguit (nunaqarfik)	52	0	52	45	0	45	97
Kangerlussuaq (nunaqarfik)	208	83	291	193	33	226	517
Kangaatsiaq (illoqarfik)	252	4	256	223	4	227	483
Attu (nunaqarfik)	112	1	113	82	0	82	195
Iginniarfik (nunaqarfik)	37	0	37	31	0	31	68
Niaqornaarsuk (nunaqarfik)	124	0	124	99	0	99	223
Ikerasaarsuk (KAN)(nunaqarfik)	45	0	45	41	0	41	86
Aasiaat (illoqarfik)	1.428	146	1.574	1.306	71	1.377	2.951
Akunnaaq (nunaqarfik)	37	0	37	20	0	20	57
Kitsissuarsuit (nunaqarfik)	31	0	31	25	0	25	56
Qasigiannguit (illoqarfik)	520	9	529	479	7	486	1.015
Ikamiut (nunaqarfik)	39	0	39	37	1	38	77
Qeqertarsuaq (illoqarfik)	416	12	428	405	5	410	838
Kangerluk (nunaqarfik)	5	0	5	4	0	4	9
Ilulissat (illoqarfik)	2.170	445	2.615	2.113	235	2.348	4.963
Oqaatsut (nunaqarfik)	21	3	24	14	0	14	38
Qeqertaq (nunaqarfik)	47	0	47	50	0	50	97
Saqqaq (nunaqarfik)	83	1	84	62	2	64	148
Ilimanaq (nunaqarfik)	21	1	22	30	1	31	53
Uummannaq (illoqarfik)	660	58	718	627	38	665	1.383
Niaqornat (nunaqarfik)	13	0	13	16	0	16	29
Qaarsut (nunaqarfik)	83	3	86	80	1	81	167
Ikerasak (nunaqarfik)	117	0	117	99	0	99	216
Saattut (nunaqarfik)	121	6	127	99	5	104	231
Ukkusissat (nunaqarfik)	72	3	75	67	1	68	143
Upernavik (illoqarfik)	543	26	569	486	9	495	1.064
Upernavik Kujalleq (nunaqarfik)	105	0	105	92	0	92	197
Kangersuatsiaq (nunaqarfik)	79	0	79	45	0	45	124
Aappilattoq (Avannaani nunaqarfik)	83	0	83	74	0	74	157
Tasiusaq (Avannaani nunaqarfik)	136	3	139	118	4	122	261
Nuussuaq (nunaqarfik)	87	0	87	89	0	89	176
Kullorsuaq (nunaqarfik)	230	5	235	231	2	233	468
Naajaat (nunaqarfik)	25	0	25	18	0	18	43
Innaarsuit (nunaqarfik)	86	3	89	59	1	60	149
Nutaarmiut (nunaqarfik)	19	0	19	11	0	11	30
Ikerasaarsuk (UPE)(nunaqarfik)	1	0	1	1	0	1	2
Qaanaaq (illoqarfik)	293	10	303	279	8	287	590
Savissivik (nunaqarfik)	32	0	32	19	0	19	51
Siorapaluk (nunaqarfik)	22	1	23	12	0	12	35
Qeqertat (nunaqarfik)	17	0	17	13	0	13	30
Uoplyst i Qaanaaq distrikt	1	0	1	0	0	0	1
Pituffik (stationi)	15	27	42	8	2	10	52
Uoplyst udenfor kommunerne	0	8	8	1	3	4	12

Se Statistikbanken tabel: BEDST4

---

Sidst opdateret: 17. april 2024