Estamos em período de decisões eleitorais importantes e com isso, é interessante observar alguns dados e atitudes de nossos representantes. Dessa maneira, nas análises a seguir iremos trabalhar em cima dos dados da CEAP com o objetivo de verificar um pouco sobre as características de gastos de alguns parlamentares, partidos e os estados os quais pertencem.

Obs.: os parlamentares que serão analisados são os deputados.

Para iniciarmos nossa análise, o primeiro passo é importar nossos dados.

Dados fornecidos:

  • nomeParlamentar: Nome adotado pelo Parlamentar ao tomar posse do seu mandato.
  • idCadastro: Número que identifica unicamente um deputado federal na CD.
  • sgUF: No contexto da cota CEAP, representa a unidade da federação pela qual o deputado foi eleito e é utilizada para definir o valor da cota a que o deputado tem.
  • sgPartido: Sigla do partido do parlamentar.
  • tipoDespesa: O seu conteúdo é a descrição do Tipo de Despesa relativo à despesa em questão.
  • especDespesa: Representa a descrição especificação mais detalhada de um referido Tipo de Despesa.
  • fornecedor: O conteúdo deste dado representa o nome do fornecedor do produto ou serviço presente no documento fiscal
  • CNPJCPF: O conteúdo deste dado representa o CNPJ ou o CPF do emitente do documento fiscal, quando se tratar do uso da cota em razão do reembolso despesas comprovadas pela emissão de documentos fiscais.
  • tipoDocumento: Este dado representa o tipo de documento do fiscal – 0 (Zero), para Nota Fiscal; 1 (um), para Recibo; e 2, para Despesa no Exterior.
  • dataEmissao: O conteúdo deste dado é a data de emissão do documento fiscal ou a data do documento que tenha dado causa à despesa.
  • valorDocumento: O seu conteúdo é o valor de face do documento fiscal ou o valor do documento que deu causa à despesa. Quando se tratar de bilhete aéreo, esse valor poderá ser negativo, significando que o referido bilhete é um bilhete de compensação, pois compensa um outro bilhete emitido e não utilizado pelo deputado (idem para o dado vlrLiquido abaixo).
  • valorGlosa: O seu conteúdo representa o valor da glosa do documento fiscal que incidirá sobre o Valor do Documento, ou o valor da glosa do documento que deu causa à despesa.
  • valorLiquido: O seu conteúdo representa o valor líquido do documento fiscal ou do documento que deu causa à despesa e será calculado pela diferença entre o Valor do Documento e o Valor da Glosa. É este valor que será debitado da cota do deputado. Caso o débito seja do Tipo Telefonia e o valor seja igual a zero, significa que a despesa foi franqueada.

Então iremos iniciar com os questionamentos:

Quais os deputados que mais gastaram dinheiro da CEAP?

dadosCEAP %>% 
  group_by(nomeParlamentar) %>% 
  summarise(valorTot = sum(valorLíquido)) %>%
  filter(valorTot >= 0) %>% 
  arrange(-valorTot) %>% 
  slice(1:10) %>% 
  na.omit(.) %>% 
  ggplot(aes(x = reorder(nomeParlamentar, valorTot),
             y = valorTot,
             fill = valorTot)) +
  geom_col(position = position_identity()) +
  labs(y = "Valor gasto total (R$)",
       x = "Nome do candidato",
       title = "Top 10 dos candidatos mais gastosos") +
  coord_flip()

dadosCEAP %>% 
  mutate(`Nome do parlamentar` = nomeParlamentar,
         `Sigla do estado` = sgUF,
         `Sigla do partido` = sgPartido) %>% 
  filter(`Nome do parlamentar` %in% c("EDIO LOPES",
                                "HIRAN GONÇALVES",
                                "JHONATAN DE JESUS")) %>% 
  group_by(`Nome do parlamentar`, 
           `Sigla do estado`, 
           `Sigla do partido`) %>% 
  summarise(`Valor total` = sum(valorLíquido))

Quais os mais ecoômicos?

dadosCEAP %>% 
  group_by(nomeParlamentar) %>% 
  summarise(valorTot = sum(valorLíquido)) %>%
  filter(valorTot >= 0) %>% 
  arrange(valorTot) %>% 
  slice(1:10) %>% 
  na.omit(.) %>% 
  ggplot(aes(x = reorder(nomeParlamentar, -valorTot),
             y = valorTot,
             fill = valorTot)) +
  geom_col(position = position_identity()) +
  labs(y = "Valor gasto total",
       x = "Nome do candidato",
       title = "Top 10 dos candidatos mais econômicos") +
  coord_flip()

dadosCEAP %>% 
  mutate(`Nome do parlamentar` = nomeParlamentar,
         `Sigla do estado` = sgUF,
         `Sigla do partido` = sgPartido) %>% 
  filter(`Nome do parlamentar` %in% c("CAMILO COLA",
                                "MARCIO MONTEIRO",
                                "MARCELO ALMEIDA")) %>% 
  group_by(`Nome do parlamentar`, 
           `Sigla do estado`, 
           `Sigla do partido`) %>% 
  summarise(`Valor total` = sum(valorLíquido))

Com os gráficos e tabelas acima, podemos observar que os candidatos que mais gastam dinheiro da CEAP foram Edio Lopes, Hiran Gonçalves e Jhonatan de Jesus. E um fato curioso, é que os 3 mais gastosos são do estado de Roraima, no entanto pertencem a partidos distintos. Já os candidatos que menos gastam são Camilo Cola, Marcelo Almeida e Marcio Monteiro, com gastos de R$0.62, R$26.16 e R$14.18, respectivamente. Ambos pertecentes a regiões brasileiras diferentes e aos partidos PMDB e PSDB, que por sinal são partidos de grande influência em nosso cenário político.

Quais os estados cujos deputados gastam mais e menos no exterior?

dadosCEAP %>% 
  filter(tipoDocumento == 2) %>% 
  group_by(sgUF) %>% 
  summarise(valorTot = sum(valorLíquido)) %>%
  arrange(-valorTot) %>% 
  na.omit(.) %>% 
  ggplot(aes(x = reorder(sgUF, -valorTot),
             y = valorTot,
             color = sgUF)) +
  geom_point() +
  geom_segment(aes(x = reorder(sgUF, -valorTot),
                   xend = reorder(sgUF, -valorTot),
                   y = 0,
                   yend = valorTot)) +
  labs(x = "UF",
       y = "Valor gasto (R$)",
       title = "Gastos de cada estado no exterior")

Para esse questionamento, podemos ver que estados cujo deputados mais gastam verba no exterior são São Paulo, Minas Gerais e Pernambuco ultrapassando o valor de R$100.000. Acredito que um aspecto forte para esses estados se destacarem, seja pelo fato de terem muitos deputados, quem quiser olhar a quantidade de cada parlamentar em seu estado link: camara dos deputados. Por outro lado, Pará,Paraíba e Maranhão são os que mais poupam com despesas no exterior.

Quais os partidos cujos parlamentares mais usam CEAP no estado da Paraíba? E os que menos usam?

dadosCEAP %>% 
  filter(sgUF == "PB") %>% 
  group_by(sgPartido) %>% 
  summarise(valorCEAP = sum(valorLíquido),
            countGastos = n()) %>% 
  plot_ly(x = ~sgPartido,
          y = ~countGastos,
          color = ~valorCEAP,
          type = 'bar',
          text = ~paste('Sigla do partido: ', sgPartido,
                        '<br>Quantidade de gastos: ', countGastos,
                        '<br>Valor gasto CEAP: R$', valorCEAP)) %>% 
    layout(title = "Partidos que mais usam o CEAP na PB",
           xaxis = list(title = "Partido"),
           yaxis = list(title = "Quantidade de gastos"))
## Warning: textfont.color doesn't (yet) support data arrays

## Warning: textfont.color doesn't (yet) support data arrays

Como podemos observar, o partido que mais gasta dinheiro da CEAP é o PMDB, se destacando dos demais, com valor líquido de R$3936481,35. Logo em seguida vem o PP e SD com R$1256179,48 e R$1329195,94, respectivamente. Por outro lado, os partidos mais econômicos são o PROS e e PSC, com valor líquido gasto em R$4606,88 e R$118231,53

Quais os deputados que mais ultrapassam o limite de CEAP do seu estado?

limiteCEAP <- limiteCEAP %>% 
  select(sgUF = UF,
         limite_mensal = limite_mensal)

dados_limite = left_join(dadosCEAP, limiteCEAP)

dados_limite %>% 
  group_by(nomeParlamentar) %>% 
  filter(valorLíquido > limite_mensal) %>% 
  select(nomeParlamentar, 
         sgUF) %>%
  summarise(count = n()) %>% 
  unique() %>% 
  ungroup() %>% 
  arrange(-count) %>% 
  slice(1:10) %>% 
  plot_ly(y = ~nomeParlamentar,
          x = ~count,
          color = ~count,
          type = 'bar',
          text = ~paste('Nome do parlamentar: ', nomeParlamentar,
                        '<br>Qnt de vezes que ultrapassa: ', count)) %>% 
  layout(title = "Top 10 dos deputados que ultrapassaram o limite de CEAP",
         yaxis = list(title = "Nome do deputado"),
         xaxis = list(title = "Quantidade de vezes que ultrapassou"))
## Warning: textfont.color doesn't (yet) support data arrays

## Warning: textfont.color doesn't (yet) support data arrays

Para esse questionamento, utilizei a quantidade de vezes que o parlamentar ultrapassou o limite mensal através do valor líquido e selecionei os dez deputados que mais ultrapassam o limite da CEAP, tendo como resultado Carlos Manato que ultrapassou 9 vezes esse limite, seguido de Lázaro Botelho com 8 e Pr. Marcio Feliciano com 7. Um fato interessante, é observar que o parlamentar Jhonatan de Jesus aparece novamente em uma estatística não muito agradável, pois logo acima é um dos mais gastosos e agora o que mais passa o limite mensal do CEAP.

Quais estados cujos parlamentares gastam mais com passagens aéreas?

dadosCEAP %>% 
  filter(tipoDespesa == "PASSAGENS AÉREAS") %>% 
  group_by(sgUF) %>% 
  summarise(valorTot = sum(valorLíquido)) %>% 
  na.omit(.) %>% 
  ggplot(aes(x = reorder(sgUF, -valorTot),
             y = valorTot,
             color = sgUF)) +
  geom_point() +
  geom_segment(aes(x = reorder(sgUF, -valorTot),
                   xend = reorder(sgUF, -valorTot),
                   y = 0,
                   yend = valorTot)) +
  coord_flip() +
  labs(x = "UF",
       y = "Valor gasto (R$)",
       title = "Gasto de passagens aéreas por estado com parlamentares")

Como podemos observar acima, os estados que mais gastam é São Paulo, Amazonas e Rio de Janeiro, inclusive SP novamente está no topo dos deputados que mais gastam como visto em uma visualização anterior. Mas o que realmente gera espanto é o estado do Amazonas, já que, segundo o site da câmara dos deputados possui um dos menores números de representantes do país gastar essa quantidade de dinheiro.

Para esponder a próxima pergunta, primiero escolhi três partidos, sendo eles: PMDB, PSDB e PT. Este critério de escolha foi pelo fato de serem partidos de grande influência no cenário da polítca brasileira. Após essa escolha, precisei filtrar os dados do dataframe e crei novos dataframe separados para facilitar o manuseio dos dados posteriormente.

# Extraindo dados dos partidos escolhidos: PMDB - PSDB - PT
dadosPMDB <- dadosCEAP %>% 
  filter(sgPartido == "PMDB")

dadosPSDB <- dadosCEAP %>% 
  filter(sgPartido == "PSDB")

dadosPT <- dadosCEAP %>% 
  filter(sgPartido == "PT")

Quais são os tipos de despesa mais utilizados no uso da CEAP pelos deputados desses partidos?

dadosPMDB %>% 
  group_by(tipoDespesa) %>% 
  summarise(valor_total = sum(valorLíquido)) %>% 
  na.omit(.) %>% 
  plot_ly(x = ~valor_total,
          y = ~tipoDespesa,
          type = 'bar',
          color = ~valor_total,
          text = ~paste('Valor total: R$', valor_total,
                        '<br>Tipo de despesa: ', tipoDespesa)) %>% 
  layout(title = "Tipos de despesas: PMDB",
           xaxis = list(title = "Valor total (R$)"),
           yaxis = list(title = "Tipo de despesa"))
## Warning: textfont.color doesn't (yet) support data arrays

## Warning: textfont.color doesn't (yet) support data arrays

Como podemos observar, os maiores gastos estão em divulgação de atividade parlamentar, emissão de bilhete aéreo e locação/freteamento de veículos automotores, podendo chegar a R$17.410.145,86 de gasto em uma só categoria.

dadosPSDB %>% 
  group_by(tipoDespesa) %>% 
  summarise(valor_total = sum(valorLíquido)) %>% 
  na.omit(.) %>% 
  plot_ly(x = ~valor_total,
          y = ~tipoDespesa,
          type = 'bar',
          color = ~valor_total,
          text = ~paste('Valor total: R$', valor_total,
                        '<br>Tipo de despesa: ', tipoDespesa)) %>% 
  layout(title = "Tipos de despesas: PSDB",
           xaxis = list(title = "Valor total (R$)"),
           yaxis = list(title = "Tipo de despesa"))
## Warning: textfont.color doesn't (yet) support data arrays

## Warning: textfont.color doesn't (yet) support data arrays
dadosPT %>% 
  group_by(tipoDespesa) %>% 
  summarise(valor_total = sum(valorLíquido)) %>% 
  na.omit(.) %>% 
  plot_ly(x = ~valor_total,
          y = ~tipoDespesa,
          type = 'bar',
          color = ~valor_total,
          text = ~paste('Valor total: R$', valor_total,
                        '<br>Tipo de despesa: ', tipoDespesa)) %>% 
  layout(title = "Tipos de despesas: PT",
           xaxis = list(title = "Valor total (R$)"),
           yaxis = list(title = "Tipo de despesa"))

Já o PSDB e o PT, tem como principal gasto a emissão de bilhetes aéreos, seguido por divulgação de atividade parlamentar e manutenção de escritório de apoio à atividade parlamentar, por outro lado gastam pouco em atividades como participação em cursos, palestras ou similares.