Visualização do Orçamento de 2019

Primeiramente carregamos os dados:

data <- read.csv("http://datastore.openspending.org/ae4e8358d49b740f2b9e2463328e3669/sao_paulo_state_budget/final/data/orc-2019-funcao-100-reais.csv")
head(data)
##    ano             funcao     r
## 1 2019 ENCARGOS ESPECIAIS 26.92
## 2 2019           EDUCAÇÃO 17.68
## 3 2019 PREVIDÊNCIA SOCIAL 14.30
## 4 2019              SAÚDE 10.29
## 5 2019  SEGURANÇA PUBLICA  8.51
## 6 2019         TRANSPORTE  6.24

Vamos agora visualizar a distribuição do orçamento por Função proporcional a 100 reais.

treemap(data, 'funcao', vSize='r', vColor='r', type='value', position.legend = "none")