Inflação

A menor inflação em janeiro desde 1979?

By 9 de fevereiro de 2017 No Comments

A imprensa brasileira deu grande destaque nessa quinta-feira ao resultado da inflação medida pelo IPCA em janeiro. Ela veio 0,38%, o que para parte dos jornalistas foi a menor inflação em janeiro medida pelo índice desde 1979Para não levar a interpretações equivocadas, é preciso fazer duas considerações sobre essa informação. A primeira é que, para ser preciso, a informação deveria ser a partir de 1980, dado que o número índice do IPCA está disponível apenas a partir de dezembro do ano anterior. Como a inflação mensal se obtém confrontando o número índice em t com o número índice em t-1, só podemos ter essa métrica a partir de 1980. Ademais, não é uma comparação lá muito justa - e, de fato, não deixa de ser um equívoco fazê-lo. Isso porque, como todo mundo sabe, o período entre 1980 e meados de 1994 é marcado por um dos maiores processos inflacionários da História da humanidade. Então, como podemos comparar janeiro de 2017 com esse período? Para ilustrar, segue o código abaixo, que compila a inflação medida pelo IPCA apenas para meses de janeiro no período de 1980 a 2017. 

# Pacotes
library(TStools)
library(ggplot2)

# Importar dados diretamente do BCB
source('bcb.R')
ipca = ts(getSeries(433, data.ini='01/01/1980', 
 data.fim='01/01/2017')$valor, start=c(1980,01),
 freq=12)

## OBS: É possível usar os pacotes BETS ou rbcb.


# Criando e guardando gráfico de sazonalidade
seas = seasplot(ipca, trend=F, outplot = 4)

# Pegando variações de janeiro
janeiro = as.numeric(seas$season[,1])

# Criando vetor de datas
time = seq(as.Date('1980-01-01'), as.Date('2017-01-01'), by='1 year')

# Colocando ambos em um data frame
ipca.janeiro = data.frame(time=time, janeiro=janeiro)

# Gráfico
ggplot(ipca.janeiro, aes(time, janeiro))+
 geom_bar(stat='identity', fill='darkblue', width = 200)+
 xlab('')+ylab('% a.m.')+
 labs(title='Inflação medida pelo IPCA nos meses de janeiro',
 caption='Fonte: analisemacro.com.br com dados do Banco Central.')+
 theme_bw()

E abaixo o gráfico...

Receba diretamente em seu e-mail gratuitamente nossas promoções especiais
e conteúdos exclusivos sobre Análise de Dados!

Assinar Gratuitamente