##Tabela de Proporção

tabela1<- table(personagens_livro$sexo)
tabela1
## 
##  femenino masculino 
##       157       760
prop.table(tabela1)
## 
##  femenino masculino 
## 0.1712105 0.8287895
round(prop.table(tabela1)*100,2)
## 
##  femenino masculino 
##     17.12     82.88
##Gráfico de Pizza
pie(tabela1,col=c("#cf236b", "#3d3369"),main="Gráfico de gênero")

Primeiro, baixei os pacotes, depois importei o arquivo RData intitulado ´´Game Of Thrones´´. Criei uma tabela de proporção, pra visualizar a proporção de personagens do genêro masculino em relação ao feminino. Foi analisado que a proporção masculina é de 82,88%, enquanto a feminina é de apenas 17,12%. Logo após, criei um gráfico de pizza, para elucidar graficamente a proporção. A fatia maior representa os 82,88%, enquanto a menor, 17,12%.