-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy pathafinidade.Rmd
79 lines (53 loc) · 2.46 KB
/
afinidade.Rmd
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
78
79
---
title: "afinidade"
output: html_document
---
Monta um ranking com os deputados mais próximos para cada deputado
```{r}
library(e1071)
library(tidyr)
source("R/camara-lib.R")
```
Top Not Afinidade
```{r}
votos_por_deputado <- recuperar_votos_por_deputado(arquivo.votos = "dados/votacoes.csv", corrigir.migracoes = TRUE)
rownames(votos_por_deputado) <- votos_por_deputado$id_dep
votos_por_deputado <- votos_por_deputado[,5:ncol(votos_por_deputado)]
votos_por_deputado[] <- lapply(votos_por_deputado, as.character)
votos_por_deputado[is.na(votos_por_deputado)] <- 0
votos_por_deputado <- as.matrix(votos_por_deputado)
votos_por_deputado <- as.data.frame(hamming.distance(votos_por_deputado))
not_afinidade <- top_not_afinidade(votos_por_deputado)
not_afinidade$not_afinidade <- paste(not_afinidade$"1", not_afinidade$"2", not_afinidade$"3",
not_afinidade$"4", not_afinidade$"5", sep=",")
not_afinidade <- select(not_afinidade, id_dep, not_afinidade)
destaques <- read.csv("~/Projetos/houseofcunha/dados/destaques.csv")
toPlot <- left_join(destaques, not_afinidade, by = "id_dep")
colnames(toPlot)[6] <- "uf"
toPlot$nome.y <- NULL
toPlot$uf.y <- NULL
toPlot$partido.y <- NULL
toPlot$none <- NULL
toPlot$destaque_pb <- NULL
toPlot$destaque_cassacao_partido <- NULL
toPlot$destaque_cassacao_pt <- NULL
toPlot$destaque_cunha <- NULL
write.csv2(toPlot, file = "~/Projetos/houseofcunha-interface/graficos/MCA_afinidades_notafinidades.csv", row.names = FALSE)
```
Top Afinidade
```{r}
votos_por_deputado <- recuperar_votos_por_deputado(arquivo.votos = "dados/votacoes.csv", corrigir.migracoes = TRUE)
rownames(votos_por_deputado) <- votos_por_deputado$id_dep
votos_por_deputado <- votos_por_deputado[,5:ncol(votos_por_deputado)]
votos_por_deputado[] <- lapply(votos_por_deputado, as.character)
votos_por_deputado[is.na(votos_por_deputado)] <- 0
votos_por_deputado <- as.matrix(votos_por_deputado)
votos_por_deputado <- as.data.frame(hamming.distance(votos_por_deputado))
afinidade <- top_afinidade(votos_por_deputado)
afinidade$afinidade <- paste(afinidade$"1", afinidade$"2", afinidade$"3",
afinidade$"4", afinidade$"5", sep=",")
afinidade <- select(afinidade, id_dep, afinidade)
MCA_new <- read.csv("~/Projetos/houseofcunha-interface/graficos/MCA_afinidades_notafinidades.csv", sep=";")
toPlot <- left_join(MCA_new, afinidade, by = "id_dep")
write.csv2(toPlot, file = "~/Projetos/houseofcunha-interface/graficos/MCA_afinidades_notafinidades.csv", row.names = FALSE)
```