Interpretei o gráfico do questionário social survey, e dentro dele optei pela análise dos partidos políticos, visto que é um questionário que abrange diversas respostas distintas e com isso, opiniões divergentes também. Através dele pude perceber um certo equilíbrio nas respostas, com inclinações para independente(4119), fortemente democrata(3490) e não fortemente democrata(3690).
Podemos perceber também que poucas pessoas não tinham uma resposta concreta(154) e não sabiam responder(1). Vale também ressaltar que uma minoria optou por outro partido(393). Portanto, é nítido um equilíbrio na resposta, mesmo que haja uma superioridade dos citados acima.

 #carregar arquivo do Rdata


load("C:/Users/Usuario/Desktop/Base_de_dados-master/questionario_social_survey.RData")  
 #gerando a tabela


table(questionario_social_survey$partido)  
## 
##                         Sem resposta                             Não sabe 
##                                  154                                    1 
##                        Outro partido               Fortemente republicano 
##                                  393                                 2314 
##            Não fortemente repubicano Independente, inclinação republicana 
##                                 3032                                 1791 
##                         Independente   Independente, inclinação democrata 
##                                 4119                                 2499 
##             Não fortemente democrata                 Fortemente democrata 
##                                 3690                                 3490
tabela_partido <- table(questionario_social_survey$partido)  

tabela_partido  
## 
##                         Sem resposta                             Não sabe 
##                                  154                                    1 
##                        Outro partido               Fortemente republicano 
##                                  393                                 2314 
##            Não fortemente repubicano Independente, inclinação republicana 
##                                 3032                                 1791 
##                         Independente   Independente, inclinação democrata 
##                                 4119                                 2499 
##             Não fortemente democrata                 Fortemente democrata 
##                                 3690                                 3490
#gerando o grafico 


pie(tabela_partido)

#mudando a cor e o titulo


pie(tabela_partido,col = c("red","blue","green","yellow","pink","black","grey","white","purple"))