Carga Tributária

ct<-read.csv2("D:/Ndeletar/Desktop/PenDrive2/calculo_r/ct.csv",h=T)
ggplot(ct,aes(x=reorder(pais,carga),y=carga,fill=ifelse(ct$pais==c("Brasil","Chile","Média AL e Caribe"),"tomato","cyan")))+
  geom_bar(stat = "identity")+
  geom_text(aes(label=carga), colour='black',vjust=0.5,hjust=-0.1,size=3.5)+
  xlab("País")+ylab("Carga Tributária Bruta*")+
  labs(title="Carga Tributária - Brasil e Países da América Latina (2017)",
       caption="Fonte: Receita Federal / Ministério da Economia [http://receita.economia.gov.br/dados/receitadata]\n*A CTB é definida como a razão entre a arrecadação de tributos e o PIB a preços de mercado.")+
  theme(plot.caption = element_text(hjust=0.5))+
  scale_y_continuous(labels = scales::dollar_format(suffix = "%",prefix = ""))+
  coord_flip()+
  guides(fill=FALSE)+
  theme(panel.border = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.line = element_line(size = 0.5, linetype = "solid",
                                 colour = "black"),
        panel.background = element_rect(fill = "white",
                                        colour = "white",
                                        size = 0, linetype = "solid"))+
  transition_states(carga, wrap = FALSE)+
  shadow_mark()

Licença Creative Commons

space-1.jpg

This work is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/ or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.

REFERÊNCIAS

RECEITA FEDERAL DO BRASIL, RFB. 2018. Carga Tributária No Brasil 2017\(:\) Análise Por Tributos E Bases de Incidência. Ministério da Fazenda. http://receita.economia.gov.br/dados/receitadata/estudos-e-tributarios-e-aduaneiros/estudos-e-estatisticas/carga-tributaria-no-brasil/carga-tributaria-no-brasil-capa.