O novo ministro da economia, Paulo Guedes, ao tomar posse fez questão de mencionar a atual estrutura do mercado de crédito brasileiro. Guedes falou da necessidade de desestatizar o mercado. E será que faz sentido o que o ministro disse? Para mostrar, assim como fazemos em nossos Cursos Aplicados de R, podemos usar o R para ver o estoque de crédito na mão de instituições estatais e privadas. O código abaixo pega as séries de crédito para essas diferentes classes de instituições com o pacote rbcb.

library(rbcb)
privado <- get_series(2043, start_date = '2000-01-01')
estatal <- get_series(2007, start_date = '2000-01-01')

Uma vez que tenhamos esses dados, criamos um data frame dividindo as mesmas pelo total de estoque de crédito.

dates <- seq(as.Date('2000-01-01'), as.Date('2018-11-01'), by='1 month')

data <- data.frame(privado=privado$`2043`/(estatal$`2007`+privado$`2043`)*100,
                   estatal=estatal$`2007`/(estatal$`2007`+privado$`2043`)*100)

Utilizamos, então, o pacote xts para ordenar o data frame e depois a função melt para empilhar os dados.

library(xts)
library(reshape2)
data <- xts(data, order.by=dates)
data <- data.frame(time = index(data), melt(as.data.frame(data)))

Por fim, usamos o código abaixo para criar um gráfico ggplot.

library(scales)
library(ggplot2)
ggplot(data, aes(x = time, y = value)) + 
  geom_area(aes(colour = variable, fill = variable))+
  xlab('')+ylab('Participação Percentual')+
  labs(title='Crédito Estatal vs. Crédito Privado',
       caption='Fonte: analisemacro.com.br com dados do Banco Central.')+
  theme(legend.position = 'bottom',
        legend.title=element_blank())+
  scale_x_date(breaks = date_breaks("2 years"),
               labels = date_format("%Y"))

E o resultado é esse daí...

O gráfico parece dar razão a fala do novo ministro da economia. Mais da metade do estoque de operações de crédito no país está nas mãos de instituições estatais, sujeitas a incentivos distintos daqueles observados no mercado. Desestatizar o mercado de crédito parece ser, de fato, algo a se fazer, não é mesmo?

________________________________________________

Aprenda a coletar, tratar, analisar e apresentar dados reais em nossos Cursos Aplicados de R!

Comments