[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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | ## Pacoteslibrary(quantmod)library(ggplot2)library(forecast)library(BETS)library(scales)library(gridExtra)## Ibovespaenv = 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 ladogrid.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]
