Atividade 2

Introdução

Para a atividade 2, decidi utilizar a base de dados “questionario_social_survey,RData”. Dentre as possíveis variáveis nominais (raça, partido, religião e estado civil), escolhi “raça e estado civil” para criar o gráfico de pizza e fazer a análise.

Passo zero - Carregar o arquivo

# Carregar o arquivo
load("C:/Users/thaya/Desktop/Base_de_dados-master/questionario_social_survey.RData")
View (questionario_social_survey)

Passo 1 - Gerando as tabelas

# Gerando as tabelas
tabela_questionario <- table(questionario_social_survey$raca)
tabela_civil <- table(questionario_social_survey$estado_civil)

tabela_questionario

## 
##         Outra         Negra        Branca Não se aplica 
##          1959          3129         16395             0

tabela_civil

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

Passo 2 - Gerando as pizzas básicas

# Gerando as pizzas basicas
pie(tabela_questionario)

pie(tabela_civil)

Passo 3 - Mudando a cor e o título

# Mudando a cor e o título

pie(tabela_questionario,col=c("#f280d8","#8680f2","#80f284","#f2e880"),
                              main = "Raça")

pie(tabela_civil,col=c("#b32997","#ebaede","#6e0323",
                       "#ebfa96","#c0deb8","#e8ac46"),
                      main = "Estado civil")

Passo 4 - Porcentagem

Com base no material disponibilizado, para melhor interpretar os gráficos, decidi colocar os percentuais

porc <- round(tabela_questionario*100/sum(tabela_questionario), 2)
rotulos <- paste("(",porc,"%)", sep = "")
pie(tabela_questionario, main = "Raça", labels = rotulos, col=c("#f280d8","#8680f2","#80f284","#f2e880"))
legend(1, 1, names(tabela_questionario), col=c("#f280d8","#8680f2","#80f284","#f2e880"), pch = rep(20,10))

porc <- round(tabela_civil*100/sum(tabela_civil), 2)
rotulos <- paste("(",porc,"%)", sep = "")
pie(tabela_civil, main = "Estado civil", labels = rotulos, col =c("#b32997", 
                                                                  "#ebaede",
                                                                  "#6e0323",
                                                                  "#ebfa96",
                                                                  "#c0deb8",
                                                                  "#e8ac46"))
legend(1, 1, names(tabela_civil), col =c("#b32997", 
                                         "#ebaede",
                                         "#6e0323",
                                         "#ebfa96",
                                         "#c0deb8",
                                         "#e8ac46"), pch = rep(20,10))

Interpretação

Como pode ser observado no gráfico Raça, os respondentes desta pesquisa que se classificam como brancos correspondem a maior parcela da pizza (76,32%), enquanto que 14,57% são negros e 9,12% se identificam com outras raças. Já no segundo gráfico, Estado civil, nota-se que quase metade dos participantes do estudo são casados (47,09%), enquanto que 1/4 do total nunca se casou (25,21%) e o restante se divide entre divorciados (15,75%), viúvos (8,41%), separados (3,46%) e os que não responderam essa pergunta, representando o menor percentual (0,08%).

Devido ao tamanho da parcela referente ao estado civil “casado”, pode-se perceber que não são todos os indivíduos brancos que são casados mas que uma parte deles sim, já que os negros e as demais raças somados correspondem a 23,69% dos entrevistados, valor menor que o total de casados (47,09%).