Análisis de la economía griega

Sergio Escorcia Torres(seresto@alumni.uv.es)

---

Trabajo elaborado para la asignatura “Programación y manejo de datos en la era del Big Data” de la Universitat de València durante el curso 2020-2021. El repo del trabajo está aquí. La página web de la asignatura y los trabajos de mis compañeros pueden verse aquí.

1. INTRODUCCIÓN

El objetivo del trabajo es entender la economía griega, estudiando su evolución así como sus variables macroeconómicas más importantes entendiendo las causas que han provocado esta evolución. Analizar las políticas fiscales (la evolución y situación actual de la misma tras la crisis financiera), la evolución de uno de sus sectores más importantes como es el turismo (y mostrar algunos de los lugares mas bonitos) y el impacto que ha tenido el COVID en este, etc.

Posición geográfica de Grecia

Grecia se sitúa en la parte sureste de Europa, su capital es Atenas y es un país conocido por la cantidad de turistas que atrae cada año. Gran parte del territorio griego está formado por islas y un país muy montañoso (es el país de Europa con mas picos montañosos) donde predomina el clima mediterráneo.

Mostramos en un mapa las principales ciudades griegas:

Mapa

Código

posicion_grecia <- leaflet() %>% addTiles() %>% setView(lng = 21.824312, lat = 39.074208, zoom = 6) %>% addMarkers(lng = c(23.7308, 22.93086, 25.14341, 21.73444), lat = c(37.9816, 40.64361, 35.32787, 38.24444), popup = c("Atenas", "Salónica", "Heraklion", "Patrasse")) %>% addPopups(lng = 23.7308, lat = 37.9816, popup = "Atenas") 

#- creamos el gráfico que muestre las ciudades más importantes, pero que la capital aparezca marcada desde el inicio

posicion_grecia

2. SECTOR EXTERIOR DE GRECIA.

Balanza de pagos

En primer lugar vamos a estudiar la evolución de la balanza de pagos de Grecia (representada en negro). Observamos que en el periodo anterior a la crisis la balanza por cuenta corriente (que mide la diferencia entre exportaciones e importaciones de bienes y servicios) era muy deficitaria, pero debido al fuerte impacto que tuvo la crisis financiera empezada en Grecia, las importaciones de bienes y servicios cayeron en mayor medida de lo que hicieron las exportaciones (es decir, la mejora de la balanza por cuenta corriente fué debida al menor poder adquisitivo de los ciudadanos griegos mas que a una mejora de las exportaciones).

El saldo deficitario de la balanza por cuenta corriente obliga a un superavit en la cuenta de activos, por ello la cuenta financiera (la que mide la diferencia entre exportaciones e importaciones de activos) griega es positiva y sigue la evolución inversa a la balanza por cuenta corriente. La cuenta de capitales tiene un peso bastante menor en la balanza de pagos y siempre ha mostrado un superávit. La cuenta de errores y omisiones mide las transacciones que no han sido incluidas en el resto de las balanzas y se incluye porque la suma de las 3 balanzas que conforman la balanza de pagos (cuenta corriente, financiera y de capitales) han de sumar 0.

Gráfico

Observamos que con la moderación del déficit por cuenta corriente el superávit por cuenta financiera también se modera, mostrando ambas balanzas un saldo mas equilibrado aunque sin llegar a ser positiva. Entre los sectores exportadores más importantes de Grecia está el turismo, el cual estudiaremos como ha evolucionado en su periodo más reciente mas adelante, además de la metalúrgia, los productos químicos, el tabaco y productos textiles.

Código del gráfico

grafico_balanza_pagos <- datos_balanza_pago %>% ggplot(aes(x = Año, group = 1)) +           geom_line(aes(x = Año, y = Cuenta_corriente), colour = "green1") +
  geom_line(aes(x = Año, y = Cuenta_financiera), colour = "orange") + 
  geom_line(aes(x = Año, y = Cuenta_capital), colour = "blue") +
  geom_line(aes(x = Año, y = Cuenta_errores), colour = "red") + 
  geom_line(aes(x = Año, y = Balanza_pagos), colour = "black") +
  theme_solarized() +
  scale_x_continuous(breaks = seq(2008, 2019, 2))
  labs(
    title = "Balanza de pagos de Grecia",
    subtitle = "Periodo 2008-2019, US$ actuales",
    caption = "Datos provenientes de KNOEMA",
    y = "Nivel de las balanzas"
  )
grafico_balanza_pagos

Preparación de datos

#- En este caso como la preparación de datos ocupa mucho como para ponerlo junto al código del gráfico, lo pongo por separado

datos_grecia <- rio::import("./datos/BANCO MUNDIAL/DATOS_GRECIA.xls") %>% select(-c("Country Code", "Indicator Code", "Country Name")) %>% rename(Indicador = "Indicator Name") 

datos_zona_euro <- rio::import("./datos/BANCO MUNDIAL/ZONA EURO.xls") %>% select(-c("Country Code", "Indicator Code", "Country Name")) %>% rename(Indicador = "Indicator Name")

#- importamos los datos de Grecia del Banco Mundial, nos quedamos con las variables que nos interesan y renombramos el resto

datos_balanzas_pago_cc <- rio::import("./datos/BALANZA DE PAGOS/CUENTA_CORRIENTE.xlsx") %>% select(-c("CAMBIAR, %"))
datos_balanzas_pago_cf <- rio::import("./datos/BALANZA DE PAGOS/CUENTA FINANCIERA.xlsx") %>% select(-c("CAMBIAR, %")) 
datos_balanzas_pago_ck <- rio::import("./datos/BALANZA DE PAGOS/CUENTA DE CAPITAL.xlsx") %>% select(-c("CAMBIAR, %"))
datos_balanzas_pago_ce <- rio::import("./datos/BALANZA DE PAGOS/CUENTA ERRORES.xlsx") %>% select(-c("CAMBIAR, %"))

datos_balanza_pago1 <- merge(datos_balanzas_pago_cc, datos_balanzas_pago_cf, by = "FECHA") %>% rename(Cuenta_corriente = "VALOR.x", Cuenta_financiera = "VALOR.y")
datos_balanza_pago2 <- merge(datos_balanza_pago1, datos_balanzas_pago_ck, by = "FECHA") %>% rename(Cuenta_capital = "VALOR")  
datos_balanza_pago <- merge(datos_balanza_pago2, datos_balanzas_pago_ce, by = "FECHA")  %>% rename(Cuenta_errores = "VALOR", Año = "FECHA") %>% mutate(Cuenta_financiera = - Cuenta_financiera, Balanza_pagos = Cuenta_corriente + Cuenta_financiera + Cuenta_capital + Cuenta_errores) 

#- importamos las distintas balanzas de Grecia, las unimos en un solo DF y creamos la variable balanza de pagos

Destino exportaciones

Ahora vemos los principales destinos de las exportaciones griegas durante los años finales de la crisis:

TABLA

Países receptores de las exportaciones griegas

País importador	2010	2011	2012	2013	2014
Turquía	1.140.550.738	2.303.212.811	3.435.646.248	4.250.341.626	4.334.775.889
Italia	2.250.927.601	2.798.266.455	2.534.619.194	3.070.466.248	3.155.823.150
Alemania	2.207.925.276	2.279.645.252	2.142.839.645	2.299.013.187	2.315.844.180
Bulgaria	1.376.620.463	1.643.649.251	1.904.960.122	1.802.809.953	1.767.240.794
Chipre	1.531.591.107	1.795.837.765	1.673.728.957	1.495.290.265	1.614.683.238
Reino Unido	1.109.737.848	1.160.532.629	1.055.137.879	1.273.683.250	1.270.646.299
Estados Unidos	829.877.823	1.518.624.660	1.150.437.333	1.176.272.558	1.019.274.291
Francia	797.156.010	852.435.799	828.845.348	829.571.986	860.808.788
Rumania	774.551.048	807.021.044	715.965.853	790.288.720	834.755.595
Macedonia	416.921.918	530.794.165	637.832.968	987.288.959	934.353.887
Resto del mundo	7.884.982.746	11.354.841.302	13.684.085.134	15.984.841.834	15.497.584.586
Total	20.320.842.579	27.044.861.133	29.764.098.681	33.959.868.586	33.605.790.697

Observamos como Turquía se convierte en principal receptor de las exportaciones griegas, seguido por Italia y Alemania. Si representamos en un mapa los países que mas exportaciones compran a Grecia:

CÓDIGO

tabla_destino_exportaciones <- destino_exportaciones
  
knitr::kable(tabla_destino_exportaciones,
  format.args = list(decimal.mark = ",", big.mark = "."),
  align = "c",
  caption = "Países receptores de las exportaciones griegas"
) %>% kable_styling(fixed_thead = list(enabled = T, background = "red")) %>% row_spec(12, background = "blue", color = "white") %>% row_spec(11, color = "orange")

Otra forma de visualizar estos datos

Mostramos en un mapa, en donde el mayor tamaño del punto en cada país representa un número mayor de exportaciones que van destinadas a estos países.

MAPA

Vemos como la mayoría de los países que más importan productos y servicios griegos están próximos a Grecia, seguramente por los bajos costes de transporte a estos países. Este es el caso de Rumania, Bulgaria, Macedonia, Turquía, Chipre e Italia. El comercio tan alto con Italia, Turquía y Chipre es debido a la potente industria naviera griega la cual abarata el transporte de productos a estos países.

Es en parte esta gran ventaja competitiva que tiene Grecia en su industria naval que le permite ser muy competitiva en varios productos que se pueden transportar de esta forma, las exportaciones textiles se benefícian en gran parte de ello.

CÓDIGO

world <- rnaturalearth::ne_countries(scale = "medium", returnclass = "sf")

#- creamos el df con los datos geográficos de los países que aparecen en la tabla

paises <- data.frame(
  pais = c("Turquía", "Italia", "Alemania", "Bulgaria", "Chipre", "Reino Unido", "Estados Unidos", "Francia", "Rumania", "Macedonia", "Grecia"),
  longitude = c(35.24, 12.57, 10.45, 25.49, 33.43, -3.44, -95.71, 2.21, 24.97, 21.74, 21.82),
  latitude = c(38.96, 41.87, 51.17, 42.73, 35.13, 55.38, 37.09, 46.23, 45.94, 41.61, 39.07),
  exportaciones_2014 = c(4334775889, 3155823150, 2315844180, 1767240794, 1614683238, 1270646299, 1019274291, 860808788, 834755595, 934353887, 0)
)

#- hacemos el mapa

mapa <- world %>% ggplot() + geom_sf(fill = "antiquewhite") + 
  coord_sf(xlim = c(-15, 45), ylim = c(30, 60), expand = FALSE) +
  geom_point(data = paises, aes(x = longitude, y = latitude, size = exportaciones_2014)) +
  geom_text(data = paises, aes(x = longitude +6, y = latitude, label = pais)) +
  theme_solarized() +
  labs(
    title = "Distribución de las exportaciones griegas (2014)",
    caption = "Datos provenientes de KNOEMA",
    x = "Longitud",
    y = "Latitud",
    size = "Exportaciones"
  )
mapa

3. SECTOR TURÍSTICO GRIEGO

En este apartado analizamos como ha afectado el coronavirus a uno de sus sectores mas importantes como es el turismo y la reacción del gobierno griego para hacer frente a la crisis del coronavirus.

El turismo se ha visto afectado negativamente para todos los países por las restricciones internacionales sobre la movilidad adoptadas por los países para hacer frente a la pandemia. Las economías que tienen altos niveles de turismo se han visto afectadas, ya que el turismo también influye en otros sectores de la economía, como la restauración y la hostelería.

Sin embargo, como veremos a continuación, el sector turístico en Grecia es más importante de lo que lo es para el resto de países de la zona euro y es un sector estratégico para la economía griega, al ser una de las princiales fuentes de ingresos de la misma.

Peso del turismo en la economía griega

Peso sobre las exportaciones

El turismo siempre ha representado una gran proporción de la balanza comercial griega, en el gráfico a continuación comparamos el peso porcentual que tiene el turismo internacional sobre las exportaciones con la media de los países de las zona euro, donde las barras rojas representan los datos de la eurozona (media de los países de la zona euro) y las azules los de Grecia.

Observamos que claramente el sector turístico griego tiene un peso mayor sobre la economía nacional (sobre un 30% de las exportaciones griegas y sobre un 8% del PIB) que la que tiene para la media de los países de la eurozona (sobre un 7,5% de sus exportaciones).

Esto ha contribuido a que la crisis del coronavirus haya tenido un mayor impacto en la economía griega que en el resto de países. El PIB de Grecia ha caído un 8% debido a esto, según reportan informes, por ponerlo en contexto, para España que es un país donde el turismo representa una gran fuente de ingresos ha sido de un 3’3%. Para frenar la caída del PIB el gobierno griego aprobó la supresión del IVA hasta marzo de 2021.

Se calcula (no existen todavía cifras oficiales) que el turismo va a caer en Grecia un 75% durante este año: un 80% para el turimsmo internacional y un 45% el turismo de interior.

Código

turismo_grecia <- rio::import("./BANCO MUNDIAL/API_GRC_DS2_es_excel_v2_1873453.xls") %>% rename(Indicador = "Indicator Name") %>% filter(Indicador == "Turismo internacional, recibos (% del total de exportaciones)") %>% select(-c("Indicator Code", Indicador, "Country Code", "Country Name")) %>% pivot_longer(cols = everything(), names_to = "Año", values_to = "Turismo_Grecia")

turismo_eurozona <- rio::import("./BANCO MUNDIAL/API_EMU_DS2_es_excel_v2_1882537.xls") %>% rename(Indicador = "Indicator Name") %>% filter(Indicador == "Turismo internacional, recibos (% del total de exportaciones)") %>% select(-c("Indicator Code", Indicador, "Country Code", "Country Name")) %>% pivot_longer(cols = everything(), names_to = "Año", values_to = "Turismo_Eurozona")

#- importamos los datos de los 2 excels

turismo <- merge(turismo_grecia, turismo_eurozona, by ="Año") %>% drop_na()

#- unimos ambos excels en uno solo

grafico_turismo <- turismo %>% ggplot() + geom_bar(aes(x = Año, y = Turismo_Grecia), colour = "blue", stat = "identity", fill = "blue") + geom_bar(aes(x = Año, y = Turismo_Eurozona), stat = "identity", colour = "black", fill = "red") + theme_solarized() + theme(axis.text.x = element_text(angle = 90, hjust = 1)) + labs(title = "Turismo sobre el total de las exportaciones, \ncomparación con Europa", x = "Año", y = "Porcentaje de turismo sobre las exportaciones", caption = "Datos provenientes del Banco Mundial") 
grafico_turismo 

#- representamos el gráfico

Sitios más visitados

Acrópolis de Atenas

Es el monumento griego más emblemático, ha sufrido incendios, guerras y derrumbes pero sigue conservando su encanto para los turistas.

Partenón

Templo de mármol blanco y en proceso de restauración desde 1841, es el segundo lugar más visitado de Grecia tras la Acrópolis.

Meteora

Su nombre en español significa “Monasterios caídos del cielo”, están clasificados como Patrimonio de la Humanidad desde 1988 por la UNESCO.

Vídeo sobre Grecia

Incluyo también un video de algunos de los sitios más bonitos de Grecia que me ha parecido interesante.

Respuesta a la caída del PIB por el COVID

La crisis del coronavirus llega a Grecia en un momento crítico, con la política fiscal limitada en gran parte debido al alto nivel de deuda y con la política monetaria en manos del BCE. Como hemos comentado, la caída del turismo debido a las restricciones de movimiento ha tenido un fuerte impacto en Grecia debido a la gran depedencia de este sector por parte de la economía.

En este apartado estudiamos los mecansimos de respuesta que ha adoptado Grecia para hacer frente a los problemas económicos.

Política fiscal

La política fiscal griega se encuentra limitada debido al alto nivel de deuda que acumula Grecia desde el periodo anterior a la crisis financiera de 2007. Como observamos en el siguiente gráfico animado, el nivel de deuda de Grecia se encuentra muy por encima de la media de la zona euro:

Gráfico deuda griega

El nivel de deuda griega comienza a elevarse a partir de 1980, observamos como los ya altos niveles de deuda (ya se encontraban en torno al 100% del PIB antes de la crisis financiera de 2007) se elevan todavía más durante la crisis financiera. Este hecho puso en jaque la economía griega, así como su estancia en el euro y tuvo que ser rescatada.

El elevado nivel de deuda que arrastra hasta día de hoy limita mucho el gasto público que puede aplicar el gobierno, ya que se enfrenta a restricciones por parte de la eurozona.

El gobierno griego venía aplicando una bajada de impuestos desde desde la reforma fiscal de 2019 y que se ha visto acelerada con la crisis del coronavirus, ya que el gobierno griego ha eliminado el IVA como impuesto hasta marzo de 2021 como medida para fomentar el consumo y impulsar la economía.

Código

deuda_grecia <- rio::import("./datos/datosmacro/DEUDA GRECIA.xlsx") %>% rename(Año = Fecha, Deuda_Sobre_PIB = "Deuda (%PIB)") %>% select(Año, Deuda_Sobre_PIB)

grafico_deuda_grecia <- deuda_grecia %>% ggplot(aes(x = Año, y = Deuda_Sobre_PIB/100, group = 1)) + geom_line() + theme_solarized() + labs(title = "Deuda externa griega sobre el PIB", x = "Año", y = "Porcentaje de deuda sobre el PIB", caption = "Datos provenientes de datosmacro") + scale_y_continuous(labels = scales::percent) + transition_reveal(Año)

animate(grafico_deuda_grecia, nframes = 60, duration = 3)

4. CONCLUSIÓN

Pese a que la economía griega no pasa una buena racha desde el periodo anterior a la crisis financiera de 2007 y con la presente crisis por el coronavirus, que hemos comentado durante el trabajo, Grecia sigue siendo uno de los países preferidos por los turistas por sus maravillosos lugares y no cabe duda que el turismo recuperará sus niveles anteriores a la pandemia.

Durante el trabajo hemos comentado los desequilibrios macroeconómicos por cuenta corriente y deuda pública de Grecia, aunque también hemos comentado cosas positivas derivadas del turismo y la evolución de este por la pandemia.

5. BIBLIOGRAFÍA

Me he basado en algunos artículos y webs como:

El Confidencial. (2020). La crisis del turismo por el covid le cuesta más a España que a Francia e Italia juntas

The Economic Times. (2020). Greek economy may contract 11% percent in 2020, central bank says

20minutos. (2020). España sube los impuestos en plena pandemia… mientras el resto de los países de Europa los baja

Expansion, datosmacro

Banco Mundial. (2020). Grecia | Data - Datos de libre acceso del Banco Mundial

KNOEMA

GTP Headlines Greece. (2020). Pandemic Costs Greece €15bn in Tourism Revenues