Category

Dados Macroeconômicos

Incerteza permanece elevada no Brasil

By | Dados Macroeconômicos

Ontem, a FGV divulgou o seu Índice de Incerteza Econômica Brasil. Como esperado, houve um aumento em agosto. Com efeito, a incerteza permanece acima da média histórica. Para ilustrar, podemos usar o ggplot2 para construir um gráfico da série. Para começar, carregamos alguns pacotes.


library(readr)
library(ggplot2)
library(scales)
library(png)
library(grid)
library(ggrepel)

Nós importamos, então, o arquivo incerteza.csv com o pacote readr, que faz parte dos pacotes tidyverse.


data = read_csv2('incerteza.csv',
col_types =
list(col_date(format='%d/%m/%Y'),
col_double()))

E agora que temos os dados, podemos gerar um gráfico com o código abaixo.


img <- readPNG('logo.png')
g <- rasterGrob(img, interpolate=TRUE)

ggplot(tail(data,72), aes(tail(date,72), tail(iie_br,72)))+
annotate("rect", fill = "#336666", alpha = 0.3,
xmin = as.Date('2015-08-01'),
xmax = as.Date('2015-10-01'),
ymin = -Inf, ymax = Inf)+
annotate("rect", fill = "#336666", alpha = 0.3,
xmin = as.Date('2018-05-01'),
xmax = as.Date('2018-07-01'),
ymin = -Inf, ymax = Inf)+
geom_line(size=.8)+
geom_hline(yintercept=mean(data$iie_br),
colour='red', linetype='dashed')+
scale_x_date(breaks = date_breaks("3 month"),
labels = date_format("%b/%Y"))+
theme(axis.text.x=element_text(angle=45, hjust=1))+
labs(x='', y='Índice',
title='Índice de Incerteza Econômica Brasil',
caption = 'Fonte: analisemacro.com.br com dados da FGV')+
theme(panel.background = element_rect(fill='#acc8d4',
colour='#acc8d4'),
plot.background = element_rect(fill='#8abbd0'),
axis.line = element_line(colour='black',
linetype = 'dashed'),
axis.line.x.bottom = element_line(colour='black'),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
legend.background = element_rect((fill='#acc8d4')),
legend.key = element_rect(fill='#acc8d4',
colour='#acc8d4'),
plot.margin=margin(5,5,15,5))+
annotation_custom(g,
xmin=as.Date('2013-08-01'),
xmax=as.Date('2015-01-01'),
ymin=110, ymax=130)+
geom_label_repel(label=round(tail(data$iie_br,72),2),
hjust=0,
vjust=-.2,
color = c(rep(NA,72-1), rep('black',1)),
fill = c(rep(NA,72-1), rep('lightblue',1)))

E o gráfico...

 

O índice registrou 114,2 pontos em agosto, acima da média representada pela linha vermelha tracejada. Aliás, diga-se, o índice vem se mantendo acima da média histórica desde 2015. Abaixo, colocamos um boxplot da série.


ggplot(data, aes(date, iie_br))+
geom_boxplot(fill='#8abbd0', color="black")+coord_flip()+
theme_classic()+xlab('')+ylab('')+
labs(title='Boxplot IIE-Br',
caption='Fonte: analisemacro.com.br')

Como se pode ver no boxplot acima, o valor registrado em agosto está no último quartil. Em outras palavras, a incerteza permanece elevada no país.

O crescimento econômico frustrado

By | Dados Macroeconômicos

Os agentes de mercado que respondem a pesquisa Focus do Banco Central voltaram a reduzir a expectativa para crescimento em 2019: de 0,83 para 0,80. O motivo é a turbulência no cenário externo, em particular os problemas com a vizinha Argentina. O consenso é que a liberação do FGTS acabará sendo compensado pelos choques externos.

Para além do crescimento do PIB, houve piora também na expectativa para o câmbio, como ilustra o gráfico acima. A inflação esperada está em declínio, 3,65%, bem abaixo da meta do Banco Central. Com efeito, o mercado espera mais dois cortes na taxa Selic, terminando a mesma em 5% no final do ano.

A semana é marcada, diga-se, pela divulgação do PIB do 2º trimestre na sexta-feira. Há expectativa de crescimento levemente positivo na margem, algo entre 0,1% e 0,2%. Publicaremos aqui uma análise detalhada das contas nacionais com o uso do R.

Para uma apresentação detalhada das expectativas do Focus feita com RMarkdown, veja aqui.

Reforma Tributária e facilidade para pagar impostos no Brasil

By | Dados Macroeconômicos

O relatório Doing Business do Banco Mundial constrói anualmente um ranking de facilidade para se fazer negócios entre 190 países. São avaliados 10 itens, entre eles a facilidade no pagamento de impostos. Para ilustrar a posição do Brasil nesse quesito, peguei alguns dados do site do projeto e usei o R para tratar os dados. A seguir, carrego os pacotes utilizados.


library(readxl)
library(ggplot2)

Os dados são então importados com a função read_excel do pacote readxl como no código abaixo.


data = read_excel('data.xlsx', sheet=1,
col_types = c(rep('text', 2), rep('numeric', 11)))

A seguir, eu ordeno os dados com base na classificação do ranking de pagamento de impostos.


db = data[order(data$`Pagamento de impostos - Classificação`,
decreasing = F),]

db$Economia <- factor(db$Economia,
levels = db$Economia[order(db$`Pagamento de impostos - Classificação`)])

impostos = data.frame(db$Economia, db$`Pagamento de impostos - Classificação`)

colnames(impostos) = c('pais', 'posicao')

impostos = impostos[complete.cases(impostos),]

Com o código a seguir usamos o ggplot2 para gerar um gráfico ordenado.


ggplot(impostos, aes(x=pais, y=posicao))+
geom_bar(stat='identity', colour='gray', fill='gray',
width=.1)+
theme(axis.text.x=element_text(angle=65, hjust=1))+
scale_x_discrete(breaks=impostos$pais[seq(1,190,4)])+
xlab('')+ylab('Posição')+
labs(title='Facilidade para pagar imposto - Doing Business',
subtitle='Elaboração própria com dados do Banco Mundial.')+
annotate('text', x=impostos$pais[184], y=195,
label='Brasil',
colour='red', size=3.4)

E o gráfico...

Entre 190 países, nosso país ocupa a 184ª posição na facilidade de pagamento de impostos. Uma reforma tributária é mais do que urgente por esses lados, não é mesmo?

_______________________________

A planilha data.xlsx pode ser encontrada no repositório do Blog.

Baixando ações com o R

By | Dados Macroeconômicos

Existem diversos pacotes no R para lidar com séries financeiras. Em termos de coleta de dados, podemos baixar ações a partir do yahoo finance, utilizando o pacote quantmod. Abaixo damos um exemplo utilizando a ação PETR4, que derreteu nos últimos dias (minha solidariedade a quem estiver comprado nela).


library(quantmod)

getSymbols("PETR4.SA",src="yahoo", 
from=as.Date('2016-06-01'))

chartSeries(PETR4.SA[,6])

Abaixo o gráfico...

Interessados no log retorno podem plotá-los como abaixo...


plot(diff(log(PETR4.SA$PETR4.SA.Adjusted)))

Para saber o código da ação, basta entrar no yahoo finance. Para quem tiver interesse em usar econometria para lidar com séries financeiras, recomendo nosso curso de Econometria Financeira usando o R. Por fim, aos vendidos em Petrobras, me chamem para o chope... 🙂

Cadastre-se na newsletter
e receba nossas novidades em primeira mão!