Passo 1

load("C:/Users/ferna/Downloads/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
library(flextable)

media_1 <- round(mean(tempo_de_tela$minutos),2)
media_1
## [1] 27.26
desvio_1 <- round(sd(tempo_de_tela$minutos),2)
desvio_1
## [1] 46.03
summary(tempo_de_tela$minutos)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.150   4.375  10.300  27.261  27.650 293.300

Passo 2

boxplot(tempo_de_tela$minutos,col = c("pink"), main = "Tempo de tela por minuto")

# Passo 3

personagens_livro$nobre <- ifelse(personagens_livro$nobre==1,'nobre','não nobre')

tabela_01<- table(personagens_livro$sexo,personagens_livro$nobre)
tabela_01
##            
##             não nobre nobre
##   femenino         73    84
##   masculino       414   346
tabela_01 %>% data.frame() %>% flextable() %>% theme_tron()

Passo 4

prop_1 <- prop.table(tabela_01,2)*100 
prop_1
##            
##             não nobre    nobre
##   femenino   14.98973 19.53488
##   masculino  85.01027 80.46512
prop_1 %>% data.frame() %>% flextable() %>% theme_vader()

Passo 5

graf_barras <- barplot(tabela_01,legend=TRUE,beside=TRUE,
                       main = "Grafico número de nobres e não nobres por sexo", col=c("purple","green"))

graf_barras
##      [,1] [,2]
## [1,]  1.5  4.5
## [2,]  2.5  5.5

De acordo com a primeira tabela, é possível perceber que na primeira variável , quando se encontra feminino e nobre, a frequência possui valor de 84. Já na segunda variável, há o encontro de masculino com nobre e a frequência se encontra no valor de 346. Na terceira frequência, no encontro entre feminino e pebleu, há a frequência com valor de 73. E na quarta frequência, no encontro entre masculino e pebleu, encontra-se a frequência com valor igual a 414.

Já na tabela de proporção, vemos que em todas as variáveis há um aumento exponencial na frequência. Na primeira, feminino e nobre, a frequência possui valor de 19.53488. Na segunda, entre masculino e nobre, a frequência encontra-se no valo de 80.46512. E na terceira, entre feminino e pebleu, há o valor de 14.98973. Enquanto na quarta, masculino e pebleu, é encontrado o valor de 85.01027.

Ao analisar o gráfico de barras, é possível concluir o mesmo que nas tabelas: O sexo masculino possui frequência maior que o feminino, seja na classe de nobre ou pebleu.