Carregando a base de dados

load("/Users/carol/Desktop/Materia de estatistica/Base_de_dados-master/questionario_social_survey.RData")

Gerando as tabelas

tabela_estado <- table(questionario_social_survey$estado_civil)

tabela_partido <- table(questionario_social_survey$partido)

tabela_estado
## 
##  Sem resposta   Nunca casou   Separado(a) Divorciado(a)      Viúvo(a) 
##            17          5416           743          3383          1807 
##     Casado(a) 
##         10117
tabela_partido
## 
##                         Sem resposta                             Não sabe 
##                                  154                                    1 
##                        Outro partido               Fortemente republicano 
##                                  393                                 2314 
##            Não fortemente repubicano Independente, inclinação republicana 
##                                 3032                                 1791 
##                         Independente   Independente, inclinação democrata 
##                                 4119                                 2499 
##             Não fortemente democrata                 Fortemente democrata 
##                                 3690                                 3490

Gerando os Gráficos

pie(tabela_estado, col=c('#e88ba2','#8a86c4','#95c977','#c977b8','#e5e88b') ,
    main = 'Gráfico de estado civil')

pie(tabela_partido, col=c('darkblue','yellow','brown','white','#e88ba2','#8a86c4','#95c977','#c977b8','#e5e88b') , 
    main = 'Gráfico de partido')

Colocando porcentagem

contagem = table(questionario_social_survey$estado_civil)
nomes = levels(questionario_social_survey$estado_civil)
porcent = round(contagem/sum(contagem)*100,2)
rotulo=paste(nomes," (",porcent,"%",")",sep="")
pie(table(questionario_social_survey$estado_civil),labels=rotulo, main="Gráfico de Estado Civil", col=c('#e88ba2','#8a86c4','#95c977','#c977b8','#e5e88b'))

contagem = table(questionario_social_survey$partido)
nomes = levels(questionario_social_survey$partido)
porcent = round(contagem/sum(contagem)*100,2)
rotulo=paste(nomes," (",porcent,"%",")",sep="")
pie(table(questionario_social_survey$partido),labels=rotulo, main="Gráfico de partido", col=c('darkblue','yellow','brown','white','#e88ba2','#8a86c4','#95c977','#c977b8','#e5e88b'))

A partir do gráfico de estado civil gerado, podemos observar que aproximadamente (47,09%) dos entrevistados são casados. Ao considerar os grupos de Divorciado (15,75%), Viúvo (8,41%), Separados (3,46%), temos que o somatório desses percentuais é de (74,71%). Com isso, pode-se dizer que mais da metade dos entrevistados, já foram casados ou são atualmente. O percentual restante para os 100% considera as pessoas que nunca casaram e os candidatos que não responderam.

No gráfico de partidos, podemos concluir que basicamente os entrevistados estão divididos em três grandes grupos/partidos, sendo eles, o republicano, o democrata e o independente. Podemos observar que dentro dos grupos expostos, os independentes detêm um total de (39,14%) dos entrevistados, sendo a maior porcentagem em comparação aos democratas com (33,43%) e os republicanos com (24,88%). Embora os três grandes grupos prevalecem, cada grupo têm uma variação de ideologia, o que torna cada grupo ainda mais heterogêneo.