1 Introducción

El Titanic fue un transatlántico británico, el mayor barco de pasajeros del mundo al finalizar su construcción, que naufragó en las aguas del océano Atlántico durante la noche del 14 y la madrugada del 15 de abril de 1912, mientras realizaba su viaje inaugural desde Southampton a Nueva York, tras chocar con un iceberg. En el hundimiento murieron 1496 personas de las 2208 que iban a bordo, lo que convierte a esta catástrofe en uno de los naufragios más mortales de la historia ocurridos en tiempos de paz.

2 Análisis descriptivo

#Realizo un resumen de algunas variables para poder realizar párrafo descriptivo
resumen = titanic %>%
  summarize(
    n_pasajeros = n(),
    edad_promedio = mean(edad, na.rm = TRUE),
    precio_promedio = mean(precio, na.rm = TRUE),
    tasa_supervivencia = mean(sobreviviente),
    max_edad = max(edad, na.rm = TRUE),
    min_edad = min(edad, na.rm = TRUE))

El Reporte que sigue utiliza datos de una base abierta llamada Titanic que cuenta con 891 observaciones. La edad promedio de los pasajeros de esta base es de 29.7 con un rango etario que va desde los 0.42 a los 80 años

3 Análisis de sobrevivientes

La tabla que sigue presenta el porcentaje de sobrevivencia por clase y género. Para todos los casos, el porcentaje de sobreviviencia es mayor en hombres que en mujeres, siendo la clase 3 la que presenta mayor brecha.

kable(resumen_sobrevivientes_, caption = "Porcentaje de Sobrevivientes del Titanic según clase y género", col.names = c("Clase", "Género", "Porcentaje de sobreviviencia"),
      align = c(rep('c',times=3)))%>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped", "hover", "condensed", "responsive"), position = "center", font_size = 10) %>%
  row_spec(0, bold = TRUE, color = "white", background = "#179CC9") %>% 
  row_spec(1:6, 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:")
Porcentaje de Sobrevivientes del Titanic según clase y género
Clase Género Porcentaje de sobreviviencia
1 female 0.1054994
1 male 0.1369248
2 female 0.0852974
2 male 0.1212121
3 female 0.1616162
3 male 0.3894501
Nota:
Tabla mostrando los primeros 10 sobrevivientes del Titanic, ordenados por clase de pasajero de mayor a menor.

El siguiente gráfico nos permite visualizar cómo se distribuye la edad de los sobrevivientes por clase.

La densidad de edad en primera clase (Clase 1) muestra una concentración en adultos de mediana edad, a diferencia de la segunda (Clase 2) y tercer clase (Clase 3) en la que se visualiza una mayor densidad en edades jóvenes o en adultos jóvenes. Esta diferenciación podría estar reflejando una diferencia en el perfil de edad de los pasajeros entre clases.

ggplot(sobrevivientes, aes(x = edad, y = factor(clase), fill = ..x..)) +
  geom_density_ridges_gradient(scale = 1.5, rel_min_height = 0.01) +
  scale_fill_viridis_c(option = "C") +
  labs(title = "Distribución de la Edad de los sobrevivientes por Clase", x = "Edad", y = "Clase", fill = "Edad") +
  theme(plot.title = element_text(size = 10))+
  theme_minimal()
## Picking joint bandwidth of 4.49

4 Conclusión

Los datos analizados (enfocándonos en los sobrevivientes), nos revelan que fueron los pasajeros de primera clase quienes más sobrevivieron a la tragedia del titanic. Al distinguir por sexo, fueron los hombres quines presentan un porcentaje de sobrevivencia más alto. A futuro, resulta interesante realizar el análisis para los no sobrevivientes de forma de realizar un análisis más exhaustivo.