Estatistica

R Markdown

# Estatística: média,variancia e/ou desvio-padrao
summary(mudancas_aliancas$episodios)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.000   1.000   2.000   6.043   6.000  61.000

summary(personagens_livro$Guerra_dos_Tronos)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0000  0.0000  0.0000  0.2726  1.0000  1.0000

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(mudancas_aliancas$episodios,col = "skyblue",
         main="Grafico 1 - boxplot do mudanças_aliança")

boxplot(personagens_livro$Guerra_dos_Tronos,col = "tomato2",
        main="Grafico 2 - boxplot do personagens_livro")

boxplot(tempo_de_tela$minutos,col = "yellow",
        main="Grafico 3 - boxplot do tempo_de_tela")

#gráfico, tabela e proporção
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

personagens_livro$nobre <- ifelse(personagens_livro$nobre=="1","nobre","não nobre")
table(personagens_livro$sexo,personagens_livro$nobre)

##            
##             não nobre nobre
##   femenino         73    84
##   masculino       414   346

tabela_da_nobreza <- table(personagens_livro$sexo,personagens_livro$nobre)
tabela_da_nobreza

##            
##             não nobre nobre
##   femenino         73    84
##   masculino       414   346

prop.table(tabela_da_nobreza,2)

##            
##             não nobre     nobre
##   femenino  0.1498973 0.1953488
##   masculino 0.8501027 0.8046512

barplot(tabela_da_nobreza,legend=TRUE)

barplot(tabela_da_nobreza,legend=TRUE,beside=TRUE,col = c("pink","blue"))

library(dplyr)
tabela_da_nobreza <- table(personagens_livro$sexo,personagens_livro$nobre)
tabela_da_nobreza

##            
##             não nobre nobre
##   femenino         73    84
##   masculino       414   346

prop.table(tabela_da_nobreza,2)*100

##            
##             não nobre    nobre
##   femenino   14.98973 19.53488
##   masculino  85.01027 80.46512

barplot(tabela_da_nobreza,legend=TRUE,beside=TRUE,col =c("#e6b3cc","#0000cc"))

Primeiramente utilizando o comando summary realizei a média, maxima e mínima do arquivo “game of throne” que possuia as subdivisões “mudanças_aliança”; “personagens_livro” e “tempo_de_tela”. Logo em seguida por meio do comando boxplot foi possivel realizar uma comparação gráfica dos dados apresentados anteriormente.

Realizei em seguida um tratamento de dados por meio da utilização de duas variavéis qualitativas para que fosse possivel a separaçãço do gráfico em duas categorias, nobres e não nobres; feminino e masculino.

Por meio da observação dos graficos do arquivo “tabela_da_nobreza” foi possivel identificar a parcela feminina(representado pela cor rosa) e masculina(representada pela cor azul) da população que pertencia ou não a nobreza, deixando explicito que a grande maioria dos nobres pertencem ao sexo masculino.