A inflação medida pelo Índice de Preços ao Consumidor Amplo (IPCA) terminou 2017 em 2,95%, a segunda menor desde a implantação do Plano Real, em 1994. Ela encerra também um dos três grandes processos de desinflação desde o advento do plano. A primeira ocorreu entre 1994 e 1998, quando a inflação saiu de inacreditáveis 916,46% no acumulado em doze meses até dezembro de 1994 e terminou em dezembro de 1998 em 1,65%. A segunda ocorreu entre 2002 e 2006, quando a inflação saiu de 12,53% para 3,14%. Nesse último, a inflação foi a 10,67% em 2015, retornando a patamares civilizados em dezembro último. O código e o gráfico abaixo ilustram esses três períodos.


library(ggplot2)
library(scales)
library(BETS)
library(TStools)

infanual = BETS.get(13522, from='1994-12-01')

seas = seasplot(infanual, trend=F, outplot = 3)

dezembro = as.numeric(seas$season[,12])

dezembro = dezembro[-length(dezembro)]

time = seq(as.Date('1995-01-01'), as.Date('2017-01-01'), by='1 year')

df1 = data.frame(time=time, dezembro=dezembro)

# Gráfico
ggplot(df1, aes(time, dezembro))+
 annotate("rect", fill = "orange", alpha = 0.2, 
 xmin = as.Date('1994-06-01'), 
 xmax = as.Date('1998-06-01'),
 ymin = -Inf, ymax = Inf)+
 annotate("rect", fill = "red", alpha = 0.2, 
 xmin = as.Date('2001-06-01'), 
 xmax = as.Date('2006-06-01'),
 ymin = -Inf, ymax = Inf)+
 annotate("rect", fill = "blue", alpha = 0.2, 
 xmin = as.Date('2014-06-01'), 
 xmax = as.Date('2017-06-01'),
 ymin = -Inf, ymax = Inf)+
 geom_bar(stat='identity', fill='darkblue', width = 200)+
 geom_text(aes(label=round(dezembro,2)), colour='red', 
 vjust=ifelse(dezembro \>= 0, -0.4, 1),
 size=3)+
 xlab('')+ylab('% a.a.')+
 labs(title='Inflação anual medida pelo IPCA',
 caption='Fonte: analisemacro.com.br com dados do IBGE.')+
 scale_x_date(breaks = date_breaks("1 years"),
 labels = date_format("%Y"))+
 theme(axis.text.x=element_text(angle=45, hjust=1))

Tomare que não precisemos de um quarto grande processo desinflacionário, não é mesmo, leitor? 🙂

Comments