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

round(100*estado_civil/nrow(survey),2)
## 
##  Sem resposta   Nunca casou   Separado(a) Divorciado(a)      Viúvo(a) 
##          0.08         25.21          3.46         15.75          8.41 
##     Casado(a) 
##         47.09

O gráfico de pizza acima representa a distribuição dos respondentes do questionário, segundo o estado civil. Percebe-se que a maior parte dos entrevistados é Casado(a), seguido de Nunca casou, Divorciado(a), Viúvo(a), Separado(a) e Sem resposta.

Logo abaixo do gráfico foi calculada a porcentagem de cada um dos grupos quando analisados no cenário total. A sequência citada anteriormente pode ser ratificada nas porcentagens encontradas.

Casado(a) - 47,09% ; Nunca casou - 25,21% ; Divorciado(a) - 15,75% ; Viúvo(a) - 8,41% ; Separado(a) - 3,46% ; Sem resposta - 0,08%

Obs: É importante ressaltar que gráficos de pizza não são recomendados quando há um grande número de classes, a interpretação passa a ser muito dificultada e a análise fica prejudicada. Também são mais comuns com variáveis já “separadas naturalmente”, como estado civil, religião, etc. Quando a resposta é uma variável contínua, é necessário realizar a separação em grupos primeiramente.