Großschreiben Sie den ersten Buchstaben beider Wörter in einer Zeichenfolge mit zwei Wörtern

Nehmen wir an, ich habe eine Zeichenfolge mit zwei Wörtern und möchte beide groß schreiben.

name <- c("zip code", "state", "final count")

Das HmiscPaket hat eine Funktion, capitalizedie das erste Wort großschreibt, aber ich bin nicht sicher, wie das zweite Wort großgeschrieben werden soll. Die Hilfeseite für capitalizeschlägt nicht vor, dass diese Aufgabe ausgeführt werden kann.

library(Hmisc)
capitalize(name)
# [1] "Zip code"    "State"       "Final count"

Ich möchte bekommen:

c("Zip Code", "State", "Final Count")

Was ist mit Drei-Wort-Zeichenfolgen:

name2 <- c("I like pizza")

Die Basis-R-Funktion zur Durchführung der Großschreibung ist toupper(x). Aus der Hilfedatei für ?touppergibt es diese Funktion, die das tut, was Sie brauchen:

simpleCap <- function(x) {
  s <- strsplit(x, " ")[[1]]
  paste(toupper(substring(s, 1,1)), substring(s, 2),
      sep="", collapse=" ")
}

name <- c("zip code", "state", "final count")

sapply(name, simpleCap)

     zip code         state   final count 
   "Zip Code"       "State" "Final Count" 

Bearbeiten Dies funktioniert für jede Zeichenfolge, unabhängig von der Wortanzahl:

simpleCap("I like pizza a lot")
[1] "I Like Pizza A Lot"

Es gibt auch eine integrierte Base-R-Lösung für den Titelfall:

tools::toTitleCase("demonstrating the title case")
## [1] "Demonstrating the Title Case"

oder

library(tools)
toTitleCase("demonstrating the title case")
## [1] "Demonstrating the Title Case"

Entspricht einem regulären Ausdruck, der am Anfang ^oder nach einem Leerzeichen beginnt und auf das [[:space:]]ein alphabetisches Zeichen folgt [[:alpha:]]. Ersetzen Sie global (das g in gsub) alle derartigen Vorkommen durch den übereinstimmenden Anfang oder Leerzeichen und die Großbuchstabenversion des übereinstimmenden alphabetischen Zeichens \\1\\U\\2. Dies muss mit dem Abgleich regulärer Ausdrücke im Perl-Stil erfolgen.

gsub("(^|[[:space:]])([[:alpha:]])", "\\1\\U\\2", name, perl=TRUE)
# [1] "Zip Code"    "State"       "Final Count"

In etwas ausführlicher für den Ersatz Argument gsub(), \\1sagt ‚den Teil verwenden von xder ersten Unter Ausdruck übereinstimmen‘, dh der Teil der xAnpassungs (^|[[:spacde:]]). Ebenso \\2sagt, benutze den Teil der xÜbereinstimmung mit dem zweiten Unterausdruck ([[:alpha:]]). Die \\USyntax wird mithilfe von perl=TRUEund aktiviert , um das nächste Zeichen in Großbuchstaben zu schreiben. Also für "Postleitzahl" \\1ist "Postleitzahl", \\2ist "Code", \\U\\2ist "Code" und \\1\\U\\2ist "Postleitzahl".

Die ?regexpSeite ist hilfreich, um reguläre Ausdrücke zu verstehen ?gsubund Dinge zusammenzusetzen.

Verwenden Sie diese Funktion aus dem stringiPaket

stri_trans_totitle(c("zip code", "state", "final count"))
## [1] "Zip Code"      "State"       "Final Count" 

stri_trans_totitle("i like pizza very much")
## [1] "I Like Pizza Very Much"

Alternative:

library(stringr)
a = c("capitalise this", "and this")
a
[1] "capitalise this" "and this"       
str_to_title(a)
[1] "Capitalise This" "And This"   

Versuchen:

require(Hmisc)
sapply(name, function(x) {
  paste(sapply(strsplit(x, ' '), capitalize), collapse=' ')
})

Von der Hilfeseite für ?toupper:

.simpleCap <- function(x) {
    s <- strsplit(x, " ")[[1]]
    paste(toupper(substring(s, 1,1)), substring(s, 2),
          sep="", collapse=" ")
}


> sapply(name, .simpleCap)

zip code         state   final count 
"Zip Code"       "State" "Final Count"

Das Paket BBmiscenthält jetzt die Funktion capitalizeStrings.

library("BBmisc")
capitalizeStrings(c("the taIl", "wags The dOg", "That Looks fuNny!")
    , all.words = TRUE, lower.back = TRUE)
[1] "The Tail"          "Wags The Dog"      "That Looks Funny!"

Alternativer Weg mit Teilzeichenfolge und Regexpr:

substring(name, 1) <- toupper(substring(name, 1, 1))
pos <- regexpr(" ", name, perl=TRUE) + 1
substring(name, pos) <- toupper(substring(name, pos, pos))

Sie können auch das Snakecase-Paket verwenden:

install.packages("snakecase")
library(snakecase)

name <- c("zip code", "state", "final count")
to_title_case(name)
#> [1] "Zip Code"    "State"       "Final Count"

# or 
to_upper_camel_case(name, sep_out = " ")
#> [1] "Zip Code"    "State"       "Final Count"

https://github.com/Tazinho/snakecase

Dies gibt allen wichtigen Wörtern Großbuchstaben

library(lettercase)
xString = str_title_case(xString)