#base de dados install.packages(“usethis”) usethis::use_course(“https://github.com/DATAUNIRIO/Base_de_dados/archive/master.zip”)

library(readxl)
load("C:/Users/pvfol/Base_de_dados-master/Game of Thrones.RData")
View(personagens_livro)

Tabela e gráfico

tabela1 <- table(personagens_livro$sexo)
tabela1
## 
##  femenino masculino 
##       157       760
round(prop.table(tabela1)*100)
## 
##  femenino masculino 
##        17        83
pie(tabela1, col=c("salmon","gray"), main="Gênero dos personagens")

Conforme descrito na tabela de Game of Thrones, o gráfico acima representa a separação dos personagens pelo seu gênero: masculino e feminino.

Com isso, concluímos uma análise numérica de 157 mulheres (cerca de 17%) e 760 homens (cerca de 83%)