Bom, analisando a amostragem que foi coletada entre os anos de 2000 e 2014 para tal estudo, tem-se que no âmbito racial a população é dividida em uma maioria de pessoas brancas, uma minoria de pessoas negras, e por último uma parte de demais raças, pode-se concluir que as Raças Branca e Negra, predominam. Entretanto pode-se observar que quando há de fazer uma analise entre pessoas negras e brancas, as brancas são maioiria esmagadora.

#Gerando o arquivo RDATA 
load("C:/Users/Casa/Base_de_dados-master/questionario_social_survey.RData")
#Gerando a Tabela

table(questionario_social_survey$raca)
## 
##         Outra         Negra        Branca Não se aplica 
##          1959          3129         16395             0
tabela_raca <- table(questionario_social_survey$raca)
#Gerando o grafico de pizza
pie(tabela_raca)

No gráfico abaixo fica bem evidente tudo que foi dito acima, é bem claro que a quantidade de pessoas brancas com relação a quantidade de pessoas negras é muito superior, e as outras raças como latinos, asiaticos etc, ficam compactados na categorias “outras”.

#Mudando a cor e o titulo
pie(tabela_raca,col = c("#0909bd","#d19424","#d12461"),main = "Grafico RAÇA")