Código
<- 5000
precio_2020 <- 6500
precio_2025 <- (precio_2025 / precio_2020) * 100
indice_precio indice_precio
[1] 130
En estadística económica, los números índice son herramientas fundamentales que permiten analizar y comparar la evolución de fenómenos económicos a lo largo del tiempo. Entre los más usados se encuentran los índices de precios, que sirven para medir la inflación, el poder de compra, y la evolución de los ingresos reales.
Un número índice mide el cambio relativo en una magnitud económica entre dos períodos. Se expresa generalmente en forma de porcentaje y toma un valor base de 100.
\[ I = \left( \frac{V_t}{V_0} \right) \times 100 \]
Donde:
<- 5000
precio_2020 <- 6500
precio_2025 <- (precio_2025 / precio_2020) * 100
indice_precio indice_precio
[1] 130
Interpretación: El índice resultante es 130, lo cual indica un incremento del 30% respecto al periodo base (2020).
El precio relativo es la relación entre el precio de un bien en un momento dado y su precio en otro momento.
<- precio_2025 / precio_2020
precio_relativo precio_relativo
[1] 1.3
Interpretación: Un precio relativo de 1.3 indica que el bien es 30% más caro que en el periodo base.
Se usa para reconstruir índices antiguos con base en nuevos índices. Permite conservar la continuidad histórica de las series.
Permite construir una serie de índices acumulados a lo largo del tiempo a partir de cambios sucesivos.
<- c(100, 105, 110, 120)
cadena <- cumprod(cadena / 100) * 100
indice_encadenado indice_encadenado
[1] 100.0 105.0 115.5 138.6
Interpretación: Cada valor refleja el crecimiento acumulado desde el periodo inicial.
Para hacer comparables los datos en diferentes periodos, es común cambiar la base de un índice.
<- c(100, 120, 140)
indice_viejo <- 120
nuevo_base <- (indice_viejo / nuevo_base) * 100
indice_nuevo_base indice_nuevo_base
[1] 83.33333 100.00000 116.66667
Interpretación: Todos los valores han sido reescalados con base en el segundo año.
Cuando se desea combinar series con diferentes bases, una debe ajustarse para la fusión.
<- c(100, 110, 120)
serie1 <- c(100, 130, 150)
serie2 <- serie1[2] / serie2[2]
ajuste <- serie2 * ajuste
serie2_ajustada serie2_ajustada
[1] 84.61538 110.00000 126.92308
Interpretación: La segunda serie ha sido ajustada para tener la misma base en el segundo año.
El IPC mide el costo promedio ponderado de una canasta de bienes y servicios adquirida por los consumidores.
<- c(1000, 1500, 2000)
precios_2020 <- c(1200, 1700, 2500)
precios_2025 <- c(0.3, 0.4, 0.3)
pesos
<- sum((precios_2025 / precios_2020) * pesos) * 100
ipc ipc
[1] 118.8333
Interpretación: Refleja el aumento proporcional del costo de vida entre los dos periodos.
La deflación consiste en transformar valores nominales a reales, eliminando el efecto de la inflación.
<- 1000000
valor_nominal <- 125
indice_precio <- valor_nominal / (indice_precio / 100)
valor_real valor_real
[1] 8e+05
Interpretación: El salario real ajustado por inflación es menor que el nominal, lo que indica pérdida de poder adquisitivo.
Se usa para identificar patrones a largo plazo mediante modelos estadísticos como regresiones lineales.
library(ggplot2)
<- 2015:2025
anios <- c(100, 105, 108, 112, 118, 125, 130, 135, 138, 142, 150)
precios <- data.frame(anios, precios)
df
<- lm(precios ~ anios, data = df)
modelo summary(modelo)
Call:
lm(formula = precios ~ anios, data = df)
Residuals:
Min 1Q Median 3Q Max
-1.9818 -0.9818 0.9091 1.1091 1.2727
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -9902.6364 262.8563 -37.67 3.25e-11 ***
anios 4.9636 0.1301 38.15 2.90e-11 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 1.365 on 9 degrees of freedom
Multiple R-squared: 0.9939, Adjusted R-squared: 0.9932
F-statistic: 1455 on 1 and 9 DF, p-value: 2.904e-11
<- ggplot(df, aes(x = anios, y = precios)) +
plot geom_point() +
geom_smooth(method = "lm", se = FALSE) +
labs(title = "Tendencia de Precios", x = "Año", y = "Índice")
plot
Interpretación: La línea ajustada representa la tendencia general de los precios. El coeficiente de pendiente indica el cambio anual promedio.
lm()
.