Attaching package: 'dplyr'
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

Introdução

Serão analisadas algumas informações a respeito dos personagens da série e suas Casas. Tais informações são: o tempo de tela dos personagens ao longo de todas as temporadas, as Casas e a proporção de membros nobres que são leais a cada uma delas.

Tempo de Tela

A seguir, a média, a variância, o desvio padrão e um gráfico, em modelo boxplot, dos tempos totais de tela, em minutos, dos personagens.

Média:

round(mean(tempo_de_tela$minutos), 2)
[1] 27.26

Variância:

round(var(tempo_de_tela$minutos), 2)
[1] 2119.03

Desvio Padrão:

tempo_de_tela %>% pull(minutos) %>% sd() %>% round(2)
[1] 46.03

Gráfico Boxplot:

tempo_de_tela %>% pull(minutos) %>% 
  boxplot(main = 'Minutos em Tela',
          col = c("orange"),
          outpch = 20,
          outcol = "black")

Interpretação dos Dados:

Nota-se que o desvio padrão entre os tempos de tela dos personagens é expressivo, indicando que, enquanto alguns personagens apareceram por mais tempo ao longo da história, outros tiveram presenças curtas ou momentâneas. Ratificando isso, o dado da variância demonstra que, em geral, os tempos analisados se encontram bem distantes do valor esperado, o qual é baseado na média dos valores que compõem a base de dados.

Quanto ao gráfico boxplot, demonstrou a presença de muitos outliers dentre os dados analisados, reforçando, novamente, a ideia de que certos personagens apareceram por muito mais tempo. Além disso, por meio do gráfico, é possível notar o quão distantes os outliers estão da mediana, proporcionando uma grande variância aos dados.

Personagens do Livro

Agora as análises terão como base as relações existentes entre a lealdade dos personagens e a quantidade de nobres leais a cada Casa. Serão utilizadas tabelas e gráficos de barras.

Tabela:

personagens_livro %>% select(lealdade, nobre) %>% table
                     nobre
lealdade              Não nobre Nobre
  Arryn                      10    20
  Baratheon                  17    47
  Greyjoy                    38    37
  Guardia de la Noche       105    11
  Lannister                  36    66
  Martell                    12    25
  Ninguna                   160    93
  Salvajes                   30    10
  Stark                      39    69
  Targaryen                  26    10
  Tully                       9    21
  Tyrell                      5    21

Tabela com Proporção (%):

personagens_livro %>% select(lealdade, nobre) %>% table %>% prop.table(1) %>% round(2)*(100)
                     nobre
lealdade              Não nobre Nobre
  Arryn                      33    67
  Baratheon                  27    73
  Greyjoy                    51    49
  Guardia de la Noche        91     9
  Lannister                  35    65
  Martell                    32    68
  Ninguna                    63    37
  Salvajes                   75    25
  Stark                      36    64
  Targaryen                  72    28
  Tully                      30    70
  Tyrell                     19    81

A tabela a cima mostra a quantidade de nobres em cada Casa, em porcentagem, considerando apenas os membros leais. A partir desses dados, nota-se que a Casa de Tyrell possui maioria nobre, cerca de 81%, e é a Casa com maior número de nobres em relação ao seu número de membros. Por outro lado, a Casa Guardia de la Noche apresenta aproximadamente 9% de nobres em sua composição, sendo predominantemente formada por não nobres.

personagens_livro %>% select(lealdade, nobre) %>% table %>% prop.table(2) %>% round(2)*(100)
                     nobre
lealdade              Não nobre Nobre
  Arryn                       2     5
  Baratheon                   3    11
  Greyjoy                     8     9
  Guardia de la Noche        22     3
  Lannister                   7    15
  Martell                     2     6
  Ninguna                    33    22
  Salvajes                    6     2
  Stark                       8    16
  Targaryen                   5     2
  Tully                       2     5
  Tyrell                      1     5

A tabela a cima demonstra a porcentagem de nobres e não nobres com relação ao total. Com base nesses dados, fica evidente que a Casa de Ninguna possui a maior quantidade de membros, aproximadamente 55%. Além disso, a Casa de Ninguna é formada por 22% do total de nobres e 33% do total de não nobres. O que a torna a Casa com mais nobres e mais não nobres.

Comparando esta tabela com a anterior, nota-se que, apesar da Casa de Tyrell ser formada majoritariamente por nobres, eles equivalem apenas a 5% do total de nobres.

Gráficos de Barras:

personagens_livro %>% select(lealdade, nobre) %>%
  table %>% prop.table(1) %>% round(2) %>% 
  barplot(main = "Quantidade de Nobres em cada Casa (%):",
          beside = TRUE,
          col = c(cor(12)))

personagens_livro %>% select(lealdade, nobre) %>%
  table %>% prop.table(2) %>% round(2) %>% 
  barplot(main = "Nobreza de cada Casa relacionada ao Total (%):",
          beside = TRUE,
          col = c(cor(12)))

Legenda para os Gráficos de Barras:

personagens_livro %>% select(lealdade, nobre) %>%
  table %>% prop.table(1) %>% round(2) %>% 
  barplot(beside = TRUE,
          legend = TRUE,
          args.legend = list(x = "center"),
          width = c(0,0),
          col = c(cor(12)))

Interpretação dos Dados:

A partir dos dados e das análises feitas, nota-se que, dependendo da forma que as informações são estudadas, os resultados encontrados podem mudar. Tal influência decorre do grupo de valores, considerando o total ou apenas partes dele.

É possível notar, também, a estrutura das Casas e a diversidade que apresentam quanto à nobreza de seus membros.