---

Energi

---

Energi

Tabel 1: Faktisk energiforbrug [Tera Joule] efter vare, branche og tid

url <- paste0("https://bank.stat.gl/api/v1/", language, "/Greenland/EN/EN20/ENX1ACT.px")

ENX1ACT_raw <- 
  url |> 
  statgl_fetch(
    type      = 0,
    product   = px_all(),
    use       = 0,
    time      = px_top(5),
    .col_code = T
  ) |> 
  as_tibble()

ENX1ACT <- 
  ENX1ACT_raw |> 
  unite(combi, use, type, sep = " ") |> 
  mutate(product = product |> fct_inorder()) |> 
  spread(time, value)

ENX1ACT |> 
  select(-1) |> 
  rename(" " = 1) |> 
  statgl_table() |> 
  row_spec(1, bold = T) |> 
  add_footnote(ENX1ACT_raw[[1]][1], notation = "symbol")

	2018	2019	2020	2021	2022
Alle energivarer	8.885	8.998	8.827	9.258	10.002
Gasolie	5.266	5.086	5.463	6.035	6.494
Motorbenzin	730	820	815	856	843
Petroleum / Jet A-1	817	850	468	561	764
Diesel Fuel Arctic	189	170	170	170	162
LPG / flaskegas	3	3	3	3	3
Flybenzin	1	1	0	0	1
Fueloil	302	515	282	1	0
Spildolie	9	9	9	9	9
Affaldsvarme	98	110	103	102	88
Vandkraft	1.469	1.434	1.513	1.521	1.639
* Faktisk energiforbrug

Se Statistikbankens tabel: ENX1ACT

Tabel 2: Emission af drivhusgasser [ton] fra energiforbrug efter type, drivhusgas, vare, anvendelse og tid

url <- paste0("https://bank.stat.gl/api/v1/", language, "/Greenland/EN/EN20/ENX2CO2.px")

ENX2CO2_raw <- 
  url |> 
  statgl_fetch(
    type      = 0,
    gas       = px_all(),
    time      = px_top(5),
    .col_code = T
  ) |> 
  as_tibble()

ENX2CO2 <- 
  ENX2CO2_raw |> 
  spread(gas, value)

ENX2CO2 |> 
  select(-1) |> 
  rename(" " = 1) |> 
  statgl_table() |> 
  add_footnote(ENX2CO2[[1]][1], notation = "symbol")

	Kuldioxid (CO2)	Lattergas (N2O)	Metan (CH4)
2018	540.255	8,68	50,9
2019	550.961	9,15	52,1
2020	532.904	8,39	52,0
2021	562.527	8,90	53,5
2022	609.204	10,00	56,1
* Faktisk emission

Se Statistikbankens tabel: ENX2CO2

Klima

Tabel 3: Lufttemperatur efter måling, tid, vejrstation og måned

url <- paste0("https://bank.stat.gl/api/v1/", language, "/Greenland/EN/EN30/ENX1MID.px")

ENX1MID_raw <- 
  url |> 
  statgl_fetch(
    measuring         = px_all(),
    time              = px_top(),
    "weather station" = 5,
    month             = px_all(),
    .col_code         = T
  ) |> 
  as_tibble()

ENX1MID <- 
  ENX1MID_raw |> 
  mutate(month = month |> fct_inorder(),
         measuring = measuring |> fct_inorder()) |> 
  spread(measuring, value) |> 
  unite(combi, `weather station`, time, sep = " ")
  
ENX1MID |> 
  select(-1) |> 
  rename(" " = 1) |> 
  statgl_table() |> 
  add_footnote(ENX1MID[[1]][1], notation = "symbol")

	Middeltemp.	Maximum temperatur	Minimum temperatur
Januar	-4,0	2,6	-9,8
Februar	-7,6	3,9	-14,8
Marts	-6,2	7,3	-22,2
April	-1,4	7,6	-11,8
Maj	1,6	12,3	-3,8
Juni	4,9	14,9	0,0
Juli	7,9	18,1	0,5
August	7,9	16,6	2,8
September	2,8	12,2	-2,3
Oktober	0,8	7,8	-6,1
November	-3,2	6,6	-11,2
December	-1,9	12,2	-9,0
* Nuuk 2021

Se Statistikbankens tabel: ENX1MID

Motorkøretøjer

Tabel 4: Registrerede motorkøretøjer efter ejer, kategori og tid

url <- paste0("https://bank.stat.gl/api/v1/", language, "/Greenland/EN/EN40/ENXMO1HI.px")

ENXMO1HI_raw <- 
  url |> 
  statgl_fetch(
    ownership = 1:2,
    category  = px_all(),
    time      = px_top(),
    .col_code = T
  ) |> 
  as_tibble()

ENXMO1HI <- 
  ENXMO1HI_raw |> 
  mutate_all(~replace(., is.na(.), 0)) |> 
  mutate(category = category |> fct_inorder()) |> 
  spread(ownership, value)

ENXMO1HI |> 
  select(-time) |> 
  rename(" " = 1) |> 
  statgl_table() |> 
  row_spec(1, bold = T) |> 
  add_footnote(ENXMO1HI[[2]][1], notation = "symbol")

	Erhverv	Private husholdninger
Motorkøretøjer i alt	6.763	7.748
Hyrevogne	175	0
Udlejningsbiler	0	0
Personbiler	2.250	4.299
Busser	108	0
Udrykningskøretøjer i alt	216	0
Heraf Brandkøretøjer	216	0
Heraf Sygebiler	0	0
Vare- og lastbiler i alt	1.609	90
Heraf Varebiler	1.161	90
Heraf Lastbiler	448	0
Motorcykler	0	4
Entreprenørmaskiner	1.186	0
Påhængsvogne	338	121
Snescootere	459	2.848
ATV og 4-hjuler	354	384
Øvrige køretøjer	68	2
* 2023

Se Statistikbankens tabel: ENXMO1HI

---

Sidst opdateret: 17. april 2024