atividade macroeconomia

Trabalho de Macroeconomia - Variação da Inflação com Curva de Philips

Grupo: Beatriz Aguiar, Camile L. Cavalcanti, Eros Marques, Gabriel Mariano, Laís Vitória.

library(sidrar)

Warning: pacote 'sidrar' foi compilado no R versão 4.5.3

library(sidrar)

ipca_br <- get_sidra(
  api = "/t/1737/n1/all/v/63/p/201501-202603/d/v63%202"
)

All others arguments are desconsidered when 'api' is informed

desemp_br <- get_sidra(
  api = "/t/6381/n1/all/v/4099/p/last%20135/d/v4099%201"
)

All others arguments are desconsidered when 'api' is informed

# ==========================================
# CURVA DE PHILLIPS - BRASIL
# VARIAÇÃO DA INFLAÇÃO
# ==========================================


# Instalar pacote (apenas uma vez)
install.packages("sidrar")

Warning: o pacote 'sidrar' está em uso e não será instalado

# Carregar pacote
library(sidrar)

# ==========================================
# COLETAR DADOS DO SIDRA
# ==========================================

# IPCA mensal - Brasil
ipca_br <- get_sidra (
  api = "/t/1737/n1/all/v/63/p/201501-202603/d/v63%202"
)

All others arguments are desconsidered when 'api' is informed

# Taxa de desocupação - Brasil
desemp_br <- get_sidra (
  api = "/t/6381/n1/all/v/4099/p/last%20135/d/v4099%201"
)

All others arguments are desconsidered when 'api' is informed

# ==========================================
# EXTRAIR VARIÁVEIS
# ==========================================

inflacao <- ipca_br$Valor

desemprego <- desemp_br$Valor

# ==========================================
# VARIAÇÃO DA INFLAÇÃO
# ==========================================

inflacao_var <- diff(inflacao)

# Remove primeira observação do desemprego
desemprego <- desemprego[-1]

# ==========================================
# VERIFICAR TAMANHO DAS SÉRIES
# ==========================================

length(inflacao_var)

[1] 134

length(desemprego)

[1] 134

# ==========================================
# CRIAR BASE DE DADOS
# ==========================================

CP_br <- data.frame(
  delta_inflacao = inflacao_var,
  desemprego = desemprego
)

# ==========================================
# RESUMO ESTATÍSTICO
# ==========================================

summary(CP_br)

 delta_inflacao        desemprego   
 Min.   :-1.350000   Min.   : 5.10  
 1st Qu.:-0.180000   1st Qu.: 7.90  
 Median : 0.030000   Median :11.25  
 Mean   :-0.002687   Mean   :10.33  
 3rd Qu.: 0.197500   3rd Qu.:12.50  
 Max.   : 1.150000   Max.   :14.90  

# ==========================================
# GRÁFICO 1
# DISPERSÃO
# ==========================================

plot(CP_br$desemprego,
     CP_br$delta_inflacao,
     pch = 16,
     col = "darkred",
     cex = 1.2,
     xlab = "Taxa de desemprego (%)",
     ylab = "Variação da inflação",
     main = "Curva de Phillips - Brasil")

# ==========================================
# REGRESSÃO LINEAR
# ==========================================

modelo_br <- lm(delta_inflacao ~ desemprego,
                data = CP_br)

# Resultado da regressão
summary(modelo_br)

Call:
lm(formula = delta_inflacao ~ desemprego, data = CP_br)

Residuals:
     Min       1Q   Median       3Q      Max 
-1.34633 -0.17812  0.03259  0.20105  1.15552 

Coefficients:
              Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.0109794  0.1281350  -0.086    0.932
desemprego   0.0008031  0.0119818   0.067    0.947

Residual standard error: 0.3858 on 132 degrees of freedom
Multiple R-squared:  3.403e-05, Adjusted R-squared:  -0.007541 
F-statistic: 0.004492 on 1 and 132 DF,  p-value: 0.9467

# ==========================================
# GRÁFICO 2
# DISPERSÃO + RETA DE REGRESSÃO
# ==========================================

plot(CP_br$desemprego,
     CP_br$delta_inflacao,
     pch = 16,
     col = "darkred",
     cex = 1.2,
     xlab = "Taxa de desemprego (%)",
     ylab = "Variação da inflação",
     main = "Curva de Phillips com Regressão")

abline(modelo_br,
       col = "blue",
       lwd = 3)

# ==========================================
# GRÁFICO 3
# HISTOGRAMA DA VARIAÇÃO DA INFLAÇÃO
# ==========================================

hist(CP_br$delta_inflacao,
     col = "lightblue",
     border = "white",
     main = "Distribuição da Variação da Inflação",
     xlab = "Variação da inflação")

# ==========================================
# GRÁFICO 4
# HISTOGRAMA DO DESEMPREGO
# ==========================================

hist(CP_br$desemprego,
     col = "lightgreen",
     border = "white",
     main = "Distribuição da Taxa de Desemprego",
     xlab = "Taxa de desemprego")

# ==========================================
# GRÁFICO 5
# SÉRIE TEMPORAL DA VARIAÇÃO DA INFLAÇÃO
# ==========================================

plot(inflacao_var,
     type = "l",
     lwd = 2,
     col = "red",
     main = "Série Temporal da Variação da Inflação",
     xlab = "Tempo",
     ylab = "Variação da inflação")

# ==========================================
# GRÁFICO 6
# SÉRIE TEMPORAL DO DESEMPREGO
# ==========================================

plot(desemprego,
     type = "l",
     lwd = 2,
     col = "darkgreen",
     main = "Série Temporal do Desemprego",
     xlab = "Tempo",
     ylab = "Taxa de desemprego")

# ==========================================
# CORRELAÇÃO
# ==========================================

cor(CP_br$delta_inflacao,
    CP_br$desemprego)

[1] 0.005833742

# ==========================================
# EQUAÇÃO ESTIMADA
# ==========================================

coef(modelo_br)

  (Intercept)    desemprego 
-0.0109793837  0.0008030913 

Conclusão

O presente trabalho buscou estimar uma versão alternativa da Curva de Phillips para o Brasil, utilizando a variação da inflação em vez da inflação em nível. Para isso, foram utilizados dados do IPCA e da taxa de desocupação disponibilizados pelo IBGE/SIDRA para o período de 2015 a 2026.

Inicialmente, a Curva de Phillips tradicional apresentou resultados pouco satisfatórios, com baixa capacidade explicativa e coeficientes estatisticamente fracos. Dessa forma, optou-se por utilizar a variação da inflação como variável dependente, buscando captar de maneira mais adequada a dinâmica inflacionária brasileira.

A partir da regressão linear e dos gráficos de dispersão observou-se que a relação entre desemprego e variação da inflação não se mostrou forte ao longo do período analisado. Isso sugere que a inflação brasileira não depende exclusivamente do nível de desemprego, sendo também influenciada por outros fatores macroeconômicos, como choques de oferta, política monetária, variações cambiais, preços internacionais e expectativas inflacionárias.

Além disso, eventos econômicos recentes, como a pandemia da COVID-19 e oscilações nos preços de combustíveis e alimentos, contribuíram para aumentar a volatilidade da inflação, reduzindo ainda mais o poder explicativo da Curva de Phillips simples.

Portanto, conclui-se que, embora exista fundamentação teórica para a relação entre desemprego e inflação, a economia brasileira apresenta uma dinâmica inflacionária complexa, exigindo modelos mais completos para explicar o comportamento dos preços no período analisado.