Использования Dplyr и Tidyr в функции для заглавных имен и фамилии в колонке Dataframe

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) 

Я надеюсь создать функцию, которая будет заглавной и фамилию в простом примере кадра данных выше, так что имена читать как «Сьюзан Алтоп», «Брент Спинер» ... и т. д. (Обратите внимание, что я также удалил запятые.)

Я могу выполнить это, используя следующие коды, отдельно или с трубопроводом. Но я надеюсь создать функцию, так как мне придется делать это много раз, но я не уверен, как это сделать при использовании 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