ATIVIDADE 5 E 6

#MÉDIAS#

load("C:/Users/julia/Downloads/Base_de_dados-master/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))
media_1

## [1] 27

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

#BLOXPOT#

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

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

#TABELAS#

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()

prop_1 <- prop.table(tabela_01,2)*100
prop_1

##            
##                nobre   pebleu
##   femenino  19.53488 14.98973
##   masculino 80.46512 85.01027

#GRÁFICOS DE BARRA#

graf_barras <-
  barplot(tabela_01,legend=TRUE, beside= TRUE, main= "GRÁFICO NÚMERO DE NOBRES E NÃO NOBRES POR GÊNERO",col=c("pink", "orange"))

graf_barras

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

Para tornar possível a realização desse trabalho se fez necessária a importação dos dados disponibilizados, tornando possível calcular o desvio padrão e a média. Foram criados gráficos para facilitar a visualização dos dados.

Os dados escolhidos para serem calculadas as variáveis qualitativas foram a quantidade de pessoas de cada sexo e a quantidade de pessoas que pertencem ou não pertencem a nobreza. Após a escolha dos dados, foi realizada a criação do gráfico em barra e as tabelas de proporções.

Após analisar os resultados, é notável que o público masculino é a grande maioria e a quantidade de homens pebleus (que não são nobres) é superior que a quantidade homens nobres. Também nota-se que a população feminina é significamente menor.