O site de Transparência do Congresso Nacional Brasileiro (http://www2.camara.leg.br/) disponibiliza dados referentes às cotas para o exercício da Atividade Parlamentar. Os “Dados Abertos” são registros de despesas realizadas e publicadas na Transparência, quanto ao uso da CEAP (Cota para o Exercício da Atividade Parlamentar). Essas despesas se confirmam por meio de lançamento de débitos contra a cota do deputado e podem decorrer em razão de uma das causas a seguir: pelo reembolso de documentos fiscais emitidos (Notas Fiscais, Recibos ou Despesa no Exterior); ou pelo custeio de despesas telefônicas; ou pelo débito de requisição de serviços postais; ou pela emissão de bilhetes aéreos.
O dataset utilizado diz respeito aos gastos no ano de 2015 e pode ser obtido aqui.
O dataset é composto por registros de despesas de 784 parlamentares, onde estas foram classificadas em 17 categorias que serão detalhadas mais adiante. Sobre sua estrutura, o dataset conta com 27 variávis e 45518 observações. É possível encontrar um maior detalhamento sobre todas as variáveis aqui.
Foi feita uma análice acerca de quais os valores totais gastos por cada parlamentar, exibindo quem gastou mais e quem gastou menos. Foram consideradas todos os tipos de atividades que cada parlamentar realizou, onde os totais estão agrupados por parlamentar.
library(dplyr)
parlamentares <- group_by(AnoAtual, txNomeParlamentar, sgPartido)
parlamentares <- summarise(parlamentares,totalDocumento = sum(vlrDocumento),
totalGlosa = sum(vlrGlosa),
totalLiquido = sum(vlrLiquido))
parlamentares <- arrange(parlamentares, desc(totalDocumento))Através do gráfico acima, podemos observar que a distribuição dos gastos por parlamentar tem uma maior concentração abaixo dos 50 mil reais. O parlamentar que se destaca com o maior valor de gastos é o deputado Valadares Filho do partido PSB, totalizando 129852.57 de reais. Já o parlamentar com o menor valor nos gastos é o Deputado CAMILO COLA do PMDB com 0.62 reais. Ainda encontramos dois parlamentares com um total de gastos negativos que não aparecem no gráfico, caracterizando que estes utilizaram bilhetes aéreos de compensasação (ver link ).
Alguns parlamentares excederam os limites das cotas em atividades parlamentares. O valor excedente está registrado na variável “vlrGlosa”, indicando que o parlamentar arcou com aquela despesa excedente. Sendo assim, é possível avaliar se deputados que mais gastam em cotas são também os que mais excedem os valores limites das cotas. É possível verificar através do gráfico que existe uma tendência dos pontos para o 0 no eixo “total Glosa”. Isso mostra que grande parte dos parlamentares não excede ou excedem muito pouco os valores das cotas.
gastos_negativos <- filter(parlamentares, totalLiquido < 0)
gastos_negativos## Source: local data frame [2 x 5]
## Groups: txNomeParlamentar
##
## txNomeParlamentar sgPartido totalDocumento totalGlosa totalLiquido
## 1 ELISEU PADILHA PMDB -1487.52 0 -1487.52
## 2 RUI COSTA PT -376.99 0 -376.99library(dplyr)
library(googleVis)
op <- options(gvis.plot.tag='chart')
parlamentares <- group_by(AnoAtual,txNomeParlamentar, sgPartido)
gastos_parlamentares <- summarise(parlamentares, total = sum(vlrLiquido, na.rm=TRUE))
partidos <- mutate(gastos_parlamentares, count = 1)
partidos[partidos$sgPartido == "-",]$count <- 0
partidos <- filter(partidos, count == 1)
partidos <- group_by(partidos, sgPartido)
partidos <- summarise(partidos, total = sum(total), numParlamentares= sum(count, na.rm=TRUE))
partidos <- mutate(partidos, media = total/numParlamentares)bubbles <- gvisBubbleChart(partidos, idvar = "sgPartido", xvar = "media", yvar = "total",
colorvar = "sgPartido", sizevar = "numParlamentares", options = list(vAxes = "[{title:'gastos'}]",
hAxes = "[{title:'média de gastos'}]"))
plot(bubbles)No gráfico acima podemos destacar os partidos PT e PMDB como os que possuem mais gastos e um maior número de parlamentares. Um detalhe interessante é em relação ao PMDB possuir mais representantes que o PSDB, caracterizando maior representatividade na câmara pelo volume de parlamentares. Outro detalhe é em relação a partidos como o PTB que, quando comparado com seu vizinho (PDT, por exemplo), possui menos parlamentares e gastou mais (O mesmo ocorre entre o PSB e PR). Em relação aos gastos em geral, partidos com um maior número de representantes gastam mais. Porém, é possível observar uma tendência na média dos gastos dos partidos para o valor de 30 mil reais, concentrando os partidos mais relevantes no centro do gráfico. Um partido que também se destaca é o PTB, onde este possui a maior média de gastos (estando posicionado mais à direita do gráfico) e poucos parlamentares (se comparado aos grandes partidos).
options(scipen=999)
parlamentares <- group_by(AnoAtual, txNomeParlamentar, sgPartido)
gastos_total_parlamentares <- summarise(parlamentares, gastos = sum(vlrLiquido, na.rm = TRUE))
partidos <- data.frame(Region = levels(gastos_total_parlamentares$sgPartido))
partidos <- filter(partidos, Region != "-")
parlamentares <- gastos_total_parlamentares[5:788,]
parlamentares <- filter(parlamentares, sgPartido != "-")
parlamentares <- mutate(parlamentares, fac = gastos)
colnames(parlamentares) <- c("Region", "Parent", "val", "fac")
df_partidos <- data.frame(Region=partidos, Parent="Partidos", val = 5000000, fac = 5000000)
df_global <- data.frame(Region="Partidos", Parent=NA, val=5000000, fac = 5000000)
df <- rbind(df_global,parlamentares, df_partidos)
df$Region <- as.character(df$Region)
df$Parent <- as.character(df$Parent)
df$val <- as.integer(df$val)
df$fac <- as.integer(df$fac)
df$val[df$val < 0 ] <- 0
df$fac[df$fat < 0 ] <- 0library(googleVis)
op <- options(gvis.plot.tag = "chart")
Tree <- gvisTreeMap(df, "Region", "Parent", "val", options = list(fontSize = 16,
minColor = "#EDF8FB", midColor = "#66C2A4", maxColor = "#006D2C", headerHeight = 20,
fontColor = "black", showScale = TRUE))
plot(Tree)Através do gráfico utilizado acima, é possível verificar as proporções de gastos por partido e por parlamentar. Inicialmente temos os partidos distribuídos em retângulos, onde seus tamanhos dizem respeito e as cores referem-se a média de totais gastos por parlamentar, evidenciando a média de gastos totais dos partidos. Ao clicar em um partido, é exibido o conjunto de parlamentares do partido em questão. Neste caso, o tamanho dos retângulos e as cores dizem respeito ao valor gasto dos parlamentares daquele partido.
Através do padrão de cores, é possível notar que os valores médios de gastos dos partidos são bem próximos, apontando um certo equilíbrio de gastos por partido. Por outro lado, quando analisamos um partido em específico, podemos verificar que alguns parlamentares gastam bem mais do que outros, a exemplo dos parlamentares NILTON CAPIXABA e ARNALDO FARIA DE SÁ, ambos do partido PTB.
Um fato curioso é em relação ao número de representantes do PMDB ser superior aos do PSDB, pois este representa (segundo jornais e mídia em geral) o partido que representa a presidência do país (PT).
library(dplyr)
gastos_partidos <- group_by(AnoAtual, sgPartido, txtDescricao)
gastos_partidos <- summarise(gastos_partidos, gastos = sum(vlrLiquido, na.rm = TRUE))
gastos_partidos <- gastos_partidos[gastos_partidos$sgPartido != "-",]
gastos_partidos$fac <- gastos_partidos$gastos
gastos_partidos <- gastos_partidos[c(2,1,3,4)]
colnames(gastos_partidos) <- c("Region", "Parent", "val", "fac")
gastos_partidos$Region <- paste(gastos_partidos$Region, gastos_partidos$Parent)
partidos <- data.frame(Region = levels(gastos_total_parlamentares$sgPartido))
partidos <- filter(partidos, Region != "-")
df_partidos <- data.frame(Region=partidos, Parent="Partidos", val = 10, fac = 10)
df_global <- data.frame(Region="Partidos", Parent=NA, val=10, fac=10)
df_gastos_partidos <- rbind(df_global, df_partidos, gastos_partidos)library(googleVis)
op <- options(gvis.plot.tag = "chart")
Tree <- gvisTreeMap(df_gastos_partidos, "Region", "Parent", "val", options = list(fontSize = 16,
minColor = "#FFCCCC", midColor = "#FF6666", maxColor = "#940000", headerHeight = 20,
fontColor = "black", showScale = TRUE))
plot(Tree)O gráfico acima é similar ao mostrado anteriormente, diferindo sobre os grupos dos partidos serem formados pelas Atividades Parlamentares. É possível observar como foi investido o dinheiro das cotas por partido, evidenciando quais atividades demandam mais gastos. Analisando o gráfico, é possível verificar que o partido com maior média de gastos gastou mais com Divulgação de Atividade Parlamentar, enquanto que partidos menores, a exemplo do PRTB, gastaram bem menos e de forma mais homogênea.