Untitled

load("~/Base_de_dados-master/questionario_social_survey.RData")
tabela1 <- table(questionario_social_survey$raca)
tabela1

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

View(tabela1)
round(prop.table(tabela1)*100, 2)

## 
##         Outra         Negra        Branca Não se aplica 
##          9.12         14.57         76.32          0.00

pie(tabela1,col = c("#9394c9","#424382","#181bc7"), main = "Proporção de raça")

Conforme grafico acima é possível verificar que na variável qualitativa raça da pesquisa em questão a maior parte, exatamente 76,32%, foi declarada como sendo branca