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 などを使用する場合はどうすればよいかわかりません。また、リストを使用するより創造的な提案も受け付けています。可能であればゴロゴロ。
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)