Electricity prices for household consumers - bi-annual data (from 2007 onwards) - nrg_ind_ren

Data - Eurostat

Author

François Geerolf

Info

LAST_DOWNLOAD

Code 
tibble(LAST_DOWNLOAD = as.Date(file.info("~/iCloud/website/data/eurostat/nrg_ind_ren.RData")$mtime)) %>%
  print_table_conditional()
LAST_DOWNLOAD
2025-05-18

LAST_COMPILE

LAST_COMPILE
2025-05-18

Last

Code 
nrg_ind_ren %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2023 161

nrg_bal

Code 
nrg_ind_ren %>%
  left_join(nrg_bal, by = "nrg_bal") %>%
  group_by(nrg_bal, Nrg_bal) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()
nrg_bal Nrg_bal Nobs
REN Renewable energy sources 731
REN_ELC Renewable energy sources in electricity 731
REN_HEAT_CL Renewable energy sources in heating and cooling 731
REN_HEAT_CL_WHC Renewable energy sources in heating and cooling - waste heat and cold 24
REN_TRA Renewable energy sources in transport 731
REN_WHC_DHEAT_DCL Renewable energy sources and waste heat and cold - district heating and cooling 27

geo

Code 
nrg_ind_ren %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

time

Code 
nrg_ind_ren %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional()
time Nobs
2023 161
2022 169
2021 173
2020 148
2019 148
2018 148
2017 148
2016 148
2015 148
2014 148
2013 144
2012 144
2011 144
2010 144
2009 144
2008 144
2007 144
2006 144
2005 144
2004 140

Table

2020

Code 
nrg_ind_ren %>%
  filter(time == "2020") %>%
  left_join(nrg_bal, by = "nrg_bal") %>%
  left_join(geo, by = "geo") %>%
  select(geo, Geo, Nrg_bal, values) %>%
  spread(Nrg_bal, values) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

2019

Code 
nrg_ind_ren %>%
  filter(time == "2019") %>%
  left_join(nrg_bal, by = "nrg_bal") %>%
  left_join(geo, by = "geo") %>%
  select(geo, Geo, Nrg_bal, values) %>%
  spread(Nrg_bal, values) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}