Importar base de dados

load("D:/_Mestrado Civil UFF/Estatistica_Aplicada/Base_de_dados-master/questionario_social_survey.RData")

Proporção por raça

tabela_etnia <- table(questionario_social_survey$raca)
tabela_etnia
## 
##         Outra         Negra        Branca Não se aplica 
##          1959          3129         16395             0
round(prop.table(tabela_etnia)*100,2)
## 
##         Outra         Negra        Branca Não se aplica 
##          9.12         14.57         76.32          0.00

Gráfico 1 - Proporção por raça

porc<-round(tabela_etnia*100/sum(tabela_etnia),2)
rotulos<-paste("(",porc,"%)",sep="")
pie(tabela_etnia, main="Gráfico 1 - Proporção por raça",labels=rotulos, cex=0.7, col=rainbow(15))
legend(1,1,names(tabela_etnia),col = rainbow(15),pch=rep(15,4))

Com base no gráfico acima, é possível perceber que as amostras coletadas são predominantemente de indivíduos da raça branca, seguidos de negros e outras raças.

Isso pode nos levar ao entendimento de que a população local é composta em sua maioria por brancos ou que, apesar de toda a miscigenação existente em nosso país, ainda é muito predominante a presença de brancos ante as demais raças.

Para uma análise mais apurada seriam necessários outros dados, bem como o conhecimento da metodologia aplicada na pesquisa. Com isso seria possível realizar outros estudos e fundamentar mais precisamente o que ocorreu neste caso.