Introdução

Vou importar, manipular e costruir tabelas no R. Também vou ver proporções e gráfico de pizza.

Vou carregar um banco de dados

load("C:/Users/Anaba/Base_de_dados-master/Titanic.RData")

Estatísticas básicas

summary(Titanic)
##   Classe                    Idade             Sexo               Sobreviveu  
##  Tripula\xe7\xe3o:885   criança: 109   Feminino : 470   Não sobreviveu:1490  
##  Primeira        :324   adulto :2091   Masculino:1730   Sobreviveu    : 710  
##  Segunda         :285                                                        
##  Terceira        :706
View(Titanic)

class(Titanic$Classe)
## [1] "factor"
class(Titanic$Idade)
## [1] "factor"
class(Titanic$Sexo)
## [1] "factor"
class(Titanic$Sobreviveu)
## [1] "factor"

Corrigi “Tripulao” por “Tripulação

Titanic$Classe = gsub("Tripula<e7><e3>o","Tripulação", Titanic$Classe)

Tabelas e proporções

tabela_classe = table(Titanic$Classe)
tabela_classe
## 
##   Primeira    Segunda   Terceira Tripulação 
##        324        285        706        885
tabela_idade = table(Titanic$Idade)
tabela_idade
## 
## criança  adulto 
##     109    2091
tabela_sexo = table(Titanic$Sexo)
tabela_sexo
## 
##  Feminino Masculino 
##       470      1730
tabela_sobreviveu = table(Titanic$Sobreviveu)
tabela_sobreviveu
## 
## Não sobreviveu     Sobreviveu 
##           1490            710

Tabela de proporção

prop.table(tabela_classe)*100
## 
##   Primeira    Segunda   Terceira Tripulação 
##   14.72727   12.95455   32.09091   40.22727
prop.table(tabela_idade)*100
## 
##   criança    adulto 
##  4.954545 95.045455
prop.table(tabela_sexo)*100
## 
##  Feminino Masculino 
##  21.36364  78.63636

Gráficos de pizza

pie(tabela_classe, col=c("#5e358c","#1caac7","#54cc8c","#2a21db"))

A partir da análise dos dados do gráfico, podemos chegar a algumas conclusões.

A primeira tabela “classe” tinha 324 pessoas, na segunda 285 pessoas, na terceira 706 e na tripulação 885. Na segunda tabela “idade” tinha 109 crianças e 2091 adultos. Na terceira tabela “sexo” tinham 470 do sexo feminino e 1730 do sexo masculino Na quarta tabela “sobreviveu”, 710 pessoas sobreviveram e 1490 não sobreviveram.

Em relação as proporções, observou-se que a maior parte(40%) dos embarcados eram tripulantes e a menor parte (13%) estava na segunda classe. Sobre a idade, apenas 5% eram crianças e 95% eram adultas. Por fim, sobre o sexo dos indivíduos, 21% eram do sexo feminino e 79% eram do sexo masculino.

Então observando o gráfico, observa-se que a quantidade da tripulação representa quase 50%, equanto a soma da segunda e da primeira não corresponde nem a 1/3.