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