CEAP-Tarefa

library(tidyverse)
library(dplyr)
library(plotly)
dadosCEAP <- read.csv("dadosCEAP.csv") # carregando os dados
dadosCEAP$valorGlosa <- as.numeric(sub(",", ".", dadosCEAP$valorGlosa, fixed = TRUE))

Quais são os deputados que gastaram mais dinheiro da CEAP?

topGastosParlamentar <- dadosCEAP %>%
  group_by(nomeParlamentar) %>% 
  filter(valorLíquido > 0) %>% 
  summarise(gastoTotal = sum(valorLíquido)) %>%
  arrange(desc(gastoTotal))

plot_ly(topGastosParlamentar %>% ungroup() %>% top_n(15),  x = ~reorder(nomeParlamentar, -gastoTotal), y =~gastoTotal, color = ~nomeParlamentar, colors = "Set2") %>%
  layout(title="Parlamentares que mais gastaram.",
         xaxis = list(title = "Parlamentar"), 
         yaxis = list(title ="Gasto Total"))

Os deputados Edio Lopes, Rocha e Abel MEsquita Jr. foram os deputados que mais gastaram recursos da Cota para o exercício parlamentar. O deputado Edio Lopes, deputado que mais gastou, usou 1,64 milhões de reais da cota disponível.

Quais são os mais econômicos?

plot_ly(topGastosParlamentar %>% ungroup() %>% top_n(-15),  x = ~reorder(nomeParlamentar, -gastoTotal), y =~gastoTotal, color = ~nomeParlamentar, colors = "Set2") %>%
  layout(title="Parlamentares que menos gastaram.",
         xaxis = list(title = "Parlamentar", tickangle = -45), 
         yaxis = list(title ="Gasto Total"))

Os depultados Camilo Cola, Eliseu Padilha e Marcio Monteiro foram os que menos gastaram da CEAP, menos de 15 reais.

Quais os estados cujos deputados gastam mais no exterior?

topGastoEstado <- dadosCEAP %>% 
  filter(valorLíquido > 0, tipoDocumento == 2) %>%
  group_by(sgUF) %>% 
  summarise(gastoTotal = sum(valorLíquido))%>%
  arrange(desc(gastoTotal))


plot_ly(topGastoEstado %>% ungroup() %>% top_n(15),  x = ~reorder(sgUF, -gastoTotal), y =~gastoTotal, color = ~sgUF, colors = "Set2") %>%
  layout(title="Estados que mais gastaram no exterior.",
         xaxis = list(title = "Estado", tickangle = -45), 
         yaxis = list(title ="Gasto Total"))

Os estados de SP, MG e PE foram os estados onde os parlamentares mais gastaram no exterior.

Quais os estados cujos deputados gastam menos no exterior?

plot_ly(topGastoEstado %>% ungroup() %>% top_n(-15),  x = ~reorder(sgUF, -gastoTotal), y =~gastoTotal, color = ~sgUF, colors = "Set2") %>%
  layout(title="Estados que menos gastaram no exterior.",
         xaxis = list(title = "Estado", tickangle = -45), 
         yaxis = list(title ="Gasto Total"))

Pará, Paraíba e Maranhão foram os estados onde os parlamentares menos gastaram no exterior.

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

usoPB <- dadosCEAP %>% 
  filter(valorLíquido > 0, sgUF == "PB") %>%
  group_by(sgPartido) %>% 
  summarise(uso = n()) %>%
  arrange(desc(uso))


plot_ly(usoPB %>% ungroup() %>% top_n(5),  x = ~reorder(sgPartido, -uso), y =~uso, color = ~sgPartido, colors = "Set2") %>%
  layout(title="Partidos cujos parlamentares mais usam CEAP no estado da Paraíba.",
         xaxis = list(title = "Partido", tickangle = -45), 
         yaxis = list(title ="Uso"))

Os partidos que mais usaram a CEAP na Paraíba foram: PMDB, PP e PSD.

Quais são os que menos usam?

plot_ly(usoPB %>% ungroup() %>% top_n(-5),  x = ~reorder(sgPartido, -uso), y =~uso, color = ~sgPartido, colors = "Set2") %>%
  layout(title="artidos cujos parlamentares menos usam CEAP no estado da Paraíba.",
         xaxis = list(title = "Partido", tickangle = -45), 
         yaxis = list(title ="Uso Total"))

Os partidos que menos usaram a CEAP na Paraíba foram: PROS, PSC e PSDB.

Quais os partidos cujos parlamentares mais usam CEAP no estado da Paraíba em R$?

usoPBReais <- dadosCEAP %>% 
  filter(valorLíquido > 0, sgUF == "PB") %>%
  group_by(nomeParlamentar) %>% 
  summarise(reais = sum(valorLíquido)) %>%
  arrange(desc(reais))

plot_ly(usoPBReais %>% ungroup() %>% top_n(5),  x = ~reorder(nomeParlamentar, -reais), y =~reais, color = ~nomeParlamentar, colors = "Set2") %>%
  layout(title="Partidos cujos parlamentares mais gastaram CEAP no estado da Paraíba.",
         xaxis = list(title = "Partido", tickangle = -45), 
         yaxis = list(title ="Gasto Total"))

Os parlamentares que mais gastaram a CEAP na paraíba foram: Wellington Roberto, Rômulo Gouveia e Aguinaldo Ribeiro. ## Quais são os que menos usam em R$?

plot_ly(usoPBReais %>% ungroup() %>% top_n(-5),  x = ~reorder(nomeParlamentar, -reais), y =~reais, color = ~nomeParlamentar, colors = "Set2") %>%
  layout(title="Partidos cujos parlamentares menos gastaram CEAP no estado da Paraíba..",
         xaxis = list(title = "Partido", tickangle = -45), 
         yaxis = list(title ="Gasto Total"))

Os parlamentares que menos gastaram a CEAP na paraíba foram: Major Fábio, Ruy Carneiro e Nildo Gondim. ## Quais os deputados que mais ultrapassam o limite de CEAP do seu estado?

limitesMensais <- read.csv("limiteMensalCEAP.csv") 
limitesMensais <- limitesMensais %>% rename(sgUF = UF)
dadosCEAP <- full_join(dadosCEAP, limitesMensais, by = "sgUF")
sobreLimite <- dadosCEAP %>% 
  group_by(sgUF, nomeParlamentar, limite_mensal) %>%
  summarise(gasto = sum(valorLíquido)) %>% 
  filter(gasto > limite_mensal) %>%
  arrange(desc(gasto))


plot_ly(sobreLimite %>% ungroup() %>% top_n(5),  x = ~reorder(nomeParlamentar, -(gasto-limite_mensal)), y =~(gasto-limite_mensal), color = ~nomeParlamentar, colors = "Set2") %>%
  layout(title="Parlamentares cujos parlamentares mais ultrapassaram o limite de gasto da CEAP.",
         xaxis = list(title = "Parlamentar", tickangle = -45), 
         yaxis = list(title ="Gasto Total"))

Os parlamentares que mais ultrapassaram o limite da CEAP foram: Édio Lopes, Hiran Golçalvez e Jhonatan de Jesus. ## Quais estados cujos parlamentares gastam mais com passagens aéreas?

passagensReais <- dadosCEAP %>% 
  filter(valorLíquido > 0, tipoDespesa == "Emissão Bilhete Aéreo") %>%
  group_by(sgPartido) %>% 
  summarise(reais = sum(valorDocumento)) %>%
  arrange(desc(reais))

plot_ly(passagensReais %>% ungroup() %>% top_n(5),  x = ~reorder(sgPartido, -reais), y =~reais, color = ~sgPartido, colors = "Set2") %>%
  layout(title="Estados com parlamentares que mais gastaram com Passagens Aéreas.",
         xaxis = list(title = "Partido"), 
         yaxis = list(title ="Gasto Total"))

Os partidos que mais gastaram com passagens aéreas foram: PMDB, PT e PP. ##Escolha três partidos e responda: ##PT ##PSDB ##PMDB ##Quais são os tipos de despesa mais utilizados no uso da CEAP pelos deputados desses partidos?

PTgastos <- dadosCEAP %>% 
  filter(valorLíquido > 0, sgPartido == "PT") %>%
  group_by(tipoDespesa) %>%
  summarise(cont = n(), gasto= sum(valorLíquido)) %>%
  arrange(desc(cont))

PSDBgastos <- dadosCEAP %>% 
  filter(valorLíquido > 0, sgPartido == "PSDB") %>%
  group_by(tipoDespesa) %>%
  summarise(cont = n(), gasto= sum(valorLíquido)) %>%
  arrange(desc(cont))

PMDBgastos <- dadosCEAP %>% 
  filter(valorLíquido > 0, sgPartido == "PMDB") %>%
  group_by(tipoDespesa) %>%
  summarise(cont = n(), gasto= sum(valorLíquido)) %>%
  arrange(desc(cont))

plot_ly(PTgastos %>% ungroup() %>% top_n(5),  x = ~reorder(tipoDespesa, -cont), y =~cont, color = ~tipoDespesa, colors = "Set2") %>%
  layout(title="Uso da CEAP pelo partido PT.",
         xaxis = list(title = "Tipo de gasto"), 
         yaxis = list(title ="Uso Total"))

plot_ly(PSDBgastos %>% ungroup() %>% top_n(5),  x = ~reorder(tipoDespesa, -cont), y =~cont, color = ~tipoDespesa, colors = "Set2") %>%
  layout(title="Uso da CEAP pelo partido PSDB",
         xaxis = list(title = "Tiipo de Gasto"), 
         yaxis = list(title ="Uso Total"))

plot_ly(PMDBgastos %>% ungroup() %>% top_n(5),  x = ~reorder(tipoDespesa, -cont), y =~cont, color = ~tipoDespesa, colors = "Set2") %>%
  layout(title="Uso da CEAP pelo partido PMDB.",
         xaxis = list(title = "Tipo de Gasto"), 
         yaxis = list(title ="Usp Total"))

Os graficos apresentados acima ilustram o tipo dos gastos da CEAP dos partidos PT, PSDB e PMDB, em uso.

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

plot_ly(PTgastos %>% ungroup() %>% top_n(5),  x = ~reorder(tipoDespesa, -gasto), y =~gasto, color = ~tipoDespesa, colors = "Set2") %>%
  layout(title="Tipo dos gastos do PT.",
         xaxis = list(title = "Tipo gasto"), 
         yaxis = list(title ="Gasto Total"))

plot_ly(PSDBgastos %>% ungroup() %>% top_n(5),  x = ~reorder(tipoDespesa, -gasto), y =~gasto, color = ~tipoDespesa, colors = "Set2") %>%
  layout(title="Tipo dos gastos do PSDB.",
         xaxis = list(title = "Tipo gasto"), 
         yaxis = list(title ="Gasto Total"))

plot_ly(PMDBgastos %>% ungroup() %>% top_n(5),  x = ~reorder(tipoDespesa, -gasto), y =~gasto, color = ~tipoDespesa, colors = "Set2") %>%
  layout(title="Tipo dos gastos do PMDB.",
         xaxis = list(title = "Tipo gasto"), 
         yaxis = list(title ="Gasto Total"))

Os graficos apresentados acima ilustram o tipo dos gastos da CEAP dos partidos PT, PSDB e PMDB, em reais