Großschreibung von Buchstaben. R Äquivalent von Excel „Proper“ Funktion

Question

Kollegen,

Ich bin an einem Datenrahmen der Suche unter den Extrakt ähnelt:

Month Provider Items 
January CofCom 25 
july CofCom 331 
march vobix 12 
May  vobix 0 

Ich möchte ersten Buchstaben jedes Wortes nutzen und senken Sie die verbleibenden Buchstaben für jedes Wort. Dies würde in dem Datenrahmen führt die unten ähnelt:

Month Provider Items 
January Cofcom 25 
July Cofcom 331 
March Vobix 12 
May  Vobix 0 

Mit einem Wort, ich bin für R äquivalent der ROPER Funktion in MS Excel suchen.

Answer 1

Die Frage ist etwa ein Äquivalent von Excel PROPER und der (ehemaligen) akzeptierte Antwort basiert auf:

proper=function(x) paste0(toupper(substr(x, 1, 1)), tolower(substring(x, 2))) 

Es könnte sich lohnen, unter Hinweis darauf, dass:

proper("hello world") 
## [1] "Hello world" 

Excel PROPER würde stattdessen "Hallo Welt" geben. Zum 1: 1-Mapping mit Excel siehe @Matthew Plourde.

Wenn das, was Sie wirklich brauchen nur das erste Zeichen einer Zeichenkette in Großbuchstaben gesetzt ist, können Sie auch die kürzere und etwas schnellere Version betrachten:

proper=function(s) sub("(.)", ("\\U\\1"), tolower(s), pe=TRUE) 

Answer 2

Ich denke nicht, es ist, aber man kann es sich leicht schreiben

(dat <- data.frame(x = c('hello', 'frIENds'), 
        y = c('rawr','rulZ'), 
        z = c(16, 18))) 
#   x y z 
# 1 hello rawr 16 
# 2 frIENds rulZ 18 

proper <- function(x) 
    paste0(toupper(substr(x, 1, 1)), tolower(substring(x, 2))) 


(dat <- data.frame(lapply(dat, function(x) 
    if (is.numeric(x)) x else proper(x)), 
    stringsAsFactors = FALSE)) 

#   x y z 
# 1 Hello Rawr 16 
# 2 Friends Rulz 18 

str(dat) 
# 'data.frame': 2 obs. of 3 variables: 
# $ x: chr "Hello" "Friends" 
# $ y: chr "Rawr" "Rulz" 
# $ z: num 16 18 

Answer 3

mit regulären Ausdrücken:

x <- c('woRd Word', 'Word', 'word words') 
gsub("(?<=\\b)([a-z])", "\\U\\1", tolower(x), perl=TRUE) 
# [1] "Word Word" "Word"  "Word Words" 

(?<=\\b)([a-z]) sagt für einen Kleinbuchstaben durch eine Wortgrenze voran aussehen (zB , ein Leerzeichen oder der Anfang einer Zeile). (?<=...) wird eine "Look-Behind" -Assistenz genannt. \\U\\1 sagt ersetzen dieses Zeichen mit seiner Großbuchstaben-Version. \\1 ist eine Rückverweis auf die erste Gruppe von () im Muster umgeben. Weitere Informationen finden Sie unter ?regex.

Wenn Sie nur den ersten Buchstaben des ersten Wortes groß schreiben möchten, verwenden Sie stattdessen das Muster "^([a-z]).

Answer 4

Eine andere Methode verwendet das Stringi-Paket. Die stri_trans_general-Funktion scheint alle Buchstaben außer dem Anfangsbuchstaben zu verkleinern.

require(stringi) 
x <- c('woRd Word', 'Word', 'word words') 
stri_trans_general(x, id = "Title") 
[1] "Word Word" "Word"  "Word Words"