Dados Macroeconômicos

Reforma Tributária e facilidade para pagar impostos no Brasil

By 22 de agosto de 2019 No Comments

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.

Comments

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