O Comitê de Política Monetária reduziu agora há pouco a taxa básica de juros em 50 pontos-base, levando-a para 7% a.a., o menor valor da série histórica. Isso deve se refletir, com efeito, no juro real ex-ante, que está próximo a 3% como ilustra o código e o gráfico abaixo.

library(ggplot2)
library(BETS)
library(xts)
library(scales)
library(mFilter)

swap = BETS.get(7806)
swap = swap[complete.cases(swap),]
swap$date = as.Date(swap$date, format='%d/%m/%Y')
swap = xts(swap$value, order.by = swap$date)
swap = apply.monthly(swap, FUN=mean)
swap = ts(swap, start=c(1999,8), freq=12)

expectativa = read.csv('expectativa.csv', header=T, sep=';', dec=',')
expectativa$date = as.Date(expectativa$date, format='%d/%m/%Y')
expectativa = xts(expectativa$expectativa, order.by = expectativa$date)
expectativa = apply.monthly(expectativa, FUN=mean)
expectativa = ts(expectativa, start=c(2001,11), freq=12)

data = ts.intersect(swap, expectativa)

juroreal = (((1+(data[,1]/100))/(1+(data[,2]/100)))-1)*100

jr = window(juroreal, start=c(2016,01))

df = data.frame(time=as.Date(time(jr)), juroreal=jr)

ggplot(df, aes(x=time, y=juroreal))+
 annotate("rect", fill = "red", alpha = 0.5, 
 xmin = min(df$time), 
 xmax = max(df$time),
 ymin = 4, ymax = 5.5)+
 annotate('text', x=as.Date('2016-08-01'), y=4.8, 
 label='Zona de Juro Neutro',
 colour='white', size=5)+
 annotate('text', x=as.Date('2017-06-01'), y=7, 
 label='Política monetária restritiva',
 colour='red', size=4)+
 annotate('text', x=as.Date('2017-02-01'), y=3.5, 
 label='Política monetária expansionista',
 colour='red', size=4)+
 geom_line(size=.8)+
 scale_x_date(breaks = date_breaks("1 months"),
 labels = date_format("%m/%Y"))+
 theme(axis.text.x=element_text(angle=45, hjust=1))+
 geom_point(size=9, shape=21, colour="#1a476f", fill="lightblue")+
 geom_text(aes(label=round(juroreal,1)), size=3, 
 hjust=0.5, vjust=0.5, shape=21, colour="black")+
 xlab('')+ylab('% a.a.')+
 labs(title='Juro Real ex-ante',
 subtitle='Swap DI 360 deflacionado pela Expectativa do IPCA 12 meses à frente',
 caption='Fonte: analisemacro.com.br com dados do BCB.')

Como ilustra o gráfico, a propósito, a poítica monetária se situa nesse momento em posição expansionista, contribuindo para a retomada do nível de atividade. Isso ocorre com expectativas de inflação 12 meses à frente próximas à 4%, abaixo, portanto, da meta de inflação.