在函数中使用Dplyr和Tidyr来大写数据框列中的名字和姓氏

Question

Names <- c("SUSAN,ALTOP","Brent,SPINER","KIM,YAMAGUCHI","John,McMurphy","Kevin,Y")
City <- c("Toronto","New York","Chicago","Toronto","Tokyo")
DF <- data.frame(Names,City)

我希望创建一个函数，该函数将在上面的简单示例数据框中使用大写的名字和姓氏，以便将名字读为“ Susan Altop”，“ Brent Spiner” ...等。（请注意，我也删除了逗号。）

我可以分别使用以下代码或通过管道使用以下代码来完成此操作。但是我希望创建一个函数，因为我必须做很多次，但是我不确定在使用dplyr，tidyr等时该如何做。我也愿意接受使用列表的更具创意的建议和purrr，如果可能的话。

DF <- DF %>% separate(DF,Names,c("First","Last",sep=","),remove=TRUE)
DF <- DF %>% mutate_each(funs(tolower),First,Last)
DF <- DF %>% mutate_each(funs(Capitalize),First,Last)
DF <- DF %>% mutate(NewNames=paste0(First," ",Last)

Answer 1

包中的stri_trans_totitle功能stringi似乎可以满足您的需求：

library(dplyr); library(stringi)
DF %>% mutate(Names = stri_trans_totitle(gsub(",", " ", Names)))

#           Names     City
# 1   Susan Altop  Toronto
# 2  Brent Spiner New York
# 3 Kim Yamaguchi  Chicago
# 4 John Mcmurphy  Toronto
# 5       Kevin Y    Tokyo

或者使用str_to_title从stringr：

library(stringr)
DF %>% mutate(Names = str_to_title(gsub(",", " ", Names)))

#           Names     City
# 1   Susan Altop  Toronto
# 2  Brent Spiner New York
# 3 Kim Yamaguchi  Chicago
# 4 John Mcmurphy  Toronto
# 5       Kevin Y    Tokyo