Atividade Infosoc

1. Analise dados Titanic

tb_titanic <- read_csv('http://www.populacoes.info/df/titanic.csv')

## 
## -- Column specification --------------------------------------------------------
## cols(
##   PassengerId = col_double(),
##   Survived = col_double(),
##   Pclass = col_double(),
##   Name = col_character(),
##   Sex = col_character(),
##   Age = col_double(),
##   SibSp = col_double(),
##   Parch = col_double(),
##   Ticket = col_character(),
##   Fare = col_double(),
##   Cabin = col_character(),
##   Embarked = col_character()
## )

1.1 Alterar nome da váriavel

tb_titanic %>%
  select(Sex, Pclass, Survived) %>%
  mutate(Sex = as.factor(recode(Sex,
                                female = 'feminino',
                                male = 'masculino'))) %>%
  mutate(Pclass = as.factor(recode (Pclass,
                                    `1` = '1ª classe',
                                    `2` = '2ª classe', 
                                    `3` = '3ª classe'))) %>%
  mutate (Survived = as.factor(recode (Survived,
                                       `0` =  'faleceram',
                                       `1` = 'sobreviveram')))%>%
  rename(Sexo = Sex) %>%
  rename(Classe = Pclass) %>%
  rename(Sobreviventes = Survived) -> tab_titanic_SCS

2. Atividade - Será que a chance de sobrevivência de passageiros do sexo masculino e feminino foi a mesma?

spineplot(Sobreviventes~Sexo, data= tab_titanic_SCS,
          col = qualitative_hcl (2,palette = 'Harmonic'),
          main = 'Sobreviventes Titanic por sexo')

head(tab_titanic_SCS)

## # A tibble: 6 x 3
##   Sexo      Classe    Sobreviventes
##   <fct>     <fct>     <fct>        
## 1 masculino 3ª classe faleceram    
## 2 feminino  1ª classe sobreviveram 
## 3 feminino  3ª classe sobreviveram 
## 4 feminino  1ª classe sobreviveram 
## 5 masculino 3ª classe faleceram    
## 6 masculino 3ª classe faleceram

2.1 Resposta: As pessoas do sexo feminino tiveram mais chance de sobrevivencia entre os passageiros.