```{r, message=FALSE, warning=FALSE}
# Grab title from passenger names
full$Title <- gsub('(.*, )|(\..*)', '', full$Name)

# Show title counts by sex
table(full$Sex, full$Title)