如何根据称呼对性别进行分类

Question

我有一个名称基于称呼的专栏我需要分类并分配一个新的值，无论这个人是男性还是女性？我该怎么做？

Answer 1

dat <- "sal,name 
Dear Mrs.,Jones 
Dear Mr.,Smith 
Dear Mr.,Black" 

dat <- read.table(text=dat, header=TRUE, sep=",") 

dat$gender <- ifelse(grepl(pattern = "Mr\\.",dat$sal), "Male", "Female") 

dat 
#  sal name gender 
# 1 Dear Mrs. Jones Female 
# 2 Dear Mr. Smith Male 
# 3 Dear Mr. Black Male