Tarea Titanic

library(tidyverse)
library(titanic)
library(ggplot2)
library(dplyr)

df <- dplyr::bind_rows(titanic::titanic_test,
                 titanic::titanic_train)
df <- as_tibble(df)

Crear grupo “mujeres pobres”

# crear mujeres,...
mujeres_pobres <- filter(df, Pclass == 3, Sex == "female")
hombres_ricos <- filter(df, Pclass == 1, Sex == "male")
# juntar tablas por filas
lucha_de_clases<-bind_rows(mutate(hombres_ricos, lucha_de_clases = "Hombres ricos"),
                          mutate(mujeres_pobres, lucha_de_clases = "Mujeres pobres"))

lucha_de_clases %>% 
  filter(!is.na(Survived)) %>% 
  ggplot() +
  geom_bar(aes(x =  factor(Survived), fill = "hotpink")) + 
  facet_wrap(~ lucha_de_clases)

select(df, Sex)

filter(df, Sex == "male")

filter(df, Sex == "female", Survived)

mujeres_vivas <- filter(df, Sex == "female", Survived)

filter(df, Sex == "male", Survived)

hombres_vivos <- filter(df, Sex == "male", Survived)

ggplot(data = mujeres_vivas) + 
  geom_bar(mapping = aes(x = Pclass), fill = "hotpink") +
  theme_bw()

ggplot(data = hombres_vivos) + 
  geom_bar(mapping = aes(x = Pclass), fill = "hotpink") +
  theme_bw()

filter(df, Pclass == 1, Survived)

ricos_sobrevivientes <- filter(df, Pclass == 1, Survived)

ggplot(data = ricos_sobrevivientes) + 
  geom_bar(mapping = aes(x = Sex), fill = "hotpink") +
  theme_bw()