Aqui são as bases de dados.

load("C:/Users/vinny/Desktop/Base_de_dados-master/Game of Thrones.RData")

Aqui temos a tabela quantitativa de lealdade dos personagens.

table(personagens_livro$lealdade)
## 
##               Arryn           Baratheon             Greyjoy Guardia de la Noche 
##                  30                  64                  75                 116 
##           Lannister             Martell             Ninguna            Salvajes 
##                 102                  37                 253                  40 
##               Stark           Targaryen               Tully              Tyrell 
##                 108                  36                  30                  26
tabela_lealdade  <-table(personagens_livro$lealdade)

Aqui é a tabela quatitativa de sexo dos personagens.

table(personagens_livro$sexo)
## 
##  femenino masculino 
##       157       760
tabela_sexo <-table(personagens_livro$sexo)

Agora temos o gráfico de lealdade das tribos.

pie(tabela_lealdade,col=c("navy","plum1","springgreen2","tomato1","yellow3","salmon2","purple4","paleturquoise3","olivedrab3"),main = "Lealdade de GOT")

tabela_lealdade  <-table(personagens_livro$lealdade)

Podemos observar que as tribos Ninguna, Stark, Lannister e Guardia de La Noche são as que mais tem integrantes leais.

Aqui o gráfico quantitativo de sexo.

pie(tabela_sexo,col=c("skyblue","yellow"),main= "Gráfico de sexo de GOT")

tabela_sexo <-table(personagens_livro$sexo)

Observa-se que o numero de personagens masculino é desproporcional ao numero de personagens femininas.