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

Data - Eurostat

Info

LAST_DOWNLOAD

Code
tibble(LAST_DOWNLOAD = as.Date(file.info("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/eurostat/nrg_ind_ren.RData")$mtime)) %>%
  print_table_conditional()
LAST_DOWNLOAD
2024-11-05

LAST_COMPILE

LAST_COMPILE
2024-11-05

Last

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

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 693
REN_ELC Renewable energy sources in electricity 693
REN_HEAT_CL Renewable energy sources in heating and cooling 693
REN_TRA Renewable energy sources in transport 693

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
2022 148
2021 152
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 .}