---

Energy

---

Energy

Tabel 1: Actual energy consumption [Tera Joule] by product, branch and time

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")

	2017	2018	2019	2020	2021
Total	8.741	8.885	8.998	8.827	9.258
Gas oil	5.090	5.266	5.086	5.463	6.035
Gasoline	690	730	820	815	856
Kerosene / Jet Fuel	818	817	850	468	561
Diesel Fuel Arctic	190	189	170	170	170
LPG	3	3	3	3	3
Aviation Gasoline	1	1	1	0	0
Fueloil	498	302	515	282	1
Wasteoil	9	9	9	9	9
Waste heat	94	98	110	103	102
Hydropower	1.349	1.469	1.434	1.513	1.521
* Actual energy consumption

See the table in our Statbank: ENX1ACT

Tabel 2: Emission of greenhouse gases [tonnes] from energy by type, gas, product, branch and time

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")

	Carbon dioxide (CO2)	Methane (CH4)	Nitrous oxide (N2O)
2017	539.657,0	50,520	8,539
2018	540.255,4	50,933	8,675
2019	550.960,9	52,111	9,147
2020	532.903,5	52,043	8,392
2021	562.527,1	53,512	8,902
* Actual emission

See the table in our Statbank: ENX2CO2

Climate

Tabel 3: Air temperature by measuring, time, weather station and month

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")

	Average	Maximum temperature	Minimum temperature
January	-4,0	2,6	-9,8
February	-7,6	3,9	-14,8
March	-6,2	7,3	-22,2
April	-1,4	7,6	-11,8
May	1,6	12,3	-3,8
June	4,9	14,9	0,0
July	7,9	18,1	0,5
August	7,9	16,6	2,8
September	2,8	12,2	-2,3
October	0,8	7,8	-6,1
November	-3,2	6,6	-11,2
December	-1,9	12,2	-9,0
* Nuuk 2021

See the table in our Statbank: ENX1MID

Motor vehicles

Tabel 4: Registered motor vehicles by ownership, category and time

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")

	Businesses	Private households
Motor vehicles total	6.763	7.748
Taxis	175	0
Rental cars	0	0
Cars	2.250	4.299
Buser	108	0
Emergency vehicles total	216	0
Of which Fire-engines	216	0
Of which Ambulances	0	0
Vans and Trucks total	1.609	90
Of which Vans	1.161	90
Of which Trucks	448	0
Motorcycles	0	4
Construction machineries	1.186	0
Trailers	338	121
Snowmobiles	459	2.848
ATV and 4-wheeler	354	384
Other motor vehicles	68	2
* 2023

See the table in our Statbank: ENXMO1HI

---

Last updated: 06. juni 2023