---
output: pdf_document
---
```{r, echo = FALSE, message = FALSE}

FECHA <- "092015"

```


---
title: "Contabilidad Nacional de la Zona Euro"
output: pdf_document
---

<br></br>

Se presentan la variaciones trimestrales interanuales del PIB de la zona Euro junto con las variaciones trimestrales interanuales de cada uno de sus componentes desde el punto de vista de la demanda:

<br></br>
  
$$PIB = Consumo + Gasto + FBCF + VE + (Exportaciones - Importaciones)$$

<br></br>

  * **Consumo:** consumo privado por pate de los hogares de las Instituciones sin Fines de Lucro al Servicio de los Hogares (ISLSH)
  
  * **Gasto:** gasto final de las Administraciones Públicas (AAPP)
  
  * **FBCF:** Formación Bruta del Capital Fijo, constituida por los Activos fijos materiales y los inmateriales
  
  * **VE:** Variación de Existencias. Esta parte no se considera a este nivel agregado de análisis
  
  * **Exportaciones:** Exportaciones de bienes, servicios y consumo de no resientes en territorio económico
  
  * **Importaciones:** Importaciones de bienes, servicios y consumo de resientes en el resto del mundo
    
```{r, echo = FALSE, message = FALSE}

mes <- substr(FECHA, 1, 2)    
anio <- substr(FECHA, 5, 6) 

ser1 <- "BE_1_1.1"
ser2 <- "BE_1_1.2"
ser3 <- "BE_1_1.3"
ser5 <- "BE_1_1.5"
ser6 <- "BE_1_1.6"
ser8 <- "BE_1_1.8" #Contabilidad Nacional/METODOLOGÍA DEL AÑO SEC2010/
                   #Año base 2010/Volúmenes encadenados/Producto interior bruto/
                   #Empleos. Economía en su conjunto (Total de la economía)/Recursos. Economía en su conjunto (Total de la economía)/Euro área (composición variable)
                   #/Zona del Euro/Datos corregidos de efectos estacionales y de calendario


temp <- tempfile()
download.file(paste0("http://www.bde.es/f/webbde/SES/Secciones/Publicaciones/InformesBoletinesRevistas/BoletinEstadistico/",anio,"/Fich/bes",anio,"_",mes,".zip"),temp)
cat_series <- read.csv(unz(temp, "catalogo_be.csv"))
serie_sel <- read.csv(unz(temp, "be0101.csv"))
unlink(temp)

attach(serie_sel)

serie_datos_euro <- function (serie){
  
  #Se llama a la serie de datos en sí
  serie_sel_char <- as.character(get(serie))

  #Se normalizan los datos
  serie_sel_char <- ifelse(serie_sel_char == "_", "",serie_sel_char)
  serie_sel_char[1] = ""
  serie_sel_char[2] = ""
  serie_sel_char[3] = ""
  
  serie_sel_num <- as.numeric(serie_sel_char)
  serie_sel_num1 <- na.omit(as.numeric(serie_sel_char))
  
  #Se convierten los datos a serie temporal
  return (ts(serie_sel_num1, frequency = 4, start = c(1995, 1)))

}

serie1 <- serie_datos_euro(ser1)
serie2 <- serie_datos_euro(ser2)
serie3 <- serie_datos_euro(ser3)
serie5 <- serie_datos_euro(ser5)
serie6 <- serie_datos_euro(ser6)
serie8 <- serie_datos_euro(ser8)

varserie1 <- diff(serie1, lag = 4) / lag(serie1, k=-4)
varserie2 <- diff(serie2, lag = 4) / lag(serie2, k=-4)
varserie3 <- diff(serie3, lag = 4) / lag(serie3, k=-4)
varserie5 <- diff(serie5, lag = 4) / lag(serie5, k=-4)
varserie6 <- diff(serie6, lag = 4) / lag(serie6, k=-4)
varserie8 <- diff(serie8, lag = 4) / lag(serie8, k=-4)

par(mfrow=c(1, 3))

plot(varserie1, plot.type="m", col = "blue", ylab="Consumo", ylim=c(-0.125, 0.070))
abline(h = 0)
abline(v = seq(1995,2030,5))
plot(varserie2, plot.type="m", col = "blue", ylab="Gasto", ylim=c(-0.125, 0.070))
abline(h = 0)
abline(v = seq(1995,2030,5))
plot(varserie3, plot.type="m", col = "blue", ylab="FBCB", ylim=c(-0.125, 0.070))
abline(h = 0)
abline(v = seq(1995,2030,5))


datvarserie1_actual <- varserie1[length(varserie1)]
datvarserie1_maxim <- max(varserie1)
datvarserie1_medio <- mean(varserie1)
datvarserie1_minim <- min(varserie1)

datvarserie2_actual <- varserie2[length(varserie2)]
datvarserie2_maxim <- max(varserie2)
datvarserie2_medio <- mean(varserie2)
datvarserie2_minim <- min(varserie2)

datvarserie3_actual <- varserie3[length(varserie3)]
datvarserie3_maxim <- max(varserie3)
datvarserie3_medio <- mean(varserie3)
datvarserie3_minim <- min(varserie3)

datvarserie5_actual <- varserie5[length(varserie5)]
datvarserie5_maxim <- max(varserie5)
datvarserie5_medio <- mean(varserie5)
datvarserie5_minim <- min(varserie5)

datvarserie6_actual <- varserie6[length(varserie6)]
datvarserie6_maxim <- max(varserie6)
datvarserie6_medio <- mean(varserie6)
datvarserie6_minim <- min(varserie6)

datvarserie8_actual <- varserie8[length(varserie8)]
datvarserie8_maxim <- max(varserie8)
datvarserie8_medio <- mean(varserie8)
datvarserie8_minim <- min(varserie8)

datvarserie1_actual <- format(round(datvarserie1_actual * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie1_maxim <- format(round(datvarserie1_maxim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie1_medio <- format(round(datvarserie1_medio * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie1_minim <- format(round(datvarserie1_minim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")

datvarserie2_actual <- format(round(datvarserie2_actual * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie2_maxim <- format(round(datvarserie2_maxim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie2_medio <- format(round(datvarserie2_medio * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie2_minim <- format(round(datvarserie2_minim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")

datvarserie3_actual <- format(round(datvarserie3_actual * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie3_maxim <- format(round(datvarserie3_maxim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie3_medio <- format(round(datvarserie3_medio * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie3_minim <- format(round(datvarserie3_minim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")

datvarserie5_actual <- format(round(datvarserie5_actual * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie5_maxim <- format(round(datvarserie5_maxim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie5_medio <- format(round(datvarserie5_medio * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie5_minim <- format(round(datvarserie5_minim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")

datvarserie6_actual <- format(round(datvarserie6_actual * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie6_maxim <- format(round(datvarserie6_maxim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie6_medio <- format(round(datvarserie6_medio * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie6_minim <- format(round(datvarserie6_minim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")

datvarserie8_actual <- format(round(datvarserie8_actual * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie8_maxim <- format(round(datvarserie8_maxim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie8_medio <- format(round(datvarserie8_medio * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")
datvarserie8_minim <- format(round(datvarserie8_minim * 100, digits = 4), digits = 4, big.mark =  ".", decimal.mark =",")

```

  - La variación inter-anual del último dato de *Consumo* es igual a: `r datvarserie1_actual`%
  - Siendo el nivel medio de variación igual a: `r datvarserie1_medio`%
    - Con un valor mínimo de: `r datvarserie1_minim`%
    - Con un máximo de `r datvarserie1_maxim`%

<br></br>

  - La variación inter-anual del último dato de *Gasto* es igual a: `r datvarserie2_actual`%
  - Siendo el nivel medio de variación igual a: `r datvarserie2_medio`%
    - Con un valor mínimo de: `r datvarserie2_minim`%
    - Con un máximo de `r datvarserie2_maxim`%
    
<br></br>

  - La variación inter-anual del último dato de *FBCF* es igual a: `r datvarserie3_actual`%
  - Siendo el nivel medio de variación igual a: `r datvarserie3_medio`%
    - Con un valor mínimo de: `r datvarserie3_minim`%
    - Con un máximo de `r datvarserie3_maxim`%

<br></br>

```{r, echo = FALSE, message = FALSE}

par(mfrow=c(1, 1))

plot(varserie8, plot.type="m", col = "green", ylab="PIB")
abline(h = 0)
abline(v = seq(1995,2030,5))
```

  - La variación inter-anual del último dato de *PIB* es igual a: `r datvarserie8_actual`%
  - Siendo el nivel medio de variación igual a: `r datvarserie8_medio`%
    - Con un valor mínimo de: `r datvarserie8_minim`%
    - Con un máximo de `r datvarserie8_maxim`%

<br></br>

```{r, echo = FALSE}

par(mfrow=c(1, 2))
plot(varserie5, plot.type="m", col = "blue", ylab="Exportaciones", ylim=c(-0.15, 0.15))
abline(h = 0)
abline(v = seq(1995,2030,5))
plot(varserie6, plot.type="m", col = "red", ylab="Importaciones", ylim=c(-0.15, 0.15))
abline(h = 0)
abline(v = seq(1995,2030,5))
```

  - La variación inter-anual del último dato de *Exportaciones* es igual a: `r datvarserie5_actual`%
  - Siendo el nivel medio de variación igual a: `r datvarserie5_medio`%
    - Con un valor mínimo de: `r datvarserie5_minim`%
    - Con un máximo de `r datvarserie5_maxim`%
    
<br></br>

  - La variación inter-anual del último dato de *Importaciones* es igual a: `r datvarserie6_actual`%
  - Siendo el nivel medio de variación igual a: `r datvarserie6_medio`%
    - Con un valor mínimo de: `r datvarserie6_minim`%
    - Con un máximo de `r datvarserie6_maxim`%


Finalmente se ofrece una visión de la importancia relativa de los distintos componentes que forman el PIB:

```{r, echo = FALSE, message = FALSE}

#Calculo Peso de Componentes Actual

Peso_Consumo <- serie1[length(serie1)] / serie8[length(serie8)]
Peso_Gasto <- serie2[length(serie2)] / serie8[length(serie8)]
Peso_FBCF <- serie3[length(serie3)] / serie8[length(serie8)]
Peso_Exportaciones <- serie5[length(serie5)] / serie8[length(serie8)]
Peso_Importaciones <- serie6[length(serie6)] / serie8[length(serie8)]
Saldo_Exterior <- Peso_Exportaciones - Peso_Importaciones

Peso <- c(Peso_Consumo, Peso_Gasto, Peso_FBCF, Saldo_Exterior)


Peso_Consumo <- format(round(Peso_Consumo * 100, digits = 4), digits = 4,big.mark =  ".", decimal.mark =",")
Peso1 <- paste0("Consumo: ", Peso_Consumo,"%")
Peso_Gasto <- format(round(Peso_Gasto * 100, digits = 4), digits = 4,big.mark =  ".", decimal.mark =",")
Peso2 <- paste0("Gasto: ", Peso_Gasto,"%")
Peso_FBCF <- format(round(Peso_FBCF * 100, digits = 4), digits = 4,big.mark =  ".", decimal.mark =",")
Peso3 <- paste0("FBCF: ", Peso_FBCF,"%")
Peso_Saldo_Exterior <- format(round(Saldo_Exterior * 100, digits = 4), digits = 4,big.mark =  ".", decimal.mark =",")
Peso4 <- paste0("Saldo Exportador: ", Peso_Saldo_Exterior,"%")

par(mfrow=c(1, 1))
pie(Peso, col=rainbow(20), labels = c(Peso1, Peso2, Peso3, 
                                      Peso4))

```