ONG: No los olvidamos - Titanic 1912

library(ggplot2)
library(dplyr)

Attaching package: <U+393C><U+3E31>dplyr<U+393C><U+3E32>

The following objects are masked from <U+393C><U+3E31>package:stats<U+393C><U+3E32>:

    filter, lag

The following objects are masked from <U+393C><U+3E31>package:base<U+393C><U+3E32>:

    intersect, setdiff, setequal, union

library(gapminder)

Inglaterra:

La pobreza marcó el destino de los pasajeros del Titanic

Tras varios años del fatídico accidente del transatlántico británico, la ONG “No los olvidamos - Titanic 1912” reveló detalles inéditos de las personas que sobrevivieron según su rango etario y de clase social. Estos antecedentes generaron repercusiones en la opinión pública de todas partes del mundo.

El 15 de abril de 1912 se vivió uno de los episodios más trágicos para el Reino Unido y el mundo, luego de que el barco británico denominado Titanic se hundiera al chocar con un Iceberg lo que produjo que varios pasajeros murieran.

Hace algunos días, la ONG “Nunca los olvidamos - Titanic 1912” divulgó un artículo con detalles de las personas que iban a bordo del transatlántico. Estos datos repercutieron en varios actores de la sociedad civil británica.

Uno de los primeros antecedentes que mostró la organización fue el promedio de edad de los viajantes que se trasladaban desde Southampton hasta Nueva York. En el siguiente gráfico de barras se muestra que el rango etario era entre 20 y 30 años.

ggplot(data = df) +
  geom_bar(mapping = aes(x = Age), fill = "steelblue", colour = "red") +
  ggtitle("Gráfico acumulado de personas por edad")

La institución también develó de qué clase eran los pasajeros que iban en el barco británico. En el siguiente gráfico se demuestra que el promedio de edad aumenta según la clase, por lo que se evidencia que una persona mayor tiene un alto poder adquisitivo.

ggplot(df) +
geom_freqpoly(mapping = aes (x = Age, y = ..density.., colour = factor(Pclass))) +
ggtitle("Gráfico promedio de edades separado por clase")

La cifra de comparación de sobrevivientes entre mujeres y hombres según su edad y clase fue lo más polémico del artículo que difundió la organización. El tercer gráfico evidencia de que muchas personas que tenían sobre 40 años y eran de tercera clase fallecieron, pero la gran mayoría de primera clase sobrevivió a este hecho trágico.

ggplot(df) +
  geom_point(aes(x = Age, y = Pclass, size = Survived)) + 
  facet_wrap(~ Sex) +
  ggtitle("Gráfico sobrevivientes por clase y sexo")

De esta manera, una de las conclusiones que marcó esta investigación fue de que mientras peor calidad de clase del pasajero iban a ser nulas las probabilidades de sobrevivir al hundimiento del Titanic. Finalmente, los políticos del Reino Unido quedaron conmocionados con estos datos y aseguraron que llegarán hasta las últimas instancias para sancionar a los responsables de las más de mil muertes del fatídico episodio.