---
title: "Islas Canarias: observatorio de la energía"
# author: "MRC Data Analytics Team"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    theme: default
    social: menu
    source_code: embed
# Available themes include: default, cerulean, journal, flatly, darkly, readable, spacelab, united, cosmo, lumen, paper, sandstone, simplex, yeti
editor_options: 
  markdown: 
    wrap: 72
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(
	echo = FALSE,
	message = FALSE,
	warning = FALSE
)
library(pacman)
p_load(CGPfunctions, DT, dygraphs, easystats, flexdashboard, flextable, ggblanket, ggbeeswarm, ggbump, ggeasy, ggiraph, ggmosaic, gt, hrbrthemes, here, janitor, knitr, leaflet, lessR, patchwork, readxl, scales, skimr, tidyverse, viridis, wesanderson)
```

# Sidebar {.sidebar}

Este informe ha sido preparado por [**MRC Data Analytics
Teams**](data_analytics@mrc-consultants.com).

**Madrid, junio 2023**

------------------------------------------------------------------------

Se presentan en este *dashboard* los principales datos estadísticos
energéticos extraídos de fuentes oficiales y que marcan la evolución
histórica del sector energético de Canarias.

Cada una de las tablas y gráficos generados se presentan en
subcategorías en función del elemento de la cadena de valor de la
energía a la que pertenecen.

El objetivo de este *dashboard* es centralizar los datos de evolución
del sector energético de Canarias en una única página, mejorando el
acceso a la información al ciudadano.

Se agrupan en las siguientes subcategorías los datos estadísticos
extraídos:

-   Mapa interactivo de indicadores Socioeconómicos

-   Demanda de energía

-   Hidrocarburos

-   Energía eléctrica

-   Red de distribución

-   Energías renovables

-   Movilidad

-   Emisiones

-   Precios

# Socioeconómicos {data-icon="fa-list" data-orientation="rows"}

## Row {.tabset .tabset-fade data-height="1000"}

### **PIB Canarias**

```{r pib islas, fig.height=8, fig.width=12}
source(here("scripts", "pib islas plot.R"), local = knitr::knit_global())
pib_islas_plot
```

### **PIB Canarias-España**

```{r pib canarias espana, fig.height=8, fig.width=12}
source(here("scripts", "pib canarias espana plot.R"), local = knitr::knit_global())
pib_can_esp_plot
```

### **Población Canarias**

```{r poblacion canarias, fig.height=8, fig.width=12}
source(here("scripts", "pobl islas plot.R"), local = knitr::knit_global())
pobl_islas_plot
```

### **Población Canarias-España**

```{r poblacion canarias espana, fig.height=8, fig.width=12}
source(here("scripts", "pobl canarias espana plot.R"), local = knitr::knit_global())
pobl_can_esp_plot
```

# Demanda {data-icon="fa-list" data-orientation="rows"}

## Row {.tabset .tabset-fade data-height="1000"}

### **Energía primaria y final**

```{r primaria y final, fig.height=8, fig.width=12}
source(here("scripts", "demanda primaria y final plot.R"), local = knitr::knit_global())
energia_primaria_plot / energia_final_plot
```

### **Energía primaria y final per cápita**

```{r primaria y final per capita, fig.height=8, fig.width=12}
source(here("scripts", "demanda primaria y final capita plot.R"), local = knitr::knit_global())
energia_primaria_capita_plot / energia_final_capita_plot
```

### **Intensidad energética**

```{r intensidad energética, fig.height=8, fig.width=12}
source(here("scripts", "intensidad energetica.R"), local = knitr::knit_global())
iep_plot / ief_plot
```

# Hidrocarburos {data-icon="fa-list" data-orientation="rows"}

## Row {.tabset .tabset-fade data-height="1000"}

### **Entregas por producto y grupo**

```{r entregas producto grupo, fig.height=8, fig.width=12}
source(here("scripts", "entregas grupo plot.R"), local = knitr::knit_global())
entregas_grupo_plot
```

# Electricidad {data-icon="fa-list" data-orientation="rows"}

## Row {.tabset .tabset-fade data-height="1000"}

### **Demanda total**

```{r demanda canarias, fig.height=8, fig.width=12}
source(here("scripts", "demanda electr canarias plot.R"), local = knitr::knit_global())
demanda_mes_canarias_plot
```

### **Demanda año-mes**

```{r tabla demanda canarias, fig.height=8, fig.width=12}
source(here("scripts", "demanda electr canarias tabla plot.R"), local = knitr::knit_global())
tabla_demanda_mes_anho
```

### **Demanda anual**

```{r demanda anual electricidad, fig.height=8, fig.width=12}
source(here("scripts", "evolucion anual demanda plot.R"), local = knitr::knit_global())
evolucion_demanda_anual_islas_plot
```

### **Demanda mensual**

```{r demanda mes electricidad, fig.height=8, fig.width=12}
source(here("scripts", "evolucion mes demanda plot.R"), local = knitr::knit_global())
demanda_mes_islas_plot
```

### **Cobertura demanda**

```{r cobertura demanda, fig.height=12, fig.width=21}
source(here("scripts", "cobertura demanda plot.R"), local = knitr::knit_global())
source(here("scripts", "generacion eerr no eerr plot.R"), local = knitr::knit_global())
gen_eerr_noeerr_plot + cobertura_plot
```

### **Potencia y puntas**

```{r potencia y puntas, fig.height=8, fig.width=12}
source(here("scripts", "puntas demanda plot.R"), local = knitr::knit_global())
source(here("scripts", "potencia por tipo plot.R"), local = knitr::knit_global())
potencia_neta_tipo / puntas_demanda_plot
```

### **Potencia y generación**

```{r pot y gen canarias, fig.height=8, fig.width=12}
source(here("scripts", "potencia y generacion canarias plot.R"), local = knitr::knit_global())
potencia_canarias_plot / generacion_canarias_plot + plot_annotation(caption = "Fuente: REE")
```

### **Red de AT**

```{r subestaciones y líneas, fig.height=8, fig.width=12}
source(here("scripts", "subestaciones plot.R"), local = knitr::knit_global())
source(here("scripts", "lineas plot.R"), local = knitr::knit_global())
subestaciones_plot + lineas_plot
```

### **Calidad - TIEPI**

```{r tiepi, fig.height=8, fig.width=12}
source(here("scripts", "tiepi plot.R"), local = knitr::knit_global())
tiepi_plot_1 / tiepi_plot_2
```

### **Calidad - TIM**

```{r tim, fig.height=8, fig.width=12}
source(here("scripts", "tim plot.R"), local = knitr::knit_global())
tim_plot
```

# Renovables {data-icon="fa-list" data-orientation="rows"}

## Row {.tabset .tabset-fade data-height="1000"}

### **% inyección de EERR por isla**

```{r pcte eerr, fig.height=8, fig.width=12}
source(here("scripts", "pcte eerr islas plot.R"), local = knitr::knit_global())
pcte_EERR_plot
```

### **Evolución anual de EERR**

```{r potencia anual eerr, fig.height=8, fig.width=12}
source(here("scripts", "potencia anual eerr plot.R"), local = knitr::knit_global())
potencia_anual_eerr_plot
```

### **Producción de EERR (2022)**

```{r produccion eerr, fig.height=8, fig.width=12}
source(here("scripts", "prod eerr plot.R"), local = knitr::knit_global())
prod_eerr_plot
```

### **Producción de EERR, % (2022)**

```{r produccion eerr pcte, fig.height=8, fig.width=12}
source(here("scripts", "prod eerr pcte plot.R"), local = knitr::knit_global())
prod_eerr_pcte_plot
```

# Precios {data-icon="fa-list" data-orientation="rows"}

## Row {.tabset .tabset-fade data-height="1000"}

### **Precio medio anual petróleo**

```{r precio petróleo año, fig.height=8, fig.width=12}
source(here("scripts", "precio anual petroleo.R"), local = knitr::knit_global())
precio_anual_petroleo_plot
```

### **Precio medio mensual petróleo**

```{r precio petróleo mes, fig.height=8, fig.width=12}
source(here("scripts", "precio mes petroleo.R"), local = knitr::knit_global())
precio_petr_mes_plot
```

### **Precio máx. GLP**

```{r precio max glp, fig.height=8, fig.width=12}
source(here("scripts", "precio glp.R"), local = knitr::knit_global())
precio_max_glp
```

# Fuentes {data-icon="fa-list" data-orientation="rows"}

## Row

### **Fuentes estadísticas**

**ENERGÉTICAS**

-   [Agencia Internacional de la Energía
    (IEA)](https://www.iea.org/data-and-statistics?country=WORLD&fuel=Energy%20supply&indicator=TPESbySource)

-   [EUROSTAT](https://ec.europa.eu/eurostat/web/energy)

-   [Ministerio de Transición Ecológica y Reto
    Demográfico](https://energia.gob.es/es-es/Paginas/estadisticas-informes.aspx)

-   [Estadísticas Red Eléctrica de
    España](https://www.ree.es/es/datos/aldia)

-   [Estadísticas e-SIOS (Sistemas no
    peninsulares)](https://www.esios.ree.es/es/generacion-y-consumo/sistemas-no-peninsulares)

-   [Estadísticas de productos petrolíferos
    (CNMC)](https://www.cnmc.es/estadistica/estadistica-de-productos-petroliferos-cnmc)

-   [Estadísticas CORE](https://www.cores.es/es/estadisticas)

-   [Estadísticas ISTAC
    (Energía)](http://www.gobiernodecanarias.org/istac/estadisticas/sectorsecundario/industria/energia/)

-   [Estadísticas Gorona del Viento El Hierro,
    S.A.](http://www.goronadelviento.es/transparencia/informacion-estadistica/)

**GASES DE EFECTO INVERNADERO**

-   [Inventario Nacional de Gases de Efecto Invernadero
    (GEI)](https://www.miteco.gob.es/es/calidad-y-evaluacion-ambiental/temas/sistema-espanol-de-inventario-sei-/Inventario-GEI.aspx)

-   [EUROSTAT Green House Gas (GHG)
    emissions](https://ec.europa.eu/eurostat/databrowser/view/sdg_13_10/default/table?lang=en)

**GENERALES**

-   [ISTAC](https://www3.gobiernodecanarias.org/istac/indicators-visualizations/indicatorsSystems/C00075A.html)

-   [INE](https://www.ine.es/)