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.