contribuicao-variaveis

Compara as posições dos deputados federais considerando os votos em cada proposição.

Bibliotecas necessárias

library(ggplot2)
library(dplyr)
library(reshape2)
require(cluster)
require(ade4)
require(scales)
require(FactoMineR)


source("/home/viana/Projetos/houseofcunha/R/camara-lib.R")

Carregando CSV com os votos dos deputados

votos_por_deputado <- recuperar_votos_por_deputado(arquivo.votos = "/home/viana/Projetos/houseofcunha/votacoes.csv",corrigir.migracoes = TRUE)

mca1 = MCA(votos_por_deputado, 
           ncp = 2, # Default is 5 
           graph = FALSE,
           quali.sup = c(1:4),
           na.method = "Average") # NA or Avarege

# Top contribuição das variaveis
top_contrib <- head(as.data.frame(mca1$var$contrib))
top_contrib

##                Dim 1      Dim 2
## 10-1_não   0.1493458 0.15530447
## 10-1_sim   0.2042075 0.21235509
## 1030-1_não 0.2366301 0.06471384
## 1030-1_sim 0.1225787 0.03352293
## 1057-1_não 0.4307049 1.13350154
## 1057-1_sim 0.1002194 0.26375105

# Top extremos
var_coord <- as.data.frame(mca1$var$coord)

top_5_dim1 <- head(var_coord[order(var_coord$"Dim 1", decreasing=TRUE),], n=5)
top_5_dim1

##               Dim 1      Dim 2
## 177-1_não  1.432534 0.15657189
## 25-2_não   1.276696 0.07841074
## 668-13_sim 1.195118 0.24234647
## 691-5_não  1.172077 0.20318424
## 668-1_não  1.163977 0.37662114

top_5_dim2 <- head(var_coord[order(var_coord$"Dim 2", decreasing=TRUE),], n=5)
top_5_dim2

##                  Dim 1    Dim 2
## 3131-1_não  0.09499845 2.519165
## 37-2_não    0.01326643 2.506289
## 685-5_não   0.08549478 2.080652
## 789-1_não   0.04700802 1.735928
## 1121-1_não -0.62901987 1.515296

bottom_5_dim1 <- tail(var_coord[order(var_coord$"Dim 1", decreasing=TRUE),], n=5)
bottom_5_dim1

##                 Dim 1     Dim 2
## 1125-1_não -0.8866099 0.6277915
## 124-1_não  -0.9181269 1.0759287
## 1057-1_não -0.9486855 1.0217382
## 358-2_não  -1.0454194 0.8899430
## 124-2_não  -1.0582284 1.1763873

bottom_5_dim2 <- tail(var_coord[order(var_coord$"Dim 2", decreasing=TRUE),], n=5)
bottom_5_dim2

##                  Dim 1      Dim 2
## 182-29_sim -0.07608646 -0.5119041
## 4330-3_sim  0.07362865 -0.5197219
## 182-12_não  0.14819933 -0.5335519
## 679-1_sim  -0.06315454 -0.6256966
## 302-1_não  -0.41398833 -0.6995550