Gastos Deputados - Minhas Perguntas

library(dplyr, warn.conflicts = FALSE)
library(ggplot2)
library(datasets)
library(magrittr)
library(highcharter)

## Highcharts (www.highcharts.com) is a Highsoft software product which is

## not free for commercial and Governmental use

library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

theme_set(theme_bw())

gastos_deputado = read.csv("dadosCEAP.csv")

Quais são os deputados que gastam mais em cada categoria (Emissão de bilhete, divulgação de atividade parlamentar e etc) ?

despesaPorParlamentarECategoria = gastos_deputado %>% select(valorLíquido,nomeParlamentar,tipoDespesa) %>% group_by(nomeParlamentar,tipoDespesa) %>% summarise(totalGasto = sum(valorLíquido)) %>% filter(totalGasto>0)

hchart(despesaPorParlamentarECategoria, "scatter", hcaes(x = tipoDespesa, y = totalGasto, group = nomeParlamentar))

Os deputados que mais gastaram em cada categoria são:

• Telefonia: Zeca Dirceu
• Serviços postais: Cristiane Brasil
• Serviço de táxi, pedágio e estacionamento: Zeca Dirceu
• Serviço de segurança prestado por empresa especializada: Remídio Monai
• Passagem terrestre, marítma e fluviais: Bohn Gass
• Passagens aéreas: Eduardo Bolsonaro
• Participação em cursos: Leandre
• Manutenção de escritório: Vinicius Gurgel
• Locação ou fretamento de veículos: Givaldo Carimbão
• Locação ou fretamento de embarcações: Delegado Éder Mauro
• Locação ou fretamento de aeronaves: Átila Lins
• Hospedagem: Nelson Meurer
• Fornecimento de Alimentação: Liderança do PT
• Emissão de bilhete áereo: Marinaldo Rosendo
• Divulgação de atividade parlamentar: Wellington Roberto
• Consultoria, pesquisa e trabalhos técnicos: Domingos Neto
• Combustíveis e Lubrificantes: Flaviano Melo
• Assinatura de publicações: Liderança do PT

Qual é a quantidade de gastos em cada categoria por mês do ano ?

gastoPorMes = gastos_deputado %>% select(dataEmissao,valorLíquido,nomeParlamentar,tipoDespesa) %>% group_by(mes = substr(dataEmissao,6,7),tipoDespesa) %>% summarise(totalGasto = sum(valorLíquido)) %>% filter(totalGasto>0)

hchart(gastoPorMes, "scatter", hcaes(x = mes, , y = totalGasto, group = tipoDespesa))

Quais são os fornecedores que mais se beneficiam com os gastos dos parlamentares ?

gastosPorFornecedor = gastos_deputado %>% select(valorLíquido,nomeParlamentar,tipoDespesa,fornecedor,CNPJCPF) %>% group_by(fornecedor) %>% summarise(totalGasto = sum(valorLíquido)) %>% filter(totalGasto>1000000)

hchart(gastosPorFornecedor, "scatter", hcaes(x = fornecedor, y = totalGasto, group = fornecedor))

Como podemos observar, há um gasto bastante curioso com consultoria para o Dr. Douglas Cunha Da Silva