Resolução das questões

load("/cloud/project/bases_curso_estatistica/Base_de_dados-master/Titanic.RData")

Sobreviventes <-table(Titanic$Sobreviveu)

Sobreviventes
## 
## Não sobreviveu     Sobreviveu 
##           1490            710
round (prop.table(Sobreviventes)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          67.73          32.27
pass_sobrev <-table(Titanic$Sobreviveu, Titanic$Sexo)

pass_sobrev
##                 
##                  Feminino Masculino
##   Não sobreviveu      126      1364
##   Sobreviveu          344       366
round(prop.table(pass_sobrev)*100,2)
##                 
##                  Feminino Masculino
##   Não sobreviveu     5.73     62.00
##   Sobreviveu        15.64     16.64
pass_idade <-table(Titanic$Sobreviveu, Titanic$Idade)

pass_idade
##                 
##                  criança adulto
##   Não sobreviveu      52   1438
##   Sobreviveu          57    653
round(prop.table(pass_idade)*100,2)
##                 
##                  criança adulto
##   Não sobreviveu    2.36  65.36
##   Sobreviveu        2.59  29.68
pass_class <-table(Titanic$Sobreviveu, Titanic$Classe)

pass_class
##                 
##                  Tripula\xe7\xe3o Primeira Segunda Terceira
##   Não sobreviveu              673      122     167      528
##   Sobreviveu                  212      202     118      178
round(prop.table(pass_class)*100,2)
##                 
##                  Tripula\xe7\xe3o Primeira Segunda Terceira
##   Não sobreviveu            30.59     5.55    7.59    24.00
##   Sobreviveu                 9.64     9.18    5.36     8.09
Tab_SS <- table(Titanic$Sobreviveu, Titanic$Sexo)

Atividade 1 - Tinham 2200 pessoas no navio e existem quatro variáveis na base de dados analisada.

Atividade 2 - 710 sobreviveram ao Titanic

Atividade 3 - Do total de passageiros e tripulantes, apenas 32.27% sobrevivveram.

Atividade 4 - 334 mulheres sobreviveram.

Atividade 5 - 57 crianças sobreviveram.

Atividade 6 - 178 pessoas da terceira classe sobreviveram.

Atividade 7 - Do total de mortos e sobreviventes por gênero, as mulheres sobreviventes equivalem a 15.64%.

Atividade 8 - Do total de adultos e crianças mortos e sobreviventes, 2.59% equivale às crianças sobreviventes.

Atividade 9 - Do total de mortos e sobreviventes, 8,09% equivale aos passageiros de terceira classe que sobreviveram.

Atividade 10 - Usaria o barplot, já que as variáveis envolvidas são categóricas.

Atividade 11 - Sim

pie(Sobreviventes, main = "Tripulantes sobreviventes", col = c("#1ef7c8","#b6d1cb"))

Atividade 12 - Sim.

barplot(Tab_SS, main = "Sobreviventes por sexo", col = c("#3a917e", "#0ccfa4"), ylab = "Sobreviventes", beside = T, legend= c("Não sobrevivente", "Sobrevivente"), ylim = c(0,1700), args.legend = list(x = "topleft"))

Atividade 14 - Eles demostram a proporção de sobreviventes e “não sobreviventes” por classes, fazendo um comparativo entre esses valores, bem como apresentam proporcionalmente a quantidade de sobreviventes em toda a tripulação.