Carregamento do arquivo RDATA.

#Carregando arquivo RDATA
load("C:/Users/ferre/Desktop/Base_de_dados-master/Game of Thrones.RData")

Elaboração das tabelas vinculadas às bases de dados ‘personagens_livros’, explicitando a variável ‘sexo’ e ‘nobreza’, e a base de dados ‘mudancas_aliancas’, explicitando a variável ‘lealdade’ nas temporadas 1, 4 e 7.

#Gerando as tabelas
table(personagens_livro$sexo)
## 
##  femenino masculino 
##       157       760
table(personagens_livro$nobre)
## 
##   0   1 
## 487 430
table(mudancas_aliancas$Lealdade1)
## 
##   Caminantes Blancos Esclavistas de Essos  Guardia de la Noche 
##                    8                   40                   41 
##           Khal Drogo             Muerta/o        Otra Dothraki 
##                   11                    1                   20 
##          Otra, Essos       Otra, Westeros                Qarth 
##                   42                   64                    6 
## Rey Robert Baratheon             Salvajes    Viserys Targaryen 
##                  213                   38                    4
table(mudancas_aliancas$Lealdade4)
## 
## Balon Greyjoy, Rey de las Islas de Hierro 
##                                         7 
##                        Caminantes Blancos 
##                                        11 
##                        Daenerys Targaryen 
##                                        35 
##                                  Dothraki 
##                                        20 
##                       Guardia de la Noche 
##                                        28 
##                 Hermandad sin Estandartes 
##                                         9 
##                         Hijos de la Arpía 
##                                        16 
##                                  Muerta/o 
##                                       116 
##                               Otra, Essos 
##                                        30 
##                            Otra, Westeros 
##                                        75 
##   Petyr Baelish, Lord Protector del Valle 
##                                        13 
##                     Rey Stannis Baratheon 
##                                         9 
##                      Rey Tommen Baratheon 
##                                        92 
##                                  Salvajes 
##                                        23 
##                       Serpientes de Arena 
##                                         4
table(mudancas_aliancas$Lealdade7)
## 
##       Caminantes Blancos       Daenerys Targaryen      Guardia de la Noche 
##                       18                       58                       20 
## Jon Nieve, Rey del Norte                 Muerta/o              Otra, Essos 
##                       48                      227                       28 
##           Otra, Westeros   Reina Cersei Lannister 
##                       49                       40
tabela_sexo <-table(personagens_livro$sexo)
tabela_nobre <-table(personagens_livro$nobre)
tabela_L1 <- table(mudancas_aliancas$Lealdade1)
tabela_L4 <- table(mudancas_aliancas$Lealdade4)
tabela_L7 <- table(mudancas_aliancas$Lealdade7)

Elaboração dos gráficos de pizza símples.

#Gerando as pizzas básicas
pie(tabela_sexo)

pie(tabela_nobre)

pie(tabela_L1)

pie(tabela_L4)

pie(tabela_L7)

Alterando a cor dos gráficos

#Mudando a cor
pie(tabela_sexo,col = c("red", "blue"),main = "Orientação sexual")

pie(tabela_nobre,col = c("#782802","yellow"),main = "Nobreza - 1 = nobre, 0 = não")

pie(tabela_L1,col = c("#471f00","black","#45750b","yellow","#ff4df6","whitesmoke","#42ffe0","#1fb8ff","#0800fa","#6d1bfa","green","#ff2929"),main = "Lealdade GOT - 1° Temporada")

pie(tabela_L4,col = c("#471f00","black","#45750b","yellow","#ff4df6","whitesmoke","#42ffe0","#1fb8ff","#0800fa","#6d1bfa","green","#ff2929","#f57a00","#f5006a","#cd9afc"),main = "Lealdade GOT - 4° Temporada")

pie(tabela_L7,col = c("#471f00","black","#45750b","yellow","#ff4df6","whitesmoke","#42ffe0","#1fb8ff","#0800fa","#6d1bfa","green","#ff2929"),main = "Lealdade GOT - 7° Temporada")

É nítida a mudança das alianças ao longo das temporadas, assim como o surgimento de novos grupos, a diferença entre os sexos masculino(82.88%) e feminino(17.12%), bem como a taxa quase equivalente de nobres e não-nobres. No entanto, o mais notável durante as temporadas, são o aumento no número de personagens mortos no decorrer das guerras.