Pacotão de Natal

Pacotão de Natal

Já comentei algumas vezes sobre o ‘pacotão de natal’, um acordo de aprovação mutua de projetos dos vereadores que acontece, normalmente, vinculado a uma aprovação de algum projeto do Executivo (ou seja, tem natal várias vezes - mas em especial na aprovação do orçamento da cidade)

Isso aqui é para deixar um pouco mais evidente essa concentração.

votacoes <- xml_find_all(data, '//Votacao')
results <- lapply(votacoes, FUN=function (x){
  data.frame(
    data=dmy(xml_attr(xml_parent(x),'Data')),
    tipo=xml_attr(x,'TipoVotacao'),
    id=xml_attr(x,'VotacaoID'),
    resultado=xml_attr(x, 'Resultado')
  )
})
results <- do.call('rbind', results)

summary(results)

##       data                   tipo           id     
##  Min.   :2015-02-04   Nominal  :328   1931   :  3  
##  1st Qu.:2015-05-13   Simbólica:647   1846   :  2  
##  Median :2015-09-29                   1914   :  2  
##  Mean   :2015-08-18                   1900   :  2  
##  3rd Qu.:2015-11-25                   1919   :  2  
##  Max.   :2015-12-21                   1995   :  2  
##                                       (Other):962  
##                resultado  
##  Pendente de Votação:  7  
##  Aprovado           :787  
##  Reprovado          :181  
##                           
##                           
##                           
## 

Um resumo da tabela gerada mostra um total de 962 votações em um ano, sendo que destas 647 são votações ‘simbólicas’ onde o vereador não precisa declarar explicitamente se é a favor ou contra determinado projeto.

Linha do Tempo

E aqui a visualização da distribuição das votações aprovadas no ano.

timeline <- results %>%
  filter(resultado=='Aprovado') %>%
  group_by(data) %>%
  summarise(count=n())


rangeYM <- range(ymd('2015-01-01'),ymd('2015-12-31'))

plot(timeline, xlim=rangeYM,type='h',
     main='Votações Aprovadas por dia em 2015',
     xlab='',
     ylab='No de Votações')

Aquela barrinha enorme no fim de dezembro é o resultado das votações feitas junto com o orçamento da cidade. 109 projetos aprovados - comprovando a marca dos ‘2 projetos por vereador’ que foi o que eu tinha ouvido falar.