Gráfico de pizza para a variável estado civil da base de dados “questionario_social_survey.RData”

Carregando a base da dados:

load("C:/Users/dinho/Desktop/Base_de_dados-master/questionario_social_survey.RData")

Carregando a tabela da variável:

table(questionario_social_survey$estado_civil)
## 
##  Sem resposta   Nunca casou   Separado(a) Divorciado(a)      Viúvo(a) 
##            17          5416           743          3383          1807 
##     Casado(a) 
##         10117
tabela_questec <- table(questionario_social_survey$estado_civil)

Carregando o grafico de pizza da variável:

pie(tabela_questec, col=c("#7ed660","#d6ba5c","#5cd672","red","blue","turquoise4"))

Podemos concluir através do gráfico de pizza da variável nominal estado civil, que dentre toda a amostra de participantes que constituem a base de dados do questionário, quase metade das pessoas são casadas, e aproximadamente de 25% nunca casou.

Além disso, podemos notar claramente que, dentre os que responderam este ítem do questionário, a menor fração é constituída por pessoas que estão separadas.