O propósito da atividade é fazer uma publicação no RPUBS de um gráfico de pizza com uma análise de uma variável nominal, respeitando as bases indicadas pelo professor.

A base escolhida para o trabalho foi: “questionario_social_survey.RData”

O trabalho foi desenvolvido em 3 etapas, a primeira delas foi localizar a base e importar, para relizar a ação foi usado o código:

#Carregar arquivo do RDATA
load("C:/Users/loren/Downloads/Estatistica/Base_de_dados-master/questionario_social_survey.RData")

Uma vez que base foi importada, usamos a função “table”para chamar a nossa base e o símbolo “$” para atribuir a variável que desejamos analizar.

Por fim, para agilizar o nosso trabalho, atribuímos um nome a operação realizada antes, que nesse caso foi: “tabela_forms”.

Importante ressaltar que utilisei a função “Sum” para chegar ao total de respostas da pesquisa.

# Gerando as tabelas
tabela_forms <- table(questionario_social_survey$estado_civil)
tabela_forms
## 
##  Sem resposta   Nunca casou   Separado(a) Divorciado(a)      Viúvo(a) 
##            17          5416           743          3383          1807 
##     Casado(a) 
##         10117
sum(tabela_forms)
## [1] 21483

A partir desse momento é possível plotar o gráfico. E realizar as edições de cores e título.

# Gerando pizzas básicas
pie(tabela_forms)

pie(tabela_forms,col = c("#e7a4f5","#a4c3f5","#a4f5c6","#f5f2a4","#f5cfa4","#f5a9a4"),main = "Atividade 02_Análise de uma variável Nominal")

#CORES USADAS
#Separado = #a4f5c6
#Divorciado = #f5f2a4
#Casado = #f5a9a4
#Nunca casou = #a4c3f5
#sem resposta = #e7a4f5
#Viúvo = #f5cfa4

Feito isso, vamos a análise:

A pesquisa apresenta um total de 21.483 respostas, número identificado através do somatório da variável analizada que foi estado civil. Considerando que o questionário apresentou um total de seis respostas, ao analizar o gráfico percebemos que o maior número de respostas está na opção “Casado” o número de resposta está na fase 2 onde geramos a tabela, os casados totalizam 10.117 respostas. A área que apresenta menor participação no gráfico ficou para o “Sem resposta”. Reparem que apesar de ter uma cor atribuída a sua participação a mesma não apresenta realce no gráfico.

Pensando ainda no quesito volumetria, as respostas com maiores participações são respectivamente: 1º - Casados 10.117; 2º - Nunca Casou 5.416; 3º - Divorciado 3.383;

____Fim____