Questão 1

lealdade_por_nobre = table(personagens_livro$lealdade, personagens_livro$nobre)
nobre_por_lealdade = table(personagens_livro$nobre, personagens_livro$lealdade)
colnames(lealdade_por_nobre) = c("Plebeu", "Nobre")
rownames(nobre_por_lealdade) = c("Plebeu", "Nobre")
lealdade_por_nobre
##                      
##                       Plebeu 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
nobre_por_lealdade_percent <- round(prop.table(nobre_por_lealdade,2) * 100, 1)
nobre_por_lealdade_percent
##         
##          Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell Ninguna
##   Plebeu  33.3      26.6    50.7                90.5      35.3    32.4    63.2
##   Nobre   66.7      73.4    49.3                 9.5      64.7    67.6    36.8
##         
##          Salvajes Stark Targaryen Tully Tyrell
##   Plebeu     75.0  36.1      72.2  30.0   19.2
##   Nobre      25.0  63.9      27.8  70.0   80.8

Questão 2

prop.table(lealdade_por_nobre, 1)
##                      
##                           Plebeu      Nobre
##   Arryn               0.33333333 0.66666667
##   Baratheon           0.26562500 0.73437500
##   Greyjoy             0.50666667 0.49333333
##   Guardia de la Noche 0.90517241 0.09482759
##   Lannister           0.35294118 0.64705882
##   Martell             0.32432432 0.67567568
##   Ninguna             0.63241107 0.36758893
##   Salvajes            0.75000000 0.25000000
##   Stark               0.36111111 0.63888889
##   Targaryen           0.72222222 0.27777778
##   Tully               0.30000000 0.70000000
##   Tyrell              0.19230769 0.80769231
round(prop.table(lealdade_por_nobre, 1) * 100, 1)
##                      
##                       Plebeu Nobre
##   Arryn                 33.3  66.7
##   Baratheon             26.6  73.4
##   Greyjoy               50.7  49.3
##   Guardia de la Noche   90.5   9.5
##   Lannister             35.3  64.7
##   Martell               32.4  67.6
##   Ninguna               63.2  36.8
##   Salvajes              75.0  25.0
##   Stark                 36.1  63.9
##   Targaryen             72.2  27.8
##   Tully                 30.0  70.0
##   Tyrell                19.2  80.8

Considerando 0 como plebeu e 1 como nobre, essa tabela representa os percentuais de nobres e plebeus por lealdade.

prop.table(lealdade_por_nobre, 2)
##                      
##                           Plebeu      Nobre
##   Arryn               0.02053388 0.04651163
##   Baratheon           0.03490760 0.10930233
##   Greyjoy             0.07802875 0.08604651
##   Guardia de la Noche 0.21560575 0.02558140
##   Lannister           0.07392197 0.15348837
##   Martell             0.02464066 0.05813953
##   Ninguna             0.32854209 0.21627907
##   Salvajes            0.06160164 0.02325581
##   Stark               0.08008214 0.16046512
##   Targaryen           0.05338809 0.02325581
##   Tully               0.01848049 0.04883721
##   Tyrell              0.01026694 0.04883721
round(prop.table(lealdade_por_nobre, 2) * 100, 1)
##                      
##                       Plebeu Nobre
##   Arryn                  2.1   4.7
##   Baratheon              3.5  10.9
##   Greyjoy                7.8   8.6
##   Guardia de la Noche   21.6   2.6
##   Lannister              7.4  15.3
##   Martell                2.5   5.8
##   Ninguna               32.9  21.6
##   Salvajes               6.2   2.3
##   Stark                  8.0  16.0
##   Targaryen              5.3   2.3
##   Tully                  1.8   4.9
##   Tyrell                 1.0   4.9
round(prop.table(nobre_por_lealdade, 1) * 100, 1)
##         
##          Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell Ninguna
##   Plebeu   2.1       3.5     7.8                21.6       7.4     2.5    32.9
##   Nobre    4.7      10.9     8.6                 2.6      15.3     5.8    21.6
##         
##          Salvajes Stark Targaryen Tully Tyrell
##   Plebeu      6.2   8.0       5.3   1.8    1.0
##   Nobre       2.3  16.0       2.3   4.9    4.9

Essa tabela representa o percentual de nobres e plebeus de cada lealdade comparado com o total de nobres e plebeus.

Questão 3

personagens_livro %>%
  tabyl(lealdade,nobre) %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  flextable() %>%
  theme_zebra()
lealdades <- sort(unique(unlist(personagens_livro$lealdade)))
colors <- brewer.pal(2, "Blues")
## Warning in brewer.pal(2, "Blues"): minimal value for n is 3, returning requested palette with 3 different levels
barplot(lealdade_por_nobre, beside = T, col = brewer.pal(12, "Paired"))

O gráfico 1 acima expressa a quantidade absoluta de plebeus e nobres de cada lealdade de Game of Thrones. A primeira barra de cor verde escuro por exemplo, representa a lealdade Arry, que possui uma quantidade maior de nobres comparado à plebeus. A ordem das barras pode ser vista utilizando o comando abaixo:

lealdades
##  [1] "Arryn"               "Baratheon"           "Greyjoy"            
##  [4] "Guardia de la Noche" "Lannister"           "Martell"            
##  [7] "Ninguna"             "Salvajes"            "Stark"              
## [10] "Targaryen"           "Tully"               "Tyrell"
par(mar=c(10, 5, 3, 5), mgp=c(7,1,0))
barplot(
  nobre_por_lealdade_percent,
  width = 3,
  xlim=c(0,48),
  names.arg = lealdades,
  col = colors,
  main = "Lealdade X Nobreza",
  las=2
)

legend("topright", c("Plebeus", "Nobres"), fill = colors)

O gráfico 2 representa a quantidade de plebeus e nobres baseado no total de pessoas de cada lealdade.