1 Análisis de sobrevivientes

1.1 Introducción

El Titanic fue uno de los transatlánticos más grandes y lujosos de su Epoca, pero su trágico hundimiento el 15 de abril de 1912 marca un momento histórico. En este informe, exploraremos las características de los sobrevivientes del Titanic, analizando factores como su clase, género, edad y frecuencia de supervivencia.

1.2 Descripcion de los Sobrevivientes

A continuacion, presentamos una tabla con los primeros 10 registros de sobrevivientes y una grafica que ilustra la distribución por clase y género.

#wuala!
sobrevivientes <- titanic %>%
  filter(Survived == "Yes") %>%
  slice(1:10) %>%
  arrange(desc(Class)) # Orden por frecuencia 

kable(sobrevivientes, caption = "Primeros 10 Sobrevivientes del Titanic") %>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped", "hover", "condensed", "responsive"), 
                position = "center", font_size = 12) %>%
  row_spec(0, bold = TRUE, color = "white", background = "#C520A0") %>% 
  row_spec(1:10, color = "black", background = "#E9EFF6") %>% 
  footnote(general = "Tabla mostrando los primeros 10 sobrevivientes del Titanic, ordenados por clase de pasajero de mayor a menor.",
           general_title = "Nota:")
Primeros 10 Sobrevivientes del Titanic
Class Sex Age Survived Freq
Crew Male Child Yes 0
Crew Female Child Yes 0
3rd Male Child Yes 13
3rd Female Child Yes 14
2nd Male Child Yes 11
2nd Female Child Yes 13
2nd Male Adult Yes 14
1st Male Child Yes 5
1st Female Child Yes 1
1st Male Adult Yes 57
Nota:
Tabla mostrando los primeros 10 sobrevivientes del Titanic, ordenados por clase de pasajero de mayor a menor.

1.3 Distribución de los sobrevivientes

# wuala!
sobrevivientes = as.data.frame(sobrevivientes)

grafico = ggplot(sobrevivientes, aes(x = Class, y = Freq, fill = Sex)) +
  geom_bar(stat = "identity", position = "dodge", width = 0.7) +
  scale_y_continuous(expand = expansion(mult = c(0, 0.1)), limits = c(0, 60)) + 
  labs(title = "Sobrevivientes del Titanic",
       x = "Clase",
       y = "Número de Sobrevivientes") +
  scale_fill_manual(values=c("Female" = "#bf1da7", "Male" = "yellow")) + 
  theme_light()

grafico

##Conclusiones

Sobrevivieron los de primera clase.