load ("C:/Users/usuario/Desktop/Base_de_dados-master/Game of Thrones.RData")
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
#Atividade 5

Através da base de dados tempo_de_tela, faço a média, desvio padrão e, por fim, o boxplot do tempo de tela dos diferentes personagens na série Game of Thrones.

#Média de tempo de tela dos personagens

mean(tempo_de_tela$minutos) %>% round(2)
## [1] 27.26

Com uma média de pouco mais de 27 minutos de tela, já pode imaginar-se que ou é uma antologia ou poucos personagens ocupam a tela pela maior do tempo.

#Desvio padrão de tempo de tela dos personagens

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

Com 46 minutos de desvio-padrão na média de pouco mais de 27 minutos já se pode entender que é uma amostra concentrada abaixo da média.

#Gráfico Boxplot de tempo de tela

par(bg="light yellow")
boxplot(tempo_de_tela$minutos, col = c("grey"))

Finalmente, o gráfico Boxplot demonstra visualmente o que ocorre nessa amostra de dados, a grande maioria dos personagens aparecem por menos de 50 minutos, com 50% dos 191 personagens da base de dados abaixo dos 10 minutos, com a mediana sendo 10.3 minutos. A grande maioria dos personagens são, portanto, secundários e terciários, com os protagonistas representados nos “outliers” do gráfico, com Tyrion ocupando a primeira posição seguido por Jon Snow e, com pouco menos de 230 horas, Daenerys.

median(tempo_de_tela$minutos)
## [1] 10.3
#Atividade 6

Para trabalhar duas variáveis qualitativas, escolhi a base de dados personagens_livro, e comparei o sexo dos personagens por Casa.

#Tabela sexo/aliança
personagens_livro %>% select(lealdade, sexo) %>% table()
##                      sexo
## lealdade              femenino masculino
##   Arryn                      6        24
##   Baratheon                  6        58
##   Greyjoy                    5        70
##   Guardia de la Noche        0       116
##   Lannister                 14        88
##   Martell                   14        23
##   Ninguna                   51       202
##   Salvajes                  16        24
##   Stark                     27        81
##   Targaryen                  6        30
##   Tully                      2        28
##   Tyrell                    10        16

Aqui vemos os valores totais separados por casa, com o maior número absoluto de mulheres e homens não afiliados a nenhuma facção e apenas a Night’s Watch sem mulheres.

par(bg="light yellow")
personagens_livro %>% select(sexo, lealdade) %>% table() %>% barplot(beside = TRUE)

Nesse gráfico há a representação visual da tabela, onde podemos começar a ver a proporcionalidade, que será exibida a seguir.

#Tabela de proporção dos gêneros por aliança
personagens_livro %>% select(lealdade, sexo) %>% table() %>% prop.table(1) %>% round (2) *100
##                      sexo
## lealdade              femenino masculino
##   Arryn                     20        80
##   Baratheon                  9        91
##   Greyjoy                    7        93
##   Guardia de la Noche        0       100
##   Lannister                 14        86
##   Martell                   38        62
##   Ninguna                   20        80
##   Salvajes                  40        60
##   Stark                     25        75
##   Targaryen                 17        83
##   Tully                      7        93
##   Tyrell                    38        62

Finalmente aqui vemos as porcentagens dos gêneros nas diversas facções de Game of Thrones, com os Selvagens possuindo o maior número de personagens mulheres (o que faz sentido com os esforços narrativos do autor para demonstrar que são uma cultura igualitária), seguidos de perto pelos Martell e os Tyrell, empatados em 38% de personagens femininos. Enquanto a Night’s Watch, os Greyjoy, os Tully e os Baratheon lideram a porcentagem de homens entre seus personagens.