Desarrollo

Punto 1

Estadistica_Titanic <- read_delim("Estadistica Titanic.csv", 
    delim = ";", escape_double = FALSE, trim_ws = TRUE)
cor(Estadistica_Titanic$Age,Estadistica_Titanic$Fare)
## [1] -0.03366585
chart.Correlation(Estadistica_Titanic[,c(5,9)],histogram = F,pch=19)

Se puede observar que no hay correlación entre la información, ya que la edad no afectaba el precio del ticket, el precio variaba segun la clase social más no por la edad.

Punto 2

#diagrama de cajas 
Estadistica_Titanic$Survived <- as.factor(Estadistica_Titanic$Survived)
cols<-c("pink","green") 
ggplot(Estadistica_Titanic, aes(x=Estadistica_Titanic$Survived, y=Estadistica_Titanic$Age, fill = Estadistica_Titanic$Survived))+ 
  stat_boxplot(geom = "errorbar", width=0.25)+
  geom_boxplot()+
  scale_fill_manual(values=cols)+
  labs(title="diagrama de cajas por sobrevivientes",
       x="sobrevivientes",
       y="edad")+
  theme(legend.position = "none")

En el diagrama de cajas se puede ver que en la caja color rosa y verde la mediana de edad para las personas que no sobrevivieron esta cerca de los 30 años, no hay valores atípicos. En la caja de color rosa se ve que hay algunos valores minimos cercanos a 0 años lo que representa que niños muy pequeños no sobrevivieron.
# PUNTO 3

tabla_cruzada=table(Estadistica_Titanic$Pclass,Estadistica_Titanic$Sex)
tabla_cruzada
##    
##     female male
##   1    173  182
##   2    138  188
##   3    162  157

En la tabla cruzada se evidencia que: - Para la clase 1 hay más hombres (182) que mujeres(173) - Para la clase 2 hay más hombres (188) que mujeres (138) - Para la clase 3 hay mas mujeres (162) que hombres (157) Por lo anterior vemos qeu en todas las clases del titanic habia un equilibrio relativo entre hombre y mujeres, sin embargo ligeramente en la clase 1 y 2 hay más hombres y en la 3 más mujeres.

tabla_cruzada2=table(Estadistica_Titanic$Survived,Estadistica_Titanic$Sex)
tabla_cruzada2
##    
##     female male
##   0    244  264
##   1    229  263

En esta tabla cruzada nos da la supervivencia con relación al sexo. NO SOBREVIVIERON (244) Mujeres y (264) Hombres. SI SOBREVIVIERON (229) Mujeres y (263) Hombres. Los números indican que tanto en hombres como mujeres, más personas no sobrevivieron que las que si lo hicieron; con lo cual es coherente con la tasa de mortalidad del titanic.