Decapitalize insan isimleri (için 've muhasebe -)

Question

Ben (insan) isimler, başkentlerinde tüm bir vektör var:

names <- c("FRIEDRICH SCHILLER", "FRANK O'HARA", "HANS-CHRISTIAN ANDERSEN") 

decapitalize şimdiye kadar (sadece ilk harfleri büyük) için, ben oldu

simpleDecap <- function(x) { 
    s <- strsplit(x, " ")[[1]] 
    paste0(substring(s, 1,1), tolower(substring(s, 2)), collapse=" ") 
    } 
sapply(names, simpleDecap, USE.NAMES=FALSE) 
# [1] "Friedrich Schiller"   "Frank O'hara"   "Hans-christian Andersen" 

kullanarak Ama aynı zamanda ' ve - için hesaba istiyorum. s <- strsplit(x, " |\\'|\\-")[[1]]'u kullanarak doğru harfleri bulur, ancak sonra da ' ve - daraltılır.

sapply(names, simpleDecap2, USE.NAMES=FALSE) 
# [1] "Friedrich schiller"  "Frank o'Hara"   "Hans-christian andersen" 

: Dolayısıyla, ben

simpleDecap2 <- function(x) { 
    for (char in c(" ", "\\-", "\\'")){ 
    s <- strsplit(x, char)[[1]] 
    x <-paste0(substring(s, 1,1), tolower(substring(s, 2)), collapse=char) 
    } return x 
    } 

sapply (isimleri, simpleDecap, USE.NAMES = YANLIŞ)

fakat sonuçlar birbiri ardına bölünmüş olarak, elbette, daha da kötü çalıştı

Doğru yaklaşımın s <- strsplit(x, " |\\'|\\-")[[1]]'a göre ayrıldığını düşünüyorum, ancak paste= problem.

Answer 1

Bu Perl uyumlu düzenli ifadeler kullanarak, iş gibi görünüyor:

gsub("\\b(\\w)([\\w]+)", "\\1\\L\\2", names, perl = TRUE) 

\L harfe şu maç grubunu dönüştürür.

Answer 2

Perl regexp'in daha iyi bir çözüm olduğuna katılıyorum, ancak simpleDecap2 yaklaşımı çalışmadan çok uzak değil. olduğu

simpleDecap3 <- function(x) { 
    x <- tolower(x) 
    for (char in c(" ", "-", "'")){ 
     s <- strsplit(x, char)[[1]] 
     x <-paste0(toupper(substring(s, 1,1)), substring(s, 2), collapse=char) 
    } 
    x 
} 

, küçük harf bütün adını açmak ve ardından "", "sonra ilk harfini büyük -" veya "'". Regexp kadar güzel değil ve büyük olasılıkla sağlam değil, ama orijinal kodunuzdaki küçük değişiklikler ile işi tamamlıyor.