Analise Game Of Thrones

load ("C:/Users/17988111701/Downloads/Game of Thrones.RData")
tail(personagens_livro$sexo)
## [1] "femenino"  "masculino" "masculino" "masculino" "masculino" "masculino"
## [1] "feminino"  "masculino" "masculino" "masculino" "masculino" "masculino"
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
personagens_livro$nobre = ifelse(personagens_livro$nobre==0,"Não nobre","nobre")
tabela = table(personagens_livro$sexo, personagens_livro$nobre)
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)

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