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.
