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 1979. Para 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...
