Incertidumbre por la escalada de precios
23/12/22
Introducción
En el siguiente trabajo vamos a desarrollar cómo durante este último año, las circunstancias han hecho que el mundo esté entrando en una espiral inflacionista que puede acabar sacudiendo la economía global.
Para nuestro trabajo de Big Data hemos decidido hablar como bien indica el título de la incertidumbre que se está viviendo actualmente en la economía mundial con la evolución de los precios y dar una posible previsión para años posteriores.
Empezamos comentando el contexto actual que está viviendo el planeta con dos gráficos: la evolución del PIB mundial y la evolución del IPC de varias economías mundiales, para poder mostrar los efectos que se están dando en la economía global.
Una vez puestos en contexto, pasamos a centrarnos más en Europa y España, mostrando un gráfico de tasas de inflación en Europa, explicando los factores determinantes de esta subida de precios y las consecuencias que están teniendo.. Después, nos centramos algo más en España, viendo los componentes más importantes que han influido al aumento del IPC, así como las diferencias con Europa.
Para terminar, mencionamos los sectores más importantes en la economía global: alimentos y energía, y la evolución que ha tenido tanto en España como en el mundo. Por último, analizamos cuales pueden ser las previsiones futuras dadas todas estas evoluciones de los últimos meses.
Primeramente, cargamos las siguientes librerias para que se pueda reproducir nuestro trabajo:
Por otro lado, los datos que vamos a utilizar están alojados en las siguientes páginas:
Contexto actual
- Pandemia COVID-19
- Invasión rusa a Ucrania
Tras la aparente recuperación de la crisis de COVID-19, podemos observar en el gráfico como hay un repunte muy alto en el crecimiento del PIB mundial que debería de ser mayor si no fuera por la guerra de Ucrania.
# prevision <- prevision %>% select(-Periodo)
# names(prevision) = c("Año", "% Variación")
# presAnnotation <- function(dygraph, x, text) {
# dygraph %>%
# dyAnnotation(x, text, attachAtBottom = TRUE, width = 60)
# }
# dygraph(prevision, main = "VARIACIÓN PORCENTUAL INTERANUAL DEL PIB MUNDIAL",
# ylab = "% VARIACIÓN") %>%
# dyOptions(pointShape = "plus", pointSize = 100, colors = "#5F9EA0", stackedGraph = TRUE) %>%
# dyLegend(show = "follow") %>%
# presAnnotation("2020", text = "GUERRA") %>%
# dyShading(from = "2019", to = "2024")
# IPC2 <- IPC %>% filter(Frequency == "Monthly") %>%
# filter(Measure == "Index") %>%
# filter(Subject == "CPI: 01-12 - All items")
# IPC2 <- IPC2 %>% select(-SUBJECT, -Subject, -MEASURE, -Measure, -FREQUENCY, -Frequency, -Unit.Code, -Unit, -PowerCode.Code)
# IPC2 <- IPC2 %>% select(-Flag.Codes, -Flags)
# IPC2 <- IPC2 %>% filter(LOCATION %in% c("CAN", "ESP", "FRA", "DEU", "JPN", "ISR", "GBR", "USA", "RUS", "KOR", "CHL", "RUS"))
# IPC2 <- IPC2 %>% mutate(time = lubridate::my(Time))
# p2 <- ggplot(IPC2, aes(x = time, y = Value, color = Country, group = Country)) + geom_line(size = 2) + labs(title = "Tasas de inflación del IPC (2015-2022)", subtitle = "(Año base: 2015 = 100)", caption = "Fuente: OCDE", x = "Año", y = "Inflación IPC") + theme_minimal() + theme(legend.position = "right")Inflación Europa
En diciembre de 2021 alcanzó el 5%. Además la inflación observada sorprendió varias veces al alza. Se esperaba que los factores que impulsaron el incremento de la inflación en 2021 desaparecieran en gran parte y disminuyera en 2022 pero la invasión rusa a Ucrania acentuó el aumento.
En el diagrama de barras se observa la evolución de las tasas de inflación en la Unión Europea.
# GRAFICO_INFLACION_ <- read_excel("./Datos/GRAFICOINFLACION.xlsx")
# names(GRAFICO_INFLACION_) <- c("Paises", "Variacion_anual")
# grafico_inflacion <- ggplot(GRAFICO_INFLACION_, aes(x=Variacion_anual, y=Paises)) + geom_bar(stat = "identity") + ggtitle("Evolución tasas de inflación en la UE") + labs(caption = "Fuente: Eurostat", x = "Variación anual", y = "Países") + theme(plot.subtitle = element_text(family = "sans"), plot.caption = element_text(family = "sans"), axis.title = element_text(family = "sans"), plot.title = element_text(family = "sans"), panel.background = element_rect(fill = "#FFDEAD"), plot.background = element_rect(fill = "#FA8072"))
# grafico_inflacionPaíses con más inflación en Europa actualmente
1º País con más inflación
| 1º PAÍS CON MÁS INFLACIÓN | ||
| País | % Inflación | Bandera |
|---|---|---|
| Turquia | 84.39 |  |
2º País con más inflación
| 2º PAÍS CON MÁS INFLACIÓN | ||
| País | % Inflación | Bandera |
|---|---|---|
| Moldavia | 31.41 |  |
3º País con más inflación
| 3º PAÍS CON MÁS INFLACIÓN | ||
| País | % Inflación | Bandera |
|---|---|---|
| Ucrania | 26.5 |  |
Turquía: La inflación por la subida de precios de las materias primas y las energías, aumento del coste de transporte…, sumado a una política de reducciones de tipo de interés llevada a cabo por el presidente de Turquía ha hecho que haya una continua espiral inflacionista dando lugar a una hiperinflación.
Moldavia: Debido a la crisis constitucional que se lleva viviendo en el país desde 2019, sumado a una crisis en el sector industrial del país, ha hecho que deban de importar la mayoría de sus productos y, a la vez que esto, se ha depreciado su moneda en un 8,3% por lo que cada vez es más caro importar y por tanto el precio final es todavía mayor.
Ucrania: En los últimos años, la economía del país se ha vuelto más vulnerable y dependiente de factores externos, sumado a la invasión de Rusia, ha hecho que la inflación se dispare debido a la escasez de los productos básicos y energías.
#Cargamos la tabla
# masinfla <- read_excel("./Datos/Libro1.xlsx")
# names(masinfla) = c("País", "% Inflación")
#Turquía
# masinfla2 <- masinfla %>% filter(País %in% c("Turquia"))
# Bandera <- "https://www.banderas-mundo.es/data/flags/emoji/apple/160x160/tr.png"
# masinfla2 <- masinfla2 %>% add_column(Bandera)
# Tabla <- masinfla2 %>% gt()
# Tabla <- Tabla %>%
# tab_header(title = md("**1º PAÍS CON MÁS INFLACIÓN**"))
# Tabla <- Tabla %>%
# tab_options(heading.background.color = "#A52A2A") %>% tab_options(heading.title.font.size = 15, column_labels.font.weight = "bold")
#Tabla <- Tabla %>%
# gt::text_transform(locations = cells_body(columns = c(Bandera)), fn = function(x) {gt::web_image(x, height = 50)}) %>% cols_align(
# align = "center")
#Moldavia
# masinfla3 <- masinfla %>% filter(País %in% c("Moldavia"))
# Bandera <- "https://www.banderas-mundo.es/data/flags/emoji/apple/160x160/md.png"
#el resto de código es igual que el anterior solo cambiando el nombre de la Tabla a Tabla2
#Ucrania
# masinfla4 <- masinfla %>% filter(País %in% c("Ucrania"))
#Bandera <- "https://www.banderas-mundo.es/data/flags/emoji/apple/160x160/ua.png"
#el resto de código es igual que el anterior solo cambiando el nombre de la Tabla a Tabla3Consecuencias
- Pérdida de poder adquisitivo
- Salarios reales menores
- La clase baja y la clase media de la población son las más afectadas. Las familias se encuentran en un momento de profundo malestar económico.
- Aumento del coste de financiación para empresas y familias
- Otra consecuencia ha sido respecto al PIB interanual que ha sufrido un severo frenazo de tres puntos, pasando de una tasa interanual del 6,8% a un 3,8%, según el dato adelantado por el INE. En términos trimestrales, la actividad ha pasado de crecer un 1,5% en el segundo trimestre a apenas un 0,2% en el tercero.
Sectores
La inflación mundial ha provocado que todos los sectores, en mayor o menor medida, hayan debido de aumentar sus costes y por tanto los precios finales que llegan al consumidor. Los sectores que consideramos más importantes para la economía global son el de los alimentos y el de la energía, que comentaremos con más profundidad más adelante.
Centrándonos ahora en España, tenemos la siguiente tabla que nos muestra cómo ha repercutido cada sector en el que se divide el IPC general en este año:
#> $tm
#> Sector vSize vColor stdErr vColorValue level x0
#> 1 Alcohol y tabaco 4.2 1 4.2 NA 1 0.7211896
#> 2 Alimentos y bebidas 15.3 1 15.3 NA 1 0.0000000
#> 3 Educacion 1.5 1 1.5 NA 1 0.8959663
#> 4 Menaje 7.7 1 7.7 NA 1 0.4460967
#> 5 Ocio y cultura 2.0 1 2.0 NA 1 0.7211896
#> 6 Otros 4.1 1 4.1 NA 1 0.8622744
#> 7 Restaurantes y hoteles 7.1 1 7.1 NA 1 0.4460967
#> 8 Sanidad 1.0 1 1.0 NA 1 0.8959663
#> 9 Transporte 8.7 1 8.7 NA 1 0.0000000
#> 10 Vestido y calzado 2.2 1 2.2 NA 1 0.7211896
#> y0 w h color
#> 1 0.4466667 0.1410848 0.5533333 #FC8D62
#> 2 0.3625000 0.4460967 0.6375000 #8DA0CB
#> 3 0.1786667 0.1040337 0.2680000 #A6D854
#> 4 0.4797297 0.2750929 0.5202703 #FFD92F
#> 5 0.0000000 0.1747767 0.2126984 #E5C494
#> 6 0.4466667 0.1377256 0.5533333 #B3B3B3
#> 7 0.0000000 0.2750929 0.4797297 #66C2A5
#> 8 0.0000000 0.1040337 0.1786667 #FC8D62
#> 9 0.0000000 0.4460967 0.3625000 #8DA0CB
#> 10 0.2126984 0.1747767 0.2339683 #E78AC3
#>
#> $type
#> [1] "index"
#>
#> $vSize
#> [1] "Inflacion"
#>
#> $vColor
#> [1] NA
#>
#> $stdErr
#> [1] "Inflacion"
#>
#> $algorithm
#> [1] "pivotSize"
#>
#> $vpCoorX
#> [1] 0.01968504 0.98031496
#>
#> $vpCoorY
#> [1] 0.01968504 0.91031496
#>
#> $aspRatio
#> [1] 2.157192
#>
#> $range
#> [1] NA
#>
#> $mapping
#> [1] NA NA NA
#>
#> $draw
#> [1] TRUE
Como vemos, los tres sectores que más le han afectado en comparación al año anterior esta subida de precios ha sido al de la alimentación, transporte y menaje.
Sector alimentario
En octubre de 2022 los alimentos tuvieron un fuerte incremento del 15,4% en términos interanuales, una tasa seis decimas superior a la del mes anterior y la mas alta desde el comienzo de la serie estadística para este grupo en enero de 1994. El banco mundial asegura que, desagregándo la subida de la inflación general, el precio de la alimentación ha crecido un 2,7% en términos reales.
Destacan el encarecimiento en comparación anual de las legumbres y hortalizas (17,9%), la leche (25,3%), el queso (16,1%), los huevos (23,6%), y la carne (ave 18,1%, vacuno 14,7% y porcino 11,2%). Como podemos ver, corresponden a productos básicos de la cesta de la compra. La demanda de los alimentos no es flexible y los compradores a pesar de tratar de modificar sus dietas o hábitos de consumo para hacer frente al aumento de los costes, no pueden prescindir de estos productos de primera necesidad.
Sector energético
La energía, el motor principal de cualquier economía, ha tenido un aumento muy considerable de precio en estos últimos meses debido al estallido del conflicto en Ucrania ha vuelto a poner patas arriba el mercado energético y la tendencia del precio de la energía. Mientras, vivimos con la incertidumbre de si Rusia puede cortar el grifo del gas en Europa. El problema reside en la duración del conflicto en Ucrania y la clara dependencia energética que existe. Dependiendo del tiempo en el que duren las amenazas, la tendencia en los precios de la energía variará de una forma u otra. Sin embargo, parece que poco a poco estas tasas de inflación están disminuyendo, es decir, siguen aumentando los precios pero más lentamente (por ahora).
Como vemos, el carbón es la materia prima que más ha variado su precio (más de un 140%), debido a que tras la crisis energética muchos países han vuelto a utilizar carbón para poder seguir produciendo energía a un coste bajo.
Por otro lado, entrado el invierno, se esperaba que el precio del gas se disparase al igual que lo lleva haciendo el de la electricidad. Sin embargo, a pesar de las continuas subidas de precios el precio del gas parece que no solo ha parado de aumentar, sino que está disminuyendo.
Por último, el petróleo y la gasolina podemos observar como también continúan disminuyendo. Sabemos que la oferta no ha aumentado, por tanto esta disminución de precio también se debe a una reducción de la demanda mundial por parte de los países importadores.
