load("C:/Users/barba/Desktop/Base_de_dados-master/questionario_social_survey.RData")
tabela_trab <-table(questionario_social_survey$estado_civil)

tabela_trab
## 
##  Sem resposta   Nunca casou   Separado(a) Divorciado(a)      Viúvo(a) 
##            17          5416           743          3383          1807 
##     Casado(a) 
##         10117
pie(tabela_trab)

pie(tabela_trab,col=c("red","blue","black","purple","orange","yellow"))

O gráfico representa o estado civil da população em análise em que aproximadamente metade aponta-se como “Casado(a)”. A segunda maior porcentagem é de pessoas que nunca se casaram, seguida pela categoria “Divorciado(a)”. As menores categorias são de pessoas viúvas, seguida por “Separado(a)”, com um destaque quase nulo para a categoria “Sem resposta”.

Pode-se concluir que a representação gráfica sozinha não nos informa um padrão de relação entre diversas categorias, como podia ser visto na base de dados em que haviam mais categorias como: Religião, idade, partido… Percebe-se portanto que a análise gráfica é insuficiente para tomar notas e conclusões a respeito da população representada acima.