Trabalho de Estatistica 5 e 6

Esse trabalho tem como objetivo, trabalhar com alguns conceitos de tabela, uso de duas variáveis qualitativas, uso de variância e desvio padrão. Com isso, mostrarei a base de dados que usamos. Aqui

load("C:/Users/Michel/Desktop/Felipe/Estatistica/Base de Dados/Base_de_dados-master/Base_de_dados-master/Game of Thrones.RData")

View(mudancas_aliancas)
View(personagens_livro)
View(tempo_de_tela)

Atividade 5

Nesta parte usarei usarei a base de dados personagens livro. Nesta base utilzei a variável ano_morte para elucidar um boxplot da relação de personagens do livro com o ano de morte dos personagens mortos

library(dplyr)

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
personagens_livro %>% select(ano_morte) %>% table() %>% boxplot(main= "Distribuição de número de mortes por ano",
                                                                col= c("Navy Blue"),
                                                                ylab = "Número de mortes por ano")

Tabela

Depois eu gerei uma tabela com a relação do número de personagens mortos com o ano em que eles morreram

table(personagens_livro$ano_morte)

Média

Aqui temos a média de mortos por ano

mean(table(personagens_livro$ano_morte))
[1] 76.25

Variância

Aqui temos a variância do número de mortes por ano

var(table(personagens_livro$ano_morte))
[1] 4401.583

Desvio Padrão

Aqui temos o desvio padrão do número de mortes por ano

sd(table(personagens_livro$ano_morte))
[1] 66.34443

Atividade 6

Aqui nós temos uma tabela mostrando a relação entre lealdade dos personagens, seu sexo e a sua nobreza

library(dplyr)
library(flextable)
personagens_livro %>% select(lealdade, sexo, nobre) %>% filter() %>% table() 
, , nobre = 0

                     sexo
lealdade              femenino masculino
  Arryn                      3         7
  Baratheon                  3        14
  Greyjoy                    2        36
  Guardia de la Noche        0       105
  Lannister                  3        33
  Martell                    5         7
  Ninguna                   30       130
  Salvajes                  13        17
  Stark                      8        31
  Targaryen                  5        21
  Tully                      1         8
  Tyrell                     0         5

, , nobre = 1

                     sexo
lealdade              femenino masculino
  Arryn                      3        17
  Baratheon                  3        44
  Greyjoy                    3        34
  Guardia de la Noche        0        11
  Lannister                 11        55
  Martell                    9        16
  Ninguna                   21        72
  Salvajes                   3         7
  Stark                     19        50
  Targaryen                  1         9
  Tully                      1        20
  Tyrell                    10        11

Acima percebemos que dentro os plebeus( nobre = 0) nós temos como maior parcela: Las Ningunas(130 personagens masculinas e 30 femininos) e La Guardia de la Noche(105 somente de personagens masculinos), e o menos grupo se encontram: a Casa Tyrell(5 de somente personagens masculinos) e a Casa Tully(8 personagens masculinos e 1 personagem feminino). Dentre os nobres(nobres=1), nós temos na maior parcela: Las Ningunas(72 personagens masculinos e 21 femininos), além das Casas: Lannister(55 personagens masculinos e 11 personagens femininos) e a Stark(50 personagens masculinos e 19 personagens femininos), e dentre a minoria temos: Los Selvajes(7 personagens masculinos e 3 personagens femininos), Casa Targaryen(9 personagens masculinos e 1 personagem feminino) e La Guardia de la Noche(11 personagens masculinos).

Temos algumas observações interessantes do ponto de vista estatística. A primeira é que existem mais personagens masculinos plebeus em termos númericos do que do que nobres, e existem mais personagens mulheres nobres do que plebeias. A Segunda observação que temos é que não existem mulheres no Grupo La Guardia de la Noche, nem na parte plebeia e nem na nobreza. Outro ponto interessante é que esse universo amostral é que existem 760 personagens masculinos e 157 femininos, isso mostra a importância de tomar cuidados com a população de personagens femininos já que o mundo de Game of Thrones tem perigos como Dragôes, Zumbis, Intrigas políticas e grupos violentos por sede de poder.

Gráfico de Barras

Aqui nós temos um gráfico de barras que nós mostra a relação de lealdade e ano_morte dos personagens

personagens_livro %>% select(lealdade, ano_morte) %>% table()
                     ano_morte
lealdade              297 298 299 300
  Arryn                 0   2   0   3
  Baratheon             0   1  18   5
  Greyjoy               0   0  17   5
  Guardia de la Noche   3   2  33  18
  Lannister             0   6  12  12
  Martell               0   0   0   3
  Ninguna               0   7  35  34
  Salvajes              0   3   6  14
  Stark                 0  19  26   1
  Targaryen             0   5   1   3
  Tully                 0   1   8   0
  Tyrell                0   0   0   2
library(dplyr)
library(RColorBrewer)
COR <- brewer.pal(9,"Blues")
COR
[1] "#F7FBFF" "#DEEBF7" "#C6DBEF" "#9ECAE1" "#6BAED6" "#4292C6" "#2171B5"
[8] "#08519C" "#08306B"
personagens_livro %>% select(lealdade, ano_morte) %>% table() %>% barplot(ylim= c(0,800), col=COR, main= "Número de Personagens Mortos por Ano", legend = c("Lannister", "Ninguna","Targaryen", "Greyjoy", "Baratheon","Guardia de la Noche", "Arryn","Stark","Martell","Salvajes","Tully","Tyrell"), legend.text=TRUE,args.legend = list(x = "topleft"))

Aqui podemos perceber que no ínicio do período em que os livros nos anos de 297, 3 pessoas morreram sendo maior parcela de Guardias de la Noche, em 298, 46 pessoas morreram, sendo maior parcela da Casa Stark, em 299 totalizou 156 pessoas morreram, sendo a maior parcela do grupo Ningunas e por útlimo temos no ano 300, um total de 100 pessoas mortas do qual a maior parcela vem do grupo Ningunas de novo. O total de mortes registrados foram de 305 pessoas

Algumas observações que podemos fazer é que no inicio foram morrendo diversoso personagens de grupos importantes, porém com o passar do tempo, personagens que não são afiliados a ninguém, do grupo Ningunas, foram os alvos mais frequentes de morte