Introdução

Este post apresenta os resultados da atividade 3 da disciplina Estatística aplicada à Ciências Humanas em que foram utilizados os recursos para:

  • carregar uma BD no formato R;

  • criar e formatar tabelas em números absolutos e relativos; e

  • criar gráfico de barras com duas variáveis qualitativas.

Desenvolvimento

Carregamento da BD (em R)

Para esta Atividade, a BD carregada e utilizada na atividade foi a seguinte:

#---------
#Passo 1 - Carregamento de BD
#---------
load("D:/Curso Adm Publica/Semestre 8/Estatistica/Base_de_dados-master/Game of Thrones.RData")
head(tempo_de_tela)
                nome minutos episodios
1   Tyrion Lannister  293.30        54
2          Jon Nieve  268.15        49
3 Daenerys Targaryen  221.30        49
4   Cersei Lannister  201.45        52
5        Sansa Stark  199.30        47
6         Arya Stark  189.15        47

Tabela números absolutos

Foi criada uma tabela para duas variáveis qualitativas, constando os valores quantitativos absolutos de lealdade (a qual casa determinado personagem é leal) e sexo, considerando a BD selecianada.

#---------
#Passo 2 - Tabela em números absolutos
#---------
library(flextable)
library(janitor)

Attaching package: 'janitor'
The following objects are masked from 'package:stats':

    chisq.test, fisher.test

Tabela 1 - Quantidade absoluta de personagens leais a cada casa, por sexo.

personagens_livro %>% 
  tabyl(lealdade,sexo) %>% 
  flextable()

Tabelas números relativos

Em seguida, foram criadas duas tabelas para as mesmas variáveis qualitativas, constando os valores quantitativos relativos de lealdade e sexo, considerando a BD selecianada.

Tabela 2 - Percentual de personagens de cada sexo, por lealdade a cada casa.

#---------
#Passo 3 - Tabela em números relativos por linha
#---------
personagens_livro %>% tabyl(lealdade,sexo)  %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  flextable()

Tabela 3 - Distribuição relativa de personagens a cada casa, por sexo.

#---------
#Passo 4 - Tabela em números relativos por coluna
#---------
personagens_livro %>% tabyl(lealdade,sexo)  %>%
  adorn_percentages("col") %>%
  adorn_pct_formatting(digits = 2) %>%
  flextable()

Gráfico de barras

Por último, foi criado um gráfico de barras com as mesmas variáveis qualitativas consideradas anteriormente, com uma extratificação por sexo.

#---------
#Passo 5 - Gráfico de barras
#---------
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(RColorBrewer)
COR <- brewer.pal(12,"Set3")

graf_barras <- personagens_livro %>% select(lealdade,sexo) %>% 
  table() %>% barplot(beside = TRUE, horiz = TRUE, col=COR, 
  main = "Gráfico 1 - Lealdade à casa em função do sexo",
  legend.text=TRUE, args.legend = list(x = "bottomright"))

graf_barras
      [,1] [,2]
 [1,]  1.5 14.5
 [2,]  2.5 15.5
 [3,]  3.5 16.5
 [4,]  4.5 17.5
 [5,]  5.5 18.5
 [6,]  6.5 19.5
 [7,]  7.5 20.5
 [8,]  8.5 21.5
 [9,]  9.5 22.5
[10,] 10.5 23.5
[11,] 11.5 24.5
[12,] 12.5 25.5

Interpretação dos resultados

Na tabela 1 é observada a quantidade absoluta de personagens leais a cada casa, extratificada por sexo, enquanto na tabela 2, observa-se essa mesma distribuiçao relativa, ou seja, o percentual de personagens de cada sexo presente em cada casa de lealdade. Assim, a título de exemplo, existem 30 personagens leais à casa Arryn, sendo 6 do sexo feminino, o que equivale a 20% do número total dessa casa, e 24 do sexo masculino, equivalente a 80% desse mesmo total.

Já na Tabela 3, observa-se uma distribuição relativa de personagens com lealdade a cada casa, de acordo com o sexo. Dessa forma, verifica-se que, tomando-se todos os personagens do sexo feminino, 3,82% são leais à casa Arryn, 3,82% são leais à casa Baratheon, 3,18% são leais à casa Greyjov e assim por diante. E tomando-se todos os personagens do sexo masculino, 3,16% são leais à casa Arrun, 7,63% são leais à casa Baratheon e assim por diante.

Finalmente, no gráfico de barras apresentado, verifica-se a distribuição absoluta dos personagens com lealdade a cada casa, extratificada pelo sexo. A titulo de exemplo, de verde no referido gráfico, estão representados os personagens leais à casa Stark, sendo 81 do sexo masculino e 27 do sexo feminino.