Eu escolhi a base de dados questionario_social_survey para realizar a atividade. Dentro dessa base de dados, isolei a variável nominal raça para montar o gráfico de pizza.

load("/home/rafael/Downloads/Base_de_dados-master/questionario_social_survey.RData")
raça<-table(questionario_social_survey$raca)
pie(raça, main = "Gráfico pizza da divisão racial norte americana", col=c("salmon2","firebrick","royalblue4","grey2"))

Observa-se que por volta de dois terços da população americana entrevistada, entre os anos de 2000-2014, eram identificados como brancos. Costuma-se ter a percepção de que a proporção de negros, latinos e asiáticos é maior devido aos EUA serem um país construído por imigrantes e outras raças terem grande participação na cultura americana, principalmente na cultura pop. Essas populações não brancas também estão concentradas nos grandes centros urbanos, e os Estados Unidos apresentam um perfil populacional mais bem distribuído em seu território do que o Brasil.

Divisão racial e projeção futura

É importante salientar que a raça latino, a latina, não está representada no questionário. Considerando que a população latina é maior do que a negra nos EUA e que muitos latinos podem considerar-se tanto negros quanto brancos, podemos explicar a discrepância entre os dados da imagem acima, que leva em conta o país inteiro, onde brancos representavam por volta de 61,2% da população em 2016, e dos dados do social survey. Outro fator importante é definir onde o questionário foi feito, pois os perfis raciais nos EUA podem váriar muito pelos estados.