Создать новую переменную

У меня есть следующие данные:

Я хочу создать переменную «TITLE» из «NAME» со значениями MASTER, MISS, MR, MRS И OTHER. MISS, иногда похож на MLLE, а MRS иногда появляется как Ms или MME, используя пакет dplyr.

Я пробовал это:

Title_Master <- titanic2 %>% 
  filter(str_detect(Name, "Master") & Sex == "male") %>%
  mutate(Title = "Master")

Title_Miss <- titanic2 %>%
  filter((str_detect(Name, "Miss") | str_detect(Name, "Mmlle")) & Sex == 
  "female") %>%   
  mutate(Title = "Miss")

Title_Mr <-  titanic2 %>% 
  filter(str_detect(Name, "Mr") & Sex == "male") %>%
  mutate(Title = "Mr")

Title_Mrs <- titanic2 %>% 
  filter((str_detect(Name, "Mrs") | str_detect(Name, "Ms") |  
  str_detect(Name, "Mme")) & Sex == "female") %>%             
  mutate(Title = "Mrs")

T_Title <- rbind(Title_Master, Title_Miss, Title_Mr, Title_Mrs)

Но я не уверен, что это лучший способ. И я не знаю, как создать значение «OTHER».