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!