MÉDIA, VARIÂNCIA E/OU DESVIO PADRÃO

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

BOXPLOT

boxplot(tempo_de_tela$episodios,col = c("green"), main = "Tempo de tela por episódio")

TABELA

personagens_livro$nobre <- ifelse(personagens_livro$nobre==1,'nobre','pebleu')

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

TABELA DE PROPORÇÃO

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

GRÁFICO DE BARRAS

graf_barras <- barplot(tabela_01,legend=TRUE,beside=TRUE,
                       main = "Grafico número de nobres e plebeus por gênero", col=c("red","blue"))

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

Para iniciar o trabalho tive que importar a base de dados e as bibliotecas e, dessa forma, calcular a média e o desvio padrão. E, para facilitar o entendimento desses dados eu produxi um boxplot.

Sexo e Nobreza foram as minhas escolhas para produzir os dados de duas variáveis qualitativas e de proporção. Após a escolha fiz tabelas de proporções e o gráfico de barra.

Podemos perceber nesse gráfico de barras que a quantidade de mulheres nobres e plebeias são semelhantes, enquanto a quantidade de homens plebeus é maior do que de nobres. Vale ressaltar, que esse gráfico também demonstra que a população masculina é bastante superior.