1 Análisis de sobrevivientes

1.1 Introducción

El Titanic fue uno de los transatánticos más grandes y lujosos de su Epoca, pero su trágico hundimiento el 15 de abril de 1912 marcó 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 Descripción de los Sobrevivientes

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

sobrevivientes <- titanic %>%
  filter(Survived == "Yes") %>% #Sobreviviente es la columna categórica (Yes/NO)
  select(Class, Sex, Age, Freq)
#echo=FALSE es para que no me muestre el código en la salida

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"), #responsive es para que si alguien lo veo por ej en el celular, se ajuste a la pantalla
                position = "center", font_size = 12) %>%
  row_spec(0, bold = TRUE, color = "white", background = "#2769AC") %>% 
  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

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)) + 
  scale_fill_manual(values= c( "Female" = "#FF6347", "Male" ="#4682B4"))+
  labs(title = "Sobrevivientes del Titanic por clase y por sexo",
       x = "Clase",
       y = "Numero de Sobrevivientes") +
  theme_light()

grafico

1.4 Conclusión

Sobreviven los pasajeros de mejor clase