library(reshape2)
library(ggplot2)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(caret)
## Loading required package: lattice
## Warning in as.POSIXlt.POSIXct(Sys.time()): unknown timezone 'zone/tz/2017c.
## 1.0/zoneinfo/America/Fortaleza'
library(lattice)
library(corrplot)
## corrplot 0.84 loaded
eleicoes = read.csv("eleicoes2014.csv", encoding = 'latin1')
media_partidos <- mean(eleicoes$recursos_de_partidos, na.rm = TRUE)
eleicoes$recursos_de_partidos[is.na(eleicoes$recursos_de_partidos)] <- media_partidos
media_comites <- mean(eleicoes$recursos_de_outros_candidatos.comites, na.rm = TRUE)
eleicoes$recursos_de_outros_candidatos.comites[is.na(eleicoes$recursos_de_outros_candidatos.comites)] <- media_comites
media_proprios <- mean(eleicoes$recursos_proprios, na.rm = TRUE)
eleicoes$recursos_proprios[is.na(eleicoes$recursos_proprios)] <- media_proprios
media_fisicas <- mean(eleicoes$recursos_de_pessoas_físicas, na.rm = TRUE)
eleicoes$recursos_de_pessoas_físicas[is.na(eleicoes$recursos_de_pessoas_físicas)] <- media_fisicas
media_juridicas <- mean(eleicoes$recursos_de_pessoas_juridicas, na.rm = TRUE)
eleicoes$recursos_de_pessoas_juridicas[is.na(eleicoes$recursos_de_pessoas_juridicas)] <- media_juridicas
codigo = eleicoes$sequencial_candidato
setorEconomico = as.numeric(eleicoes$setor_economico_receita)
qtdDoacoes = eleicoes$quantidade_doacoes
qtdDoadores = eleicoes$quantidade_doadores
totalReceita = eleicoes$total_receita
mediaReceita = eleicoes$media_receita
outrosRecursos = eleicoes$recursos_de_outros_candidatos.comites
recursosDePartidos = eleicoes$recursos_de_partidos
recursosDePessoaFisica = eleicoes$recursos_de_pessoas_físicas
recursosDePessoaJuridica = eleicoes$recursos_de_pessoas_juridicas
recursosProprios = eleicoes$recursos_proprios
votos = eleicoes$votos
qtdDespesas = eleicoes$quantidade_despesas
qtdFornecedores = eleicoes$quantidade_fornecedores
totalDespesas = eleicoes$total_despesa
mediaDespesas = eleicoes$media_despesa
setorEconomico = eleicoes$setor_economico_despesa
escolaridade = eleicoes$grau
sexo = as.numeric(eleicoes$sexo)
partido = as.numeric(eleicoes$partido)
nome = as.numeric(eleicoes$nome)
estado = as.numeric(eleicoes$UF)
reg_multipla = lm(votos ~ setorEconomico + qtdDoacoes + qtdDoadores + totalReceita + mediaReceita + outrosRecursos + recursosDePartidos + recursosDePessoaFisica +recursosDePessoaJuridica + recursosProprios + qtdDespesas + qtdFornecedores + totalDespesas + mediaDespesas + setorEconomico + codigo + sexo + partido + nome + estado)
summary(reg_multipla)
##
## Call:
## lm(formula = votos ~ setorEconomico + qtdDoacoes + qtdDoadores +
## totalReceita + mediaReceita + outrosRecursos + recursosDePartidos +
## recursosDePessoaFisica + recursosDePessoaJuridica + recursosProprios +
## qtdDespesas + qtdFornecedores + totalDespesas + mediaDespesas +
## setorEconomico + codigo + sexo + partido + nome + estado)
##
## Residuals:
## Min 1Q Median 3Q Max
## -310276 -6983 -1627 3366 1242665
##
## Coefficients:
## Estimate
## (Intercept) 5.448e+03
## setorEconomicoAgenciamento de espaços para publicidade, exceto em veículos de comunicação 2.736e+04
## setorEconomicoAgências de publicidade -2.244e+04
## setorEconomicoAluguel de fitas de vídeo, DVDs e similares 3.151e+03
## setorEconomicoAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes 1.115e+04
## setorEconomicoAplicação de revestimentos e de resinas em interiores e exteriores 1.118e+02
## setorEconomicoAtividades de apoio à aqüicultura em água doce -6.486e+03
## setorEconomicoAtividades de associações de defesa de direitos sociais -4.507e+03
## setorEconomicoAtividades de contabilidade -9.072e+00
## setorEconomicoAtividades de franqueadas e permissionárias do Correio Nacional -1.161e+04
## setorEconomicoAtividades de organizações políticas 5.313e+02
## setorEconomicoAtividades de organizações sindicais -3.321e+03
## setorEconomicoAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente -1.240e+03
## setorEconomicoAtividades do Correio Nacional 1.114e+04
## setorEconomicoCasas de festas e eventos 2.297e+03
## setorEconomicoChaveiros -1.123e+03
## setorEconomicoComércio a varejo de peças e acessórios novos para veículos automotores -8.542e+02
## setorEconomicoComércio atacadista de artigos de escritório e de papelaria 9.784e+00
## setorEconomicoComércio atacadista de produtos alimentícios em geral 8.091e+02
## setorEconomicoComercio varejista de artigos de armarinho 1.838e+03
## setorEconomicoComércio varejista de artigos de iluminação -1.223e+03
## setorEconomicoComércio varejista de artigos de papelaria -3.590e+03
## setorEconomicoComércio varejista de artigos fotográficos e para filmagem -1.045e+04
## setorEconomicoComércio varejista de bebidas -5.096e+03
## setorEconomicoComércio varejista de combustíveis para veículos automotores -1.914e+03
## setorEconomicoComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal -9.361e+03
## setorEconomicoComércio varejista de ferragens e ferramentas 3.050e+03
## setorEconomicoComércio varejista de jornais e revistas 2.129e+03
## setorEconomicoComércio varejista de madeira e artefatos 2.760e+03
## setorEconomicoComércio varejista de materiais de construção em geral -1.346e+04
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados -2.402e+03
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados -1.704e+04
## setorEconomicoComércio varejista de outros produtos não especificados anteriormente -7.017e+02
## setorEconomicoComércio varejista de tintas e materiais para pintura -4.173e+03
## setorEconomicoComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo -8.012e+03
## setorEconomicoComércio varejista especializado de equipamentos de telefonia e comunicação 2.976e+03
## setorEconomicoComércio varejista especializado de equipamentos e suprimentos de informática -8.953e+02
## setorEconomicoComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação 1.206e+05
## setorEconomicoConcessionárias de rodovias, pontes, túneis e serviços relacionados 1.906e+03
## setorEconomicoConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida -4.761e+03
## setorEconomicoConfecção de roupas íntimas -2.611e+03
## setorEconomicoConfecção, sob medida, de peças do vestuário, exceto roupas íntimas 5.337e+03
## setorEconomicoDistribuição de energia elétrica 6.363e+03
## setorEconomicoEdição de cadastros, listas e outros produtos gráficos 8.341e+03
## setorEconomicoEdição de livros 1.254e+03
## setorEconomicoEdição integrada à impressão de cadastros, listas e outros produtos gráficos 7.487e+03
## setorEconomicoEdição integrada à impressão de livros 1.041e+04
## setorEconomicoEdição integrada à impressão de revistas -8.301e+03
## setorEconomicoEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário -9.143e+03
## setorEconomicoFabricação de adesivos e selantes 2.391e+04
## setorEconomicoFabricação de artefatos de material plástico para uso pessoal e doméstico 5.831e+03
## setorEconomicoFabricação de embalagens de papel -1.621e+03
## setorEconomicoFabricação de letras, letreiros e placas de qualquer material, exceto luminosos -3.210e+03
## setorEconomicoFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios 1.989e+04
## setorEconomicoFabricação de painéis e letreiros luminosos 1.877e+03
## setorEconomicoFabricação de papel 2.588e+03
## setorEconomicoFabricação de produtos de limpeza e polimento -1.330e+04
## setorEconomicoFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório -6.455e+03
## setorEconomicoFotocópias -3.924e+03
## setorEconomicoImpressão de jornais -7.121e+02
## setorEconomicoImpressão de livros, revistas e outras publicações periódicas 1.038e+04
## setorEconomicoImpressão de material de segurança -1.212e+03
## setorEconomicoImpressão de material para outros usos 1.741e+02
## setorEconomicoImpressão de material para uso publicitário 8.199e+02
## setorEconomicoInstalação de painéis publicitários -5.110e+03
## setorEconomicoLanchonetes, casas de chá, de sucos e similares -3.781e+03
## setorEconomicoLocação de automóveis sem condutor -1.711e+04
## setorEconomicoMarketing direto -2.504e+03
## setorEconomicoOutras atividades de publicidade não especificadas anteriormente -5.710e+02
## setorEconomicoOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente -3.810e+03
## setorEconomicoOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário 1.915e+02
## setorEconomicoPadaria e confeitaria com predominância de revenda -6.144e+03
## setorEconomicoPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente -1.392e+03
## setorEconomicoPromoção de vendas -3.793e+03
## setorEconomicoRecarga de cartuchos para equipamentos de informática 2.909e+02
## setorEconomicoRestaurantes e similares 3.125e+03
## setorEconomicoServiço de transporte de passageiros - locação de automóveis com motorista -7.111e+03
## setorEconomicoServiços advocatícios -2.025e+03
## setorEconomicoServiços combinados de escritório e apoio administrativo -1.450e+04
## setorEconomicoServiços de acabamentos gráficos, exceto encadernação e plastificação -6.893e+03
## setorEconomicoServiços de comunicação multimídia - SCM 2.660e+03
## setorEconomicoServiços de engenharia -7.208e+03
## setorEconomicoServiços de entrega rápida -5.645e+03
## setorEconomicoServiços de lavagem, lubrificação e polimento de veículos automotores -1.777e+03
## setorEconomicoServiços de organização de feiras, congressos, exposições e festas -1.658e+04
## setorEconomicoServiços de pré-impressão -3.775e+01
## setorEconomicoSuporte técnico, manutenção e outros serviços em tecnologia da informação 2.269e+04
## setorEconomicoTransporte rodoviário coletivo de passageiros, com itinerário fixo, intermunicipal, exceto em região metropolitana 1.706e+02
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, intermunicipal, interestadual e internacional -3.469e+03
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal -1.145e+04
## setorEconomicoTransporte rodoviário de mudanças -4.810e+03
## qtdDoacoes -1.639e+01
## qtdDoadores 2.709e+02
## totalReceita 7.327e-02
## mediaReceita 3.788e-01
## outrosRecursos 5.645e-02
## recursosDePartidos -3.566e-02
## recursosDePessoaFisica -3.312e-02
## recursosDePessoaJuridica -2.829e-02
## recursosProprios -4.969e-02
## qtdDespesas 4.928e+01
## qtdFornecedores -5.464e+01
## totalDespesas -2.750e-02
## mediaDespesas 2.168e+00
## codigo -4.123e-08
## sexo 2.696e+03
## partido -4.628e+00
## nome -2.919e-01
## estado 4.327e+02
## Std. Error
## (Intercept) 3.308e+03
## setorEconomicoAgenciamento de espaços para publicidade, exceto em veículos de comunicação 1.643e+04
## setorEconomicoAgências de publicidade 1.902e+04
## setorEconomicoAluguel de fitas de vídeo, DVDs e similares 3.283e+04
## setorEconomicoAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes 3.282e+04
## setorEconomicoAplicação de revestimentos e de resinas em interiores e exteriores 3.283e+04
## setorEconomicoAtividades de apoio à aqüicultura em água doce 2.323e+04
## setorEconomicoAtividades de associações de defesa de direitos sociais 1.474e+04
## setorEconomicoAtividades de contabilidade 1.164e+04
## setorEconomicoAtividades de franqueadas e permissionárias do Correio Nacional 2.322e+04
## setorEconomicoAtividades de organizações políticas 1.270e+03
## setorEconomicoAtividades de organizações sindicais 3.283e+04
## setorEconomicoAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente 3.283e+04
## setorEconomicoAtividades do Correio Nacional 9.134e+03
## setorEconomicoCasas de festas e eventos 3.284e+04
## setorEconomicoChaveiros 3.282e+04
## setorEconomicoComércio a varejo de peças e acessórios novos para veículos automotores 1.897e+04
## setorEconomicoComércio atacadista de artigos de escritório e de papelaria 3.282e+04
## setorEconomicoComércio atacadista de produtos alimentícios em geral 3.283e+04
## setorEconomicoComercio varejista de artigos de armarinho 3.284e+04
## setorEconomicoComércio varejista de artigos de iluminação 2.323e+04
## setorEconomicoComércio varejista de artigos de papelaria 6.889e+03
## setorEconomicoComércio varejista de artigos fotográficos e para filmagem 3.284e+04
## setorEconomicoComércio varejista de bebidas 3.283e+04
## setorEconomicoComércio varejista de combustíveis para veículos automotores 3.403e+03
## setorEconomicoComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal 3.284e+04
## setorEconomicoComércio varejista de ferragens e ferramentas 3.282e+04
## setorEconomicoComércio varejista de jornais e revistas 1.896e+04
## setorEconomicoComércio varejista de madeira e artefatos 2.322e+04
## setorEconomicoComércio varejista de materiais de construção em geral 3.283e+04
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados 3.283e+04
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados 1.477e+04
## setorEconomicoComércio varejista de outros produtos não especificados anteriormente 9.143e+03
## setorEconomicoComércio varejista de tintas e materiais para pintura 1.642e+04
## setorEconomicoComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo 3.284e+04
## setorEconomicoComércio varejista especializado de equipamentos de telefonia e comunicação 1.896e+04
## setorEconomicoComércio varejista especializado de equipamentos e suprimentos de informática 1.342e+04
## setorEconomicoComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação 3.284e+04
## setorEconomicoConcessionárias de rodovias, pontes, túneis e serviços relacionados 1.471e+04
## setorEconomicoConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida 3.283e+04
## setorEconomicoConfecção de roupas íntimas 3.283e+04
## setorEconomicoConfecção, sob medida, de peças do vestuário, exceto roupas íntimas 3.284e+04
## setorEconomicoDistribuição de energia elétrica 3.283e+04
## setorEconomicoEdição de cadastros, listas e outros produtos gráficos 9.137e+03
## setorEconomicoEdição de livros 1.643e+04
## setorEconomicoEdição integrada à impressão de cadastros, listas e outros produtos gráficos 5.123e+03
## setorEconomicoEdição integrada à impressão de livros 1.644e+04
## setorEconomicoEdição integrada à impressão de revistas 3.284e+04
## setorEconomicoEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário 2.322e+04
## setorEconomicoFabricação de adesivos e selantes 1.896e+04
## setorEconomicoFabricação de artefatos de material plástico para uso pessoal e doméstico 3.285e+04
## setorEconomicoFabricação de embalagens de papel 3.282e+04
## setorEconomicoFabricação de letras, letreiros e placas de qualquer material, exceto luminosos 7.054e+03
## setorEconomicoFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios 3.283e+04
## setorEconomicoFabricação de painéis e letreiros luminosos 1.469e+04
## setorEconomicoFabricação de papel 3.282e+04
## setorEconomicoFabricação de produtos de limpeza e polimento 3.284e+04
## setorEconomicoFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório 1.896e+04
## setorEconomicoFotocópias 8.510e+03
## setorEconomicoImpressão de jornais 1.470e+04
## setorEconomicoImpressão de livros, revistas e outras publicações periódicas 6.051e+03
## setorEconomicoImpressão de material de segurança 1.471e+04
## setorEconomicoImpressão de material para outros usos 3.945e+03
## setorEconomicoImpressão de material para uso publicitário 3.250e+03
## setorEconomicoInstalação de painéis publicitários 1.470e+04
## setorEconomicoLanchonetes, casas de chá, de sucos e similares 2.322e+04
## setorEconomicoLocação de automóveis sem condutor 3.306e+04
## setorEconomicoMarketing direto 2.322e+04
## setorEconomicoOutras atividades de publicidade não especificadas anteriormente 1.097e+04
## setorEconomicoOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente 1.243e+04
## setorEconomicoOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário 3.284e+04
## setorEconomicoPadaria e confeitaria com predominância de revenda 3.284e+04
## setorEconomicoPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente 1.470e+04
## setorEconomicoPromoção de vendas 3.283e+04
## setorEconomicoRecarga de cartuchos para equipamentos de informática 3.283e+04
## setorEconomicoRestaurantes e similares 2.322e+04
## setorEconomicoServiço de transporte de passageiros - locação de automóveis com motorista 3.282e+04
## setorEconomicoServiços advocatícios 3.283e+04
## setorEconomicoServiços combinados de escritório e apoio administrativo 3.287e+04
## setorEconomicoServiços de acabamentos gráficos, exceto encadernação e plastificação 8.002e+03
## setorEconomicoServiços de comunicação multimídia - SCM 3.283e+04
## setorEconomicoServiços de engenharia 3.282e+04
## setorEconomicoServiços de entrega rápida 3.284e+04
## setorEconomicoServiços de lavagem, lubrificação e polimento de veículos automotores 3.283e+04
## setorEconomicoServiços de organização de feiras, congressos, exposições e festas 1.941e+04
## setorEconomicoServiços de pré-impressão 8.013e+03
## setorEconomicoSuporte técnico, manutenção e outros serviços em tecnologia da informação 3.283e+04
## setorEconomicoTransporte rodoviário coletivo de passageiros, com itinerário fixo, intermunicipal, exceto em região metropolitana 3.284e+04
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, intermunicipal, interestadual e internacional 3.283e+04
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal 3.283e+04
## setorEconomicoTransporte rodoviário de mudanças 3.282e+04
## qtdDoacoes 2.684e+01
## qtdDoadores 3.940e+01
## totalReceita 8.884e-03
## mediaReceita 5.255e-02
## outrosRecursos 7.758e-03
## recursosDePartidos 4.362e-03
## recursosDePessoaFisica 9.093e-03
## recursosDePessoaJuridica 4.552e-03
## recursosProprios 5.687e-03
## qtdDespesas 4.343e+00
## qtdFornecedores 6.258e+00
## totalDespesas 7.499e-03
## mediaDespesas 4.146e-01
## codigo 5.325e-08
## sexo 1.193e+03
## partido 5.932e+01
## nome 4.314e-01
## estado 5.035e+02
## t value
## (Intercept) 1.647
## setorEconomicoAgenciamento de espaços para publicidade, exceto em veículos de comunicação 1.665
## setorEconomicoAgências de publicidade -1.179
## setorEconomicoAluguel de fitas de vídeo, DVDs e similares 0.096
## setorEconomicoAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes 0.340
## setorEconomicoAplicação de revestimentos e de resinas em interiores e exteriores 0.003
## setorEconomicoAtividades de apoio à aqüicultura em água doce -0.279
## setorEconomicoAtividades de associações de defesa de direitos sociais -0.306
## setorEconomicoAtividades de contabilidade -0.001
## setorEconomicoAtividades de franqueadas e permissionárias do Correio Nacional -0.500
## setorEconomicoAtividades de organizações políticas 0.418
## setorEconomicoAtividades de organizações sindicais -0.101
## setorEconomicoAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente -0.038
## setorEconomicoAtividades do Correio Nacional 1.219
## setorEconomicoCasas de festas e eventos 0.070
## setorEconomicoChaveiros -0.034
## setorEconomicoComércio a varejo de peças e acessórios novos para veículos automotores -0.045
## setorEconomicoComércio atacadista de artigos de escritório e de papelaria 0.000
## setorEconomicoComércio atacadista de produtos alimentícios em geral 0.025
## setorEconomicoComercio varejista de artigos de armarinho 0.056
## setorEconomicoComércio varejista de artigos de iluminação -0.053
## setorEconomicoComércio varejista de artigos de papelaria -0.521
## setorEconomicoComércio varejista de artigos fotográficos e para filmagem -0.318
## setorEconomicoComércio varejista de bebidas -0.155
## setorEconomicoComércio varejista de combustíveis para veículos automotores -0.562
## setorEconomicoComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal -0.285
## setorEconomicoComércio varejista de ferragens e ferramentas 0.093
## setorEconomicoComércio varejista de jornais e revistas 0.112
## setorEconomicoComércio varejista de madeira e artefatos 0.119
## setorEconomicoComércio varejista de materiais de construção em geral -0.410
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados -0.073
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados -1.153
## setorEconomicoComércio varejista de outros produtos não especificados anteriormente -0.077
## setorEconomicoComércio varejista de tintas e materiais para pintura -0.254
## setorEconomicoComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo -0.244
## setorEconomicoComércio varejista especializado de equipamentos de telefonia e comunicação 0.157
## setorEconomicoComércio varejista especializado de equipamentos e suprimentos de informática -0.067
## setorEconomicoComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação 3.672
## setorEconomicoConcessionárias de rodovias, pontes, túneis e serviços relacionados 0.130
## setorEconomicoConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida -0.145
## setorEconomicoConfecção de roupas íntimas -0.080
## setorEconomicoConfecção, sob medida, de peças do vestuário, exceto roupas íntimas 0.163
## setorEconomicoDistribuição de energia elétrica 0.194
## setorEconomicoEdição de cadastros, listas e outros produtos gráficos 0.913
## setorEconomicoEdição de livros 0.076
## setorEconomicoEdição integrada à impressão de cadastros, listas e outros produtos gráficos 1.461
## setorEconomicoEdição integrada à impressão de livros 0.633
## setorEconomicoEdição integrada à impressão de revistas -0.253
## setorEconomicoEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário -0.394
## setorEconomicoFabricação de adesivos e selantes 1.261
## setorEconomicoFabricação de artefatos de material plástico para uso pessoal e doméstico 0.178
## setorEconomicoFabricação de embalagens de papel -0.049
## setorEconomicoFabricação de letras, letreiros e placas de qualquer material, exceto luminosos -0.455
## setorEconomicoFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios 0.606
## setorEconomicoFabricação de painéis e letreiros luminosos 0.128
## setorEconomicoFabricação de papel 0.079
## setorEconomicoFabricação de produtos de limpeza e polimento -0.405
## setorEconomicoFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório -0.340
## setorEconomicoFotocópias -0.461
## setorEconomicoImpressão de jornais -0.048
## setorEconomicoImpressão de livros, revistas e outras publicações periódicas 1.715
## setorEconomicoImpressão de material de segurança -0.082
## setorEconomicoImpressão de material para outros usos 0.044
## setorEconomicoImpressão de material para uso publicitário 0.252
## setorEconomicoInstalação de painéis publicitários -0.348
## setorEconomicoLanchonetes, casas de chá, de sucos e similares -0.163
## setorEconomicoLocação de automóveis sem condutor -0.518
## setorEconomicoMarketing direto -0.108
## setorEconomicoOutras atividades de publicidade não especificadas anteriormente -0.052
## setorEconomicoOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente -0.306
## setorEconomicoOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário 0.006
## setorEconomicoPadaria e confeitaria com predominância de revenda -0.187
## setorEconomicoPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente -0.095
## setorEconomicoPromoção de vendas -0.116
## setorEconomicoRecarga de cartuchos para equipamentos de informática 0.009
## setorEconomicoRestaurantes e similares 0.135
## setorEconomicoServiço de transporte de passageiros - locação de automóveis com motorista -0.217
## setorEconomicoServiços advocatícios -0.062
## setorEconomicoServiços combinados de escritório e apoio administrativo -0.441
## setorEconomicoServiços de acabamentos gráficos, exceto encadernação e plastificação -0.861
## setorEconomicoServiços de comunicação multimídia - SCM 0.081
## setorEconomicoServiços de engenharia -0.220
## setorEconomicoServiços de entrega rápida -0.172
## setorEconomicoServiços de lavagem, lubrificação e polimento de veículos automotores -0.054
## setorEconomicoServiços de organização de feiras, congressos, exposições e festas -0.854
## setorEconomicoServiços de pré-impressão -0.005
## setorEconomicoSuporte técnico, manutenção e outros serviços em tecnologia da informação 0.691
## setorEconomicoTransporte rodoviário coletivo de passageiros, com itinerário fixo, intermunicipal, exceto em região metropolitana 0.005
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, intermunicipal, interestadual e internacional -0.106
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal -0.349
## setorEconomicoTransporte rodoviário de mudanças -0.147
## qtdDoacoes -0.611
## qtdDoadores 6.875
## totalReceita 8.247
## mediaReceita 7.208
## outrosRecursos 7.276
## recursosDePartidos -8.175
## recursosDePessoaFisica -3.643
## recursosDePessoaJuridica -6.214
## recursosProprios -8.737
## qtdDespesas 11.347
## qtdFornecedores -8.731
## totalDespesas -3.667
## mediaDespesas 5.229
## codigo -0.774
## sexo 2.260
## partido -0.078
## nome -0.677
## estado 0.859
## Pr(>|t|)
## (Intercept) 0.099710
## setorEconomicoAgenciamento de espaços para publicidade, exceto em veículos de comunicação 0.095981
## setorEconomicoAgências de publicidade 0.238330
## setorEconomicoAluguel de fitas de vídeo, DVDs e similares 0.923552
## setorEconomicoAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes 0.734076
## setorEconomicoAplicação de revestimentos e de resinas em interiores e exteriores 0.997283
## setorEconomicoAtividades de apoio à aqüicultura em água doce 0.780103
## setorEconomicoAtividades de associações de defesa de direitos sociais 0.759794
## setorEconomicoAtividades de contabilidade 0.999378
## setorEconomicoAtividades de franqueadas e permissionárias do Correio Nacional 0.617259
## setorEconomicoAtividades de organizações políticas 0.675753
## setorEconomicoAtividades de organizações sindicais 0.919437
## setorEconomicoAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente 0.969886
## setorEconomicoAtividades do Correio Nacional 0.222795
## setorEconomicoCasas de festas e eventos 0.944247
## setorEconomicoChaveiros 0.972711
## setorEconomicoComércio a varejo de peças e acessórios novos para veículos automotores 0.964086
## setorEconomicoComércio atacadista de artigos de escritório e de papelaria 0.999762
## setorEconomicoComércio atacadista de produtos alimentícios em geral 0.980338
## setorEconomicoComercio varejista de artigos de armarinho 0.955361
## setorEconomicoComércio varejista de artigos de iluminação 0.957999
## setorEconomicoComércio varejista de artigos de papelaria 0.602276
## setorEconomicoComércio varejista de artigos fotográficos e para filmagem 0.750369
## setorEconomicoComércio varejista de bebidas 0.876662
## setorEconomicoComércio varejista de combustíveis para veículos automotores 0.573863
## setorEconomicoComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal 0.775633
## setorEconomicoComércio varejista de ferragens e ferramentas 0.925978
## setorEconomicoComércio varejista de jornais e revistas 0.910625
## setorEconomicoComércio varejista de madeira e artefatos 0.905381
## setorEconomicoComércio varejista de materiais de construção em geral 0.681864
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados 0.941681
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados 0.248924
## setorEconomicoComércio varejista de outros produtos não especificados anteriormente 0.938832
## setorEconomicoComércio varejista de tintas e materiais para pintura 0.799442
## setorEconomicoComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo 0.807258
## setorEconomicoComércio varejista especializado de equipamentos de telefonia e comunicação 0.875308
## setorEconomicoComércio varejista especializado de equipamentos e suprimentos de informática 0.946813
## setorEconomicoComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação 0.000244
## setorEconomicoConcessionárias de rodovias, pontes, túneis e serviços relacionados 0.896959
## setorEconomicoConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida 0.884694
## setorEconomicoConfecção de roupas íntimas 0.936611
## setorEconomicoConfecção, sob medida, de peças do vestuário, exceto roupas íntimas 0.870915
## setorEconomicoDistribuição de energia elétrica 0.846318
## setorEconomicoEdição de cadastros, listas e outros produtos gráficos 0.361339
## setorEconomicoEdição de livros 0.939150
## setorEconomicoEdição integrada à impressão de cadastros, listas e outros produtos gráficos 0.143998
## setorEconomicoEdição integrada à impressão de livros 0.526883
## setorEconomicoEdição integrada à impressão de revistas 0.800435
## setorEconomicoEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário 0.693769
## setorEconomicoFabricação de adesivos e selantes 0.207244
## setorEconomicoFabricação de artefatos de material plástico para uso pessoal e doméstico 0.859103
## setorEconomicoFabricação de embalagens de papel 0.960625
## setorEconomicoFabricação de letras, letreiros e placas de qualquer material, exceto luminosos 0.649111
## setorEconomicoFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios 0.544721
## setorEconomicoFabricação de painéis e letreiros luminosos 0.898354
## setorEconomicoFabricação de papel 0.937145
## setorEconomicoFabricação de produtos de limpeza e polimento 0.685524
## setorEconomicoFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório 0.733530
## setorEconomicoFotocópias 0.644745
## setorEconomicoImpressão de jornais 0.961359
## setorEconomicoImpressão de livros, revistas e outras publicações periódicas 0.086362
## setorEconomicoImpressão de material de segurança 0.934344
## setorEconomicoImpressão de material para outros usos 0.964813
## setorEconomicoImpressão de material para uso publicitário 0.800842
## setorEconomicoInstalação de painéis publicitários 0.728076
## setorEconomicoLanchonetes, casas de chá, de sucos e similares 0.870663
## setorEconomicoLocação de automóveis sem condutor 0.604801
## setorEconomicoMarketing direto 0.914132
## setorEconomicoOutras atividades de publicidade não especificadas anteriormente 0.958475
## setorEconomicoOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente 0.759288
## setorEconomicoOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário 0.995346
## setorEconomicoPadaria e confeitaria com predominância de revenda 0.851583
## setorEconomicoPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente 0.924610
## setorEconomicoPromoção de vendas 0.908030
## setorEconomicoRecarga de cartuchos para equipamentos de informática 0.992932
## setorEconomicoRestaurantes e similares 0.892968
## setorEconomicoServiço de transporte de passageiros - locação de automóveis com motorista 0.828500
## setorEconomicoServiços advocatícios 0.950812
## setorEconomicoServiços combinados de escritório e apoio administrativo 0.659182
## setorEconomicoServiços de acabamentos gráficos, exceto encadernação e plastificação 0.389081
## setorEconomicoServiços de comunicação multimídia - SCM 0.935427
## setorEconomicoServiços de engenharia 0.826167
## setorEconomicoServiços de entrega rápida 0.863512
## setorEconomicoServiços de lavagem, lubrificação e polimento de veículos automotores 0.956841
## setorEconomicoServiços de organização de feiras, congressos, exposições e festas 0.393042
## setorEconomicoServiços de pré-impressão 0.996241
## setorEconomicoSuporte técnico, manutenção e outros serviços em tecnologia da informação 0.489481
## setorEconomicoTransporte rodoviário coletivo de passageiros, com itinerário fixo, intermunicipal, exceto em região metropolitana 0.995856
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, intermunicipal, interestadual e internacional 0.915845
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal 0.727199
## setorEconomicoTransporte rodoviário de mudanças 0.883494
## qtdDoacoes 0.541395
## qtdDoadores 7.16e-12
## totalReceita < 2e-16
## mediaReceita 6.72e-13
## outrosRecursos 4.11e-13
## recursosDePartidos 3.91e-16
## recursosDePessoaFisica 0.000273
## recursosDePessoaJuridica 5.67e-10
## recursosProprios < 2e-16
## qtdDespesas < 2e-16
## qtdFornecedores < 2e-16
## totalDespesas 0.000249
## mediaDespesas 1.79e-07
## codigo 0.438860
## sexo 0.023847
## partido 0.937816
## nome 0.498747
## estado 0.390153
##
## (Intercept) .
## setorEconomicoAgenciamento de espaços para publicidade, exceto em veículos de comunicação .
## setorEconomicoAgências de publicidade
## setorEconomicoAluguel de fitas de vídeo, DVDs e similares
## setorEconomicoAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes
## setorEconomicoAplicação de revestimentos e de resinas em interiores e exteriores
## setorEconomicoAtividades de apoio à aqüicultura em água doce
## setorEconomicoAtividades de associações de defesa de direitos sociais
## setorEconomicoAtividades de contabilidade
## setorEconomicoAtividades de franqueadas e permissionárias do Correio Nacional
## setorEconomicoAtividades de organizações políticas
## setorEconomicoAtividades de organizações sindicais
## setorEconomicoAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente
## setorEconomicoAtividades do Correio Nacional
## setorEconomicoCasas de festas e eventos
## setorEconomicoChaveiros
## setorEconomicoComércio a varejo de peças e acessórios novos para veículos automotores
## setorEconomicoComércio atacadista de artigos de escritório e de papelaria
## setorEconomicoComércio atacadista de produtos alimentícios em geral
## setorEconomicoComercio varejista de artigos de armarinho
## setorEconomicoComércio varejista de artigos de iluminação
## setorEconomicoComércio varejista de artigos de papelaria
## setorEconomicoComércio varejista de artigos fotográficos e para filmagem
## setorEconomicoComércio varejista de bebidas
## setorEconomicoComércio varejista de combustíveis para veículos automotores
## setorEconomicoComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal
## setorEconomicoComércio varejista de ferragens e ferramentas
## setorEconomicoComércio varejista de jornais e revistas
## setorEconomicoComércio varejista de madeira e artefatos
## setorEconomicoComércio varejista de materiais de construção em geral
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados
## setorEconomicoComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados
## setorEconomicoComércio varejista de outros produtos não especificados anteriormente
## setorEconomicoComércio varejista de tintas e materiais para pintura
## setorEconomicoComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo
## setorEconomicoComércio varejista especializado de equipamentos de telefonia e comunicação
## setorEconomicoComércio varejista especializado de equipamentos e suprimentos de informática
## setorEconomicoComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação ***
## setorEconomicoConcessionárias de rodovias, pontes, túneis e serviços relacionados
## setorEconomicoConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida
## setorEconomicoConfecção de roupas íntimas
## setorEconomicoConfecção, sob medida, de peças do vestuário, exceto roupas íntimas
## setorEconomicoDistribuição de energia elétrica
## setorEconomicoEdição de cadastros, listas e outros produtos gráficos
## setorEconomicoEdição de livros
## setorEconomicoEdição integrada à impressão de cadastros, listas e outros produtos gráficos
## setorEconomicoEdição integrada à impressão de livros
## setorEconomicoEdição integrada à impressão de revistas
## setorEconomicoEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário
## setorEconomicoFabricação de adesivos e selantes
## setorEconomicoFabricação de artefatos de material plástico para uso pessoal e doméstico
## setorEconomicoFabricação de embalagens de papel
## setorEconomicoFabricação de letras, letreiros e placas de qualquer material, exceto luminosos
## setorEconomicoFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios
## setorEconomicoFabricação de painéis e letreiros luminosos
## setorEconomicoFabricação de papel
## setorEconomicoFabricação de produtos de limpeza e polimento
## setorEconomicoFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório
## setorEconomicoFotocópias
## setorEconomicoImpressão de jornais
## setorEconomicoImpressão de livros, revistas e outras publicações periódicas .
## setorEconomicoImpressão de material de segurança
## setorEconomicoImpressão de material para outros usos
## setorEconomicoImpressão de material para uso publicitário
## setorEconomicoInstalação de painéis publicitários
## setorEconomicoLanchonetes, casas de chá, de sucos e similares
## setorEconomicoLocação de automóveis sem condutor
## setorEconomicoMarketing direto
## setorEconomicoOutras atividades de publicidade não especificadas anteriormente
## setorEconomicoOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente
## setorEconomicoOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário
## setorEconomicoPadaria e confeitaria com predominância de revenda
## setorEconomicoPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente
## setorEconomicoPromoção de vendas
## setorEconomicoRecarga de cartuchos para equipamentos de informática
## setorEconomicoRestaurantes e similares
## setorEconomicoServiço de transporte de passageiros - locação de automóveis com motorista
## setorEconomicoServiços advocatícios
## setorEconomicoServiços combinados de escritório e apoio administrativo
## setorEconomicoServiços de acabamentos gráficos, exceto encadernação e plastificação
## setorEconomicoServiços de comunicação multimídia - SCM
## setorEconomicoServiços de engenharia
## setorEconomicoServiços de entrega rápida
## setorEconomicoServiços de lavagem, lubrificação e polimento de veículos automotores
## setorEconomicoServiços de organização de feiras, congressos, exposições e festas
## setorEconomicoServiços de pré-impressão
## setorEconomicoSuporte técnico, manutenção e outros serviços em tecnologia da informação
## setorEconomicoTransporte rodoviário coletivo de passageiros, com itinerário fixo, intermunicipal, exceto em região metropolitana
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, intermunicipal, interestadual e internacional
## setorEconomicoTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal
## setorEconomicoTransporte rodoviário de mudanças
## qtdDoacoes
## qtdDoadores ***
## totalReceita ***
## mediaReceita ***
## outrosRecursos ***
## recursosDePartidos ***
## recursosDePessoaFisica ***
## recursosDePessoaJuridica ***
## recursosProprios ***
## qtdDespesas ***
## qtdFornecedores ***
## totalDespesas ***
## mediaDespesas ***
## codigo
## sexo *
## partido
## nome
## estado
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 32790 on 4043 degrees of freedom
## Multiple R-squared: 0.4891, Adjusted R-squared: 0.4755
## F-statistic: 35.84 on 108 and 4043 DF, p-value: < 2.2e-16
Todas as variáveis são úteis para o modelo de regressão? Há variáveis redudantes? Justifique sua resposta em ambos os casos.
Algumas variáveis servem apenas para identificar o deputado e obviamente não servem para efeitos de análise para predição da quantidade de votos.
Observando o gráfico de correlações abaixo podemos observar que algumas variáveis são pouco explicativas e portanto não são úteis para o modelo de regressão.
Há ainda variáveis redundantes como o caso das variáveis total_depesa & total_receitadata <- eleicoes[, sapply(eleicoes, is.numeric)]
corMatrix <- cor(data$votos, data)
corrplot(corMatrix, method="number")
reg_linear = lm(votos ~ recursosDePartidos + recursosDePessoaFisica + recursosDePessoaJuridica + recursosProprios + outrosRecursos + mediaReceita + qtdDespesas + qtdFornecedores + totalDespesas + mediaDespesas + totalReceita)
summary(reg_linear)
##
## Call:
## lm(formula = votos ~ recursosDePartidos + recursosDePessoaFisica +
## recursosDePessoaJuridica + recursosProprios + outrosRecursos +
## mediaReceita + qtdDespesas + qtdFornecedores + totalDespesas +
## mediaDespesas + totalReceita)
##
## Residuals:
## Min 1Q Median 3Q Max
## -344259 -7967 -1777 3198 1238137
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.444e+04 1.483e+03 9.733 < 2e-16 ***
## recursosDePartidos -4.538e-02 4.203e-03 -10.798 < 2e-16 ***
## recursosDePessoaFisica -6.481e-03 8.694e-03 -0.746 0.456006
## recursosDePessoaJuridica -3.840e-02 4.308e-03 -8.913 < 2e-16 ***
## recursosProprios -6.423e-02 5.481e-03 -11.719 < 2e-16 ***
## outrosRecursos 4.287e-02 7.594e-03 5.645 1.77e-08 ***
## mediaReceita 2.755e-01 4.856e-02 5.674 1.49e-08 ***
## qtdDespesas 5.373e+01 4.254e+00 12.630 < 2e-16 ***
## qtdFornecedores -5.755e+01 6.137e+00 -9.378 < 2e-16 ***
## totalDespesas -2.614e-02 7.511e-03 -3.481 0.000505 ***
## mediaDespesas 2.379e+00 3.999e-01 5.949 2.93e-09 ***
## totalReceita 8.316e-02 8.843e-03 9.404 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 33040 on 4140 degrees of freedom
## Multiple R-squared: 0.4692, Adjusted R-squared: 0.4678
## F-statistic: 332.7 on 11 and 4140 DF, p-value: < 2.2e-16
predicoes = predict.lm(reg_linear,eleicoes)
residuos = votos - predicoes
axisRange = extendrange(c(votos,predicoes)) #deixando as variáveis na mesma escala
plot(votos,predicoes)
abline(0,1,col="blue",lty=2,lwd=2)
plot(predicoes,residuos)
abline(h=0,col="blue",lty=2,lwd=2)
qqnorm(residuos)
qqline(residuos, col = 2,lwd=2,lty=2)
R2(predicoes,votos)
## [1] 0.4691762