---
title: "El cambio del uso de energías no renovables"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(ggplot2)
library(plotly)
library(dplyr)
library(tidyr)
library(readr)
library(countrycode)
library(quantmod)
library(forecast)
library(htmltools)
library(crosstalk)
library(flexdashboard)



dfuel = read_csv("C:/Users/jorge/Downloads/fossil-fuel-primary-energy.csv")
pib = read_csv("C:/Users/jorge/Downloads/pibpaises_xd.csv")
dpercent = read_csv("C:/Users/jorge/Downloads/sub-energy-fossil-renewables-nuclear.csv")
colnames(dfuel) = c("pais", "code","año", "fossil_fuels_TWh")
colnames(pib)[1] = "pais"
colnames(dpercent) = c("pais", "code", "año", "nuclear", "renovable", "fossil_fuel")
dpercent$año = as.character(dpercent$año)
dpercent
```

```{r,include=FALSE}
dfuel_spread =  spread(dfuel, key = año, value = fossil_fuels_TWh)
dfuel_spread
pib
```


```{r,include=FALSE}
#años_selec <- c("pais","code", paste( 1992:2019, sep = ""))
#pib_selec <- c("pais", paste( 1992:2019, sep = ""))
#dfuel_spread = dfuel_spread[,años_selec]
#pib = pib[,pib_selec]
pib <- subset(pib, pais %in% dfuel_spread$pais)
pib
```

```{r,include=FALSE}
dfuel_sub = subset(dfuel_spread, pais != "World")
dfuel_sub = subset(dfuel_sub, pais != "Africa")
dfuel_sub = subset(dfuel_sub, pais != "Europe")
dfuel_sub = subset(dfuel_sub, pais != "North America")
dfuel_sub = subset(dfuel_sub, pais != "Macedonia")
dfuel_sub
```
```{r,include=FALSE}
df_long = dfuel_sub %>% pivot_longer(cols = paste( 1965:2019, sep = ""), names_to = "año", values_to = "fuel")
pib_long = pib %>% pivot_longer(cols = paste( 1980:2019, sep = ""), names_to = "año", values_to = "pib")
dfp = full_join(df_long,pib_long, by = c("pais","año"))
dfpp = left_join(dfp, dpercent, by=c("pais","año","code"))
dfpp$fuel = (dfpp$fuel *1000)
dfpp$continente = countrycode(dfpp$code, origin = "iso3c", destination = "continent")
dfpp
```
Dashboard
=======================================================================
Row
-----------------------------------------------------------------------

### Grafico de Lineas Combustible fosil por continente

```{r}
dfpp_tx = highlight_key(dfpp)
lineas_cont =plot_ly(dfpp) %>%filter(!is.na(fuel)) %>% group_by(continente,año) %>% summarise(fuel_medio=mean(fuel)) %>% add_lines(x=~año , y=~fuel_medio, color =~continente)
lineas_cont
```
Row
-----------------------------------------------------------------------
### Mapa de Combustible fosil por pais
```{r}

map = dfpp[dfpp$pais != 'Iran', ] %>% filter(año >= "1992") %>% group_by(pais, año) %>% plot_geo() %>% add_trace(z= ~fuel, locations= ~pais,locationmode = "country names", colorbar = list(title = 'GWh'))
map
```
Row
-----------------------------------------------------------------------

### Grafico de area de porcentaje de consumo segun la fuente de energia| Seleccion de pais
```{r}
origen_porcentaje <- plot_ly(dfpp_tx, x = ~año, y = ~fossil_fuel, name = 'combustible fosil', type = 'scatter', mode = 'none', stackgroup = 'one', groupnorm = 'percent', fillcolor = '#440154')
origen_porcentaje = origen_porcentaje %>% add_trace(y = ~renovable, name = 'energía renovable', fillcolor = '#5ec962')
origen_porcentaje = origen_porcentaje %>% add_trace(y = ~nuclear, name = 'energía nuclear', fillcolor = '#fde725')
origen_porcentaje = origen_porcentaje %>% layout( yaxis = list(title = "porcentaje de consumo"), yaxis = list(title = "")) 

pais = filter_select("pais", "Seleción de Pais", dfpp_tx, ~pais)
origen_porcentaje = bscols(pais,origen_porcentaje,widths = 12)
origen_porcentaje
```


### Grafico barras Combustible Pib por pais
```{r}
dfp_ord = dfpp %>% filter(año >= "1992") %>% mutate(pais = forcats::fct_reorder(pais,fuel)) %>% slice_max(n = 290, order_by = fuel)

tx =  highlight_key(dfp_ord)
barras_pibfuel = tx %>% plot_ly(x = ~pais, y = ~pib, name = 'Pib',text =~pib, type = 'bar', marker = list(color = '#ADD8E6') ) %>% add_trace(y=~fuel, name = "combustible", type="bar", marker = list(color = '#98FB98')) %>% 
  layout( yaxis = list(title = "Pib|Combustible"), yaxis = list(title = "")) 

años = filter_checkbox("año", "Años", tx, ~año,inline = TRUE)
barras_pibfuel = bscols(años,barras_pibfuel,widths = 12)
barras_pibfuel
```

Mapa
=======================================================================
### Mapa de Combustible fosil por pais

```{r}
map
```