-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathglobal.R
77 lines (55 loc) · 3.29 KB
/
global.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
library("dplyr")
library("ggplot2")
library("dplyr")
library("pander")
library("reshape2")
ler_gastos <- function(arquivo = "dados/ano-atual.csv"){
#' Lê um csv criado a partir dos dados de gastos dos deputados da
#' Câmara e seta os tipos de colunas mais convenientemente.
#' Versão sem readr, para máquinas onde não é possível instalar esse pacote.
#' É um pouco mais lenta que a com readr.
require("dplyr", warn.conflicts = FALSE)
gastos = read.csv(arquivo, stringsAsFactors = FALSE)
gastos = gastos %>%
mutate_each(funs(as.factor), sgPartido, sgUF, txNomeParlamentar, indTipoDocumento)
return(gastos)
}
gastos_ck <- ler_gastos()
gastos_ck <- gastos_ck %>% select (1, 5, 6, 15, 18, 23, 27)
names(gastos_ck) <- c("Partido", "Nome", "UF", "Descricao","Fornecedor", "valorLiquido", "Passageiro")
gastosTotais.ce_ck <- gastos_ck %>% filter( UF == "CE")
gastosPorParlamentar_ck <- select(gastosTotais.ce_ck , valorLiquido, Nome, Partido)
agruparParlamentar_ck <- group_by(gastosPorParlamentar_ck, Nome, Partido)
gastosPorParlamentar_ck <- summarise(agruparParlamentar_ck, sum(valorLiquido))
colnames(gastosPorParlamentar_ck) <- c("Deputado", "Partido", "Gastos")
lucroFornecedor <- select(gastosTotais.ce_ck, valorLiquido, Fornecedor)
agruparFornecedor <- group_by(lucroFornecedor, Fornecedor)
lucroPorFornecedor <- summarise(agruparFornecedor, sum(valorLiquido))
colnames(lucroPorFornecedor) <- c("Fornecedor", "Valor.Total")
lucroPorFornecedor <- filter(lucroPorFornecedor, Valor.Total > 50000)
lucroFornecedor_ck <- select(gastosTotais.ce_ck, valorLiquido, Fornecedor, Nome, Partido)
agruparFornecedor_ck <- group_by(lucroFornecedor_ck , Fornecedor, Nome, Partido)
lucroPorFornecedor_ck <- summarise(agruparFornecedor_ck, sum(valorLiquido))
colnames(lucroPorFornecedor_ck ) <- c("Fornecedor", "Deputado","Partido", "ValorRecebido")
topFornecedores_ck <- subset(lucroPorFornecedor_ck, Fornecedor %in% lucroPorFornecedor$Fornecedor)
topFornecedores_ck <- filter(topFornecedores_ck, ValorRecebido> 0)
gastosTotais <- ler_gastos()
gastosTotais <- gastosTotais %>% select (1, 5, 6, 15, 23, 27)
names(gastosTotais) <- c("Partido", "Nome", "UF", "Descricao","valorLiquido", "Passageiro")
gastosTotais.ce <- gastosTotais %>% filter( UF == "CE")
gastosTotais1.ce <- gastosTotais.ce %>% filter( Nome != Passageiro)
gastosTotais2.ce <- gastosTotais.ce %>% filter( Descricao == "Emissão Bilhete Aéreo")
gastosPassagens1 <- select(gastosTotais1.ce, valorLiquido, Nome, Partido)
agruparGastosPassagens1 <- group_by(gastosPassagens1, Nome, Partido)
gastosPorPassagens1 <- summarise(agruparGastosPassagens1, sum(valorLiquido))
colnames(gastosPorPassagens1) <- c("Deputado", "Partido", "Valor Gasto com Terceiros")
gastosPassagens2 <- select(gastosTotais2.ce, valorLiquido, Nome, Partido)
agruparGastosPassagens2 <- group_by(gastosPassagens2, Nome, Partido)
gastosPorPassagens2 <- summarise(agruparGastosPassagens2, sum(valorLiquido))
colnames(gastosPorPassagens2) <- c("Deputado", "Partido", "Valor Total Gasto")
total <- merge(gastosPorPassagens1 ,gastosPorPassagens2, all.x = TRUE)
total.long<-melt(total)
colnames(total.long) <- c("Deputado", "Partido", "Legenda", "Gastos")
escolhas <<- list("Gastos com Passagens Aereas" = "passagens",
"Gastos Gerais" = "gerais",
"Inicio" = "inicio")