#tarefa 04 - Duas variaveis qualitativas

fase 1 - carregar a base de dados

load("C:/Users/14086606798/Downloads/Game of Thrones.RData")

#fase 2 - inspecionar a base de dados - saber o sexo dos personagens

tail(personagens_livro$sexo)
## [1] "femenino"  "masculino" "masculino" "masculino" "masculino" "masculino"

##fase 3 - importar as blibliotecas##

#install.packages("dplyr")
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.2.3
## 
## 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)
## Warning: package 'flextable' was built under R version 4.2.3
library(janitor)
## Warning: package 'janitor' was built under R version 4.2.3
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test

fase 4 - nomear as classe sociais

#0 = nao nobre e 1 = nobre

personagens_livro$nobre = ifelse(personagens_livro$nobre==0,"Não nobre","nobre")

tabela = table(personagens_livro$sexo, personagens_livro$nobre)

implementar proporção

#proporção de mulheres para homens
janitor::tabyl(personagens_livro,sexo,nobre) %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  adorn_ns %>% flextable() %>% theme_zebra()

sexo

Não nobre

nobre

femenino

46.50% (73)

53.50% (84)

masculino

54.47% (414)

45.53% (346)

##conclusão ##

barplot(tabela, main = "sexo dos personagens",
        col=c("tan","blue"), beside = TRUE, 
        legend.text = rownames(tabela),
        args.legend = list(x = "topleft"))

O universo de game of thrones possui uma ambiente masculino, logo o numero de homens é maior que o numero de mulheres.

possui um numero de homens não nobres maior do que um de nobres.

possui um numero de mulheres nobres maior do que o numero de não nobres.