Completed in partial fulfillment of the requirements for WFED 540 Data Analysis.

1. Reading the Titanic Travelers Data File

TitanicTravelers<-read.csv(file=“http://www.personal.psu.edu/dlp/w540/datasets/titanicsurvival.csv” , header=TRUE , sep= “,”)

TitanicTravelers

glimpse (TitanicTravelers)

2. Total Number of Titanic Passengers

TotalTitanicTravelers<-summarise(TitanicTravelers, count=n())

The was a total of 2201 passengers on the Titanic during its sinking.

3. Total Surviving Titanic Passengers

Survive <-filter (TitanicTravelers, Survive >0)

TotalSurvive<-summarise(Survive, count=n())

TotalSurvive/TotalTitanicTravelers

There were 711 passengers that survived out of 2201, the proportion of total surviving passengers was 0.323035

4. Surviving Passengers for each Class

Crew (class0) Survivors

CrewClass0<-filter (Survive, Class<1) CrewClassTotal<-filter(TitanicTravelers, Class<1) TotalCrewClass0<-summarise(CrewClassTotal, count=n()) SurvivingCrewClass0<-summarise(CrewClass0, count=n())

SurvivingCrewClass0/TotalCrewClass0

There were 212 Crew that survived out of 885, the propotion of surviving crew class was 0.239548

First Class (1) Survivors

FirstClass1<-filter(Survive,Class>0,Class<2) SurvivingFirstClass1<-summarise(FirstClass1, count=n()) FirstClassTotal<-filter(TitanicTravelers, Class>0,Class<2) FirstClassTotalCount<-summarise(FirstClassTotal, count=n())

SurvivingFirstClass1/FirstClassTotalCount

There were 203 First Class Passengers that survived out of 325, the propotion of surviving first class was 0.6246154

Second Class (2) Survivors

SecondClass2<-filter(Survive,Class>1,Class<3) SurvivingSecondClass2<-summarise(SecondClass2, count=n()) SecondClassTotal<-filter(TitanicTravelers, Class>1,Class<3) SecondClassTotalCount<-summarise(SecondClassTotal, count=n())

SurvivingSecondClass2/SecondClassTotalCount

There were 118 Second Class Passengers that survived out of 285, the proportion of surviving second class passengers was 0.4140351.

Third Class (3) Survivors

ThirdClass3<-filter(Survive,Class>2) SurvivingThirdClass3<-summarise(ThirdClass3, count=n()) ThirdClassTotal<-filter(TitanicTravelers, Class>2) ThirdClassTotalCount<-summarise(ThirdClassTotal, count=n())

SurvivingThirdClass3/ThirdClassTotalCount

There were 178 Third Class Passengers that survived out of 706, the proportion of surviving third class passengers was 0.2521246

5. Number of Male and Female Passenger Survivors

Male Survivors

MaleSurvivors<-filter(Survive,Sex>0) NumberOfMaleSurvivors<-summarise(MaleSurvivors, count=n()) MaleTotal<-filter(TitanicTravelers,Sex>0) MaleTotal<-summarise(MaleTotal, count=n())

ProportionMaleSurvivors<-NumberOfMaleSurvivors/MaleTotal

ProportionMaleSurvivors

There were 367 Male Survivors out of 1731, or 1 out of every 4.7 survived. The propotion of surviving male passengers was 0.2120162

Female Survivors

FemaleSurvivors<-filter(Survive,Sex<1) NumberOfFemaleSurvivors<-summarise(FemaleSurvivors, count=n()) FemaleTotal<-filter(TitanicTravelers,Sex<1) FemaleTotal<-summarise(FemaleTotal, count=n())

ProportionFemaleSurvivors<-NumberOfFemaleSurvivors/FemaleTotal ProportionFemaleSurvivors

There were 344 Females that survived out of 470, or 1 out of every 1.37 survived. The Proportion of surviving female passengers was 0.7319149

Numerically Males had the highest survival by 23, however the Females had the best survival ratio where 1 out of every 1.37 survived. The Females also had the best surviving proportion of 0.7319149 when compared to the males who had a survival proportion of 0.2120162

6. Survival Rate for Adults and Children

Adult Survivors

AdultSurvivors<-filter(Survive,Age>0) NumberOfAdultSurvivors<-summarise(AdultSurvivors, count=n()) AdultTotal<-filter(TitanicTravelers,Age>0) AdultTotal<-summarise(AdultTotal, count=n())

ProportionAdultSurvivors<-NumberOfAdultSurvivors/AdultTotal ProportionAdultSurvivors

There were 654 Adult survivors out of 2092, or 1 out of every 3.2 adults survived. The proportion of surviving adults was 0.3126195

Child Surviors

ChildSurvivors<-filter(Survive,Age<1) NumberOfChildSurvivors<-summarise(ChildSurvivors, count=n()) ChildTotal<-filter(TitanicTravelers,Age<1) ChildTotal<-summarise(ChildTotal, count=n())

ProportionChildSurvivors<-NumberOfChildSurvivors/ChildTotal ProportionChildSurvivors

There were 57 Child surivors out of 109, or 1 out of every 1.92 survived. The proportion of surviving children was 0.5229358

Numerically the age with the lowest survival number was the Children with their number being 57 to the 654 Surviving Adults. However the Children had a better survival rate with 1 out of every 1.92 surviving when compared to the Adults 1 out of every 3.2, or a higher survival proportion of 0.5229358 compared to the adults 0.3126195

7. Survival broken down to age/sex categories.

Adult Male Survivors

AdultMaleSurvivors<-filter(Survive,Sex>0, Age>0) AdultMaleSurvivors<-summarise(AdultMaleSurvivors, count=n()) AdultMaleTotal<-filter(TitanicTravelers,Sex>0, Age>0) AdultMaleTotal<-summarise(AdultMaleTotal, count=n())

ProportionAdultMaleSurvivors<-AdultMaleSurvivors/AdultMaleTotal ProportionAdultMaleSurvivors

There were 338 Adult Male survivors out of 1667, or 1 out of every 4.93 survived. The proportion of survivng adult males was 0.2027594

Child Male Survivors

ChildMaleSurvivors<-filter(Survive,Sex>0,Age<1) summarise(ChildMaleSurvivors, count=n()) ChildMaleTotal<-filter(TitanicTravelers,Sex>0,Age<1) summarise(ChildMaleTotal, count=n())

There were 29 Child Male survivors out of 64, or 1 out of every 2.21 survived.

Adult Female Survivors

AdultFemaleSurvivors<-filter(FemaleSurvivors,Age>0) NumberOfAdultFemaleSurvivors<-summarise(AdultFemaleSurvivors, count=n()) AdultFemaleTotal<-filter(TitanicTravelers,Sex<1,Age>0) AdultFemaleTotal<-summarise(AdultFemaleTotal, count=n())

ProportoinAdultFemaleSurvivors<-NumberOfAdultFemaleSurvivors/AdultFemaleTotal ProportoinAdultFemaleSurvivors

There were 316 Adult Female survivors out of 425, or 1 out of every 1.34 survived, or the proportion of adult female survivors was 0.7435294

Child Female Survivors

ChildFemaleSurvivors<-filter(FemaleSurvivors,Age<1) NumberOfChildFemaleSurvivors<-summarise(ChildFemaleSurvivors, count=n()) ChildFemaleTotal<-filter(TitanicTravelers,Sex<1,Age<1) ChildFemaleTotal<-summarise(ChildFemaleTotal, count=n())

ProportionChildFemaleSurvivors<-NumberOfChildFemaleSurvivors/ChildFemaleTotal ProportionChildFemaleSurvivors

There were 28 Child Female survivors out of 45, or 1 out of every 1.61 survived. The Proportion of Child Female Survivors was 0.6222222.

The group most likely to survive was the Adult Females with a proportion of 0.7435294, and the group least likely to survive was the Adult Males with a proportion of 0.2027594.

8. Survival Proportion for each age/sex/class category.

Adult Male Crew Survivor Rate

AdultMaleCrewSurvivor<-filter(CrewClassTotal,Age>0,Sex>0,Survive>0) TotalAdultMaleCrewSurvivor<-summarise(AdultMaleCrewSurvivor, count=n()) AdultMaleCrewTotal<-filter(CrewClassTotal,Age>0,Sex>0) AdultMaleCrewTotal<-summarise(AdultMaleCrewTotal, count=n())

ProportionAdultMaleCrewSurvivor<-TotalAdultMaleCrewSurvivor/AdultMaleCrewTotal ProportionAdultMaleCrewSurvivor

The survival proportion for the Adult Male Crew was 0.2227378.

Child Male Crew Survivor Rate

ChildMaleCrewTotal<-filter(CrewClassTotal,Age<1,Sex>0) summarise(ChildMaleCrewTotal, count=n())

There were no Child Male Crew members.

Adult Female Crew Survivor Rate

AdultFemaleCrewTotal<-filter(CrewClassTotal,Age>0,Sex<1) TotalAdultFemaleCrewTotal<-summarise(AdultFemaleCrewTotal, count=n()) AdultFemaleCrewSurvivors<-filter(CrewClassTotal,Age>0,Sex<1,Survive>0) TotalAdultFemaleCrewSurvivors<-summarise(AdultFemaleCrewSurvivors, count=n())

ProportionAdultFemaleCrewSurvivors<-TotalAdultFemaleCrewSurvivors/TotalAdultFemaleCrewTotal ProportionAdultFemaleCrewSurvivors

The Survival Proportion for Adult Female Crew Members was 0.8695652.

Child Female Crew Member Survival Rate

ChildFemaleCrewTotal<-filter(CrewClassTotal,Age<1,Sex<1) summarise(ChildFemaleCrewTotal, count=n())

There were no Child Female Crew Members

Adult Male First Class Survival Rate

AdultMaleFirstClassTotal<-filter(FirstClassTotal,Age>0, Sex>0) AdultMaleFirstClassTotalCount<-summarise(AdultMaleFirstClassTotal, count=n()) AdultMaleFirstClassSurvivors<-filter(AdultMaleFirstClassTotal, Survive>0) AdultMaleFirstClassSurvivorsCount<-summarise(AdultMaleFirstClassSurvivors, count=n())

ProportionAdultMaleFirstClassSurvivors<-AdultMaleFirstClassSurvivorsCount/AdultMaleFirstClassTotalCount ProportionAdultMaleFirstClassSurvivors

The survival proportion for Adult Male First Class Passengers is 0.3257143.

Adult Female First Class Survival Rate

AdultFemaleFirstClassTotal<-filter(FirstClassTotal,Age>0, Sex<1) AFFCT<-summarise(AdultFemaleFirstClassTotal, count=n()) AdultFemaleFirstClassSurvivors<-filter(AdultFemaleFirstClassTotal, Survive>0) AFFCS<-summarise(AdultFemaleFirstClassSurvivors, count=n())

ProportionAdultFemaleFirstClassSurvivors<-AFFCS/AFFCT ProportionAdultFemaleFirstClassSurvivors

The Survival Rate for Adult Female First Class is 0.9722222.

Child Male First Class Survival Rate

ChildMaleFirstClassTotal<-filter(FirstClassTotal,Age<1,Sex>0) CMFCT<-summarise(ChildMaleFirstClassTotal, count=n()) ChildMaleFirstClassSurvivors<-filter(ChildMaleFirstClassTotal, Survive>0) CMFCS<-summarise(ChildMaleFirstClassSurvivors, count=n())

ProportionChildMaleFirstClassSurvivors<-CMFCS/CMFCT ProportionChildMaleFirstClassSurvivors

The Survival Proportion for Child Male First Class is 1 (note: there were only 5 1st class male child passengers).

Child Female First Class Survival Rate

ChildFemaleFirstClassTotal<-filter(FirstClassTotal,Age<1,Sex<1) CFFCT<-summarise(ChildFemaleFirstClassTotal, count=n()) ChildFemaleFirstClassSurvivors<-filter(ChildFemaleFirstClassTotal, Survive>0) CFFCS<-summarise(ChildFemaleFirstClassSurvivors, count=n())

ProportionChildFemaleFirstClassSurvivors<-CFFCS/CFFCT ProportionChildFemaleFirstClassSurvivors

The Survival Proportion for Child Female First Class is 1 (note: there was only 1 1st class female child passenger).

Adult Male Second Class Survival Rate

AdultMaleSecondClassTotal<-filter(SecondClassTotal,Age>0, Sex>0) AMSCT<-summarise(AdultMaleSecondClassTotal, count=n()) AdultMaleSecondClassSurvivors<-filter(AdultMaleSecondClassTotal, Survive>0) AMSCS<-summarise(AdultMaleSecondClassSurvivors, count=n())

ProportionAdultMaleSecondClassSurvivors<-AMSCS/AMSCT ProportionAdultMaleSecondClassSurvivors

The survival Proportion for Adult Male Second Class Passenger is 0.08333333.

Adult Female Second Class Survival Rate

AdultFemaleSecondClassTotal<-filter(SecondClassTotal,Age>0, Sex<1) AFSCT<-summarise(AdultFemaleSecondClassTotal, count=n()) AdultFemaleSecondClassSurvivors<-filter(AdultFemaleSecondClassTotal, Survive>0) AFSCS<-summarise(AdultFemaleSecondClassSurvivors, count=n())

ProportionAdultFemaleSecondClassSurvivors<-AFSCS/AFSCT ProportionAdultFemaleSecondClassSurvivors

The Survival Proportion for Adult Female Second Class is 0.8602151.

Child Male Second Class Survival Rate

ChildMaleSecondClassTotal<-filter(SecondClassTotal,Age<1,Sex>0) CMSCT<-summarise(ChildMaleSecondClassTotal, count=n()) ChildMaleSecondClassSurvivors<-filter(ChildMaleSecondClassTotal, Survive>0) CMSCS<-summarise(ChildMaleSecondClassSurvivors, count=n())

ProportionChildMaleSecondClassSurvivors<-CMSCS/CMSCT ProportionChildMaleSecondClassSurvivors

The Survival Proportion for Child Male Second Class is 1 (note: there were only 11 2nd class male child passengers).

Child Female Second Class Survival Rate

ChildFemaleSecondClassTotal<-filter(SecondClassTotal,Age<1,Sex<1) CFSCT<-summarise(ChildFemaleSecondClassTotal, count=n()) ChildFemaleSecondClassSurvivors<-filter(ChildFemaleSecondClassTotal, Survive>0) CFSCS<-summarise(ChildFemaleSecondClassSurvivors, count=n())

ProportionChildFemaleSecondClassSurvivors<-CFSCS/CFSCT ProportionChildFemaleSecondClassSurvivors

The Survival Proportion for Child Female Second Class is 1 (note: there was only 13 2nd class female child passengers).

Adult Male Third Class Survival Rate

AdultMaleThirdClassTotal<-filter(ThirdClassTotal,Age>0, Sex>0) AMTCT<-summarise(AdultMaleThirdClassTotal, count=n()) AdultMaleThirdClassSurvivors<-filter(AdultMaleThirdClassTotal, Survive>0) AMTCS<-summarise(AdultMaleThirdClassSurvivors, count=n())

ProportionAdultMaleThirdClassSurvivors<-AMTCS/AMTCT ProportionAdultMaleThirdClassSurvivors

The survival Proportion for Adult Male Third Class Passenger is 0.1623377.

Adult Female Third Class Survival Rate

AdultFemaleThirdClassTotal<-filter(ThirdClassTotal,Age>0, Sex<1) AFTCT<-summarise(AdultFemaleThirdClassTotal, count=n()) AdultFemaleThirdClassSurvivors<-filter(AdultFemaleThirdClassTotal, Survive>0) AFTCS<-summarise(AdultFemaleThirdClassSurvivors, count=n())

ProportionAdultFemaleThirdClassSurvivors<-AFTCS/AFTCT ProportionAdultFemaleThirdClassSurvivors

The Survival Proportion for Adult Female Third Class is 0.4606061.

Child Male Third Class Survival Rate

ChildMaleThirdClassTotal<-filter(ThirdClassTotal,Age<1,Sex>0) CMTCT<-summarise(ChildMaleThirdClassTotal, count=n()) ChildMaleThirdClassSurvivors<-filter(ChildMaleThirdClassTotal, Survive>0) CMTCS<-summarise(ChildMaleThirdClassSurvivors, count=n())

ProportionChildMaleThirdClassSurvivors<-CMTCS/CMTCT ProportionChildMaleThirdClassSurvivors

The Survival Proportion for Child Male Third Class is 0.2708333.

Child Female Third Class Survival Rate

ChildFemaleThirdClassTotal<-filter(ThirdClassTotal,Age<1,Sex<1) CFTCT<-summarise(ChildFemaleThirdClassTotal, count=n()) ChildFemaleThirdClassSurvivors<-filter(ChildFemaleThirdClassTotal, Survive>0) CFTCS<-summarise(ChildFemaleThirdClassSurvivors, count=n())

ProportionChildFemaleThirdClassSurvivors<-CFTCS/CFTCT ProportionChildFemaleThirdClassSurvivors

The Survival Proportion for Child Female Third Class is 0.4516129.

The Group with the highest mortality rate in this disaster was the 2nd class adult males with a survival proportion of 0.08333333. Which means 11 out of every 12 - 2nd class adult males died during the sinking of the Titanic.

Summary: During my analysis of the Titanic Travelers I quickly realized that it was the proportion of survival for each category that determined a passengers chances of survival. The category with the highest survival proportion was 1st and 2nd class childeren with a 1, and the lowest category is 2nd Class Adult Males with a survival proportion of 0.08333333.

References:

“Report on the Loss of the `Titanic’ (S.S.)” (1990), British Board of Trade Inquiry Report (reprint), Gloucester, UK: Allan Sutton Publishing.

Dawson, R. J. M.. The “Unusual Episode” Data Revisited. (1995). Retrieved September 13, 2015, from:http://www.personal.psu.edu/dlp/w540/datasets/titanicsurvival.csv