Mercado dá voto de confiança a novo governo

[et_pb_section admin_label="section"][et_pb_row admin_label="row"][et_pb_column type="4_4"][et_pb_text admin_label="Texto" background_layout="light" text_orientation="justified" text_font="Verdana||||" text_font_size="18" use_border_color="off" border_color="#ffffff" border_style="solid"]

A julgar pelo comportamento diário da bolsa de valores de SP e pela taxa de câmbio R$/US$, o mercado parece está vivendo uma lua de mel com o novo governo. De forma unânime, o discurso de posse do novo ministro da economia, Paulo Guedes, foi bastante saudado por economistas e analistas de mercado. O tom do discurso foi firme em relação ao principal problema do país - os gastos previdênciários -, além de sinalizar medidas complementares corretas na melhoria do ambiente de negócios e na privatização de empresas estatais.

Para ver isso na prática, podemos usar o R - veja nossos Cursos Aplicados de R - para pegar o IBOVESPA a partir da base de dados yahoo finance com o pacote quantmod. Podemos também utilizar o pacote BETS para pegar a taxa de câmbio diária R$/US$. O código abaixo operacionaliza.

## Pacotes
library(quantmod)
library(ggplot2)
library(forecast)
library(BETS)
library(scales)
library(gridExtra)

## Ibovespa
env = new.env()
getSymbols("^BVSP",src="yahoo", 
env=env,
from=as.Date('2018-12-01'))
ibovespa = env$BVSP[,4]
ibovespa = ibovespa[complete.cases(ibovespa)]

g1 = autoplot(ibovespa)+
geom_line(size=.8, colour='red')+
xlab('')+ylab('Pontos')+
labs(title='Índice Bovespa')

## Câmbio 
cambio = BETS.get(1, from='2018-12-01')
cambiod = xts(cambio$value, order.by = cambio$date)

g2 = autoplot(cambiod)+
geom_line(size=.8, colour='darkblue')+
xlab('')+ylab('R$/US$')+
labs(title='Taxa de Câmbio R$/US$')+
scale_x_date(date_breaks = '7 days',
labels = date_format("%b %d"))

## Gráfico lado a lado
grid.arrange(g1, g2,
top = "Mercado reage positivamente a nova equipe econômica",
bottom = 'Fonte: analisemacro.com.br.',
layout_matrix = matrix(c(1,2), 
ncol=2, byrow=TRUE))

E o gráfico...

Os gráficos mostram IBOV pra cima e câmbio pra baixo, sinalizando que, controlado o cenário externo, há boas perspectivas domésticas se o novo governo conseguir entregar a agenda reformista que prometeu. A conferir!

_______________________________________

Aprenda a coletar, tratar, analisar e apresentar dados reais em nossos Cursos Aplicados de R. Temos turmas com inscrições abertas!

[/et_pb_text][/et_pb_column][/et_pb_row][/et_pb_section]