Scrivi in ​​maiuscolo la prima lettera di entrambe le parole in una stringa di due parole

Diciamo che ho una stringa di due parole e voglio capitalizzare entrambe.

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

Il Hmiscpacchetto ha una funzione capitalizeche utilizza la maiuscola per la prima parola, ma non sono sicuro di come utilizzare la seconda parola in maiuscolo. La pagina di aiuto per capitalizenon suggerisce che può eseguire quell'attività.

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

Voglio ottenere:

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

Che dire delle stringhe di tre parole:

name2 <- c("I like pizza")

La funzione R di base per eseguire le maiuscole è toupper(x). Dal file di aiuto per ?toupperc'è questa funzione che fa quello che ti serve:

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" 

Modifica Funziona con qualsiasi stringa, indipendentemente dal conteggio delle parole:

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

Esiste anche una soluzione base-R integrata per il case dei titoli:

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

o

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

Abbina un'espressione regolare che inizia all'inizio ^o dopo uno spazio [[:space:]]ed è seguito da un carattere alfabetico [[:alpha:]]. Globale (g in gsub) sostituire tutti tali occorrenze con l'inizio abbinato o di spazio e la versione maiuscola del carattere alfabetico corrispondente, \\1\\U\\2. Questo deve essere fatto con la corrispondenza delle espressioni regolari in stile perl.

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

Più in dettaglio per l'argomento di sostituzione gsub(), \\1dice "usa la parte della xcorrispondenza della prima sottoespressione", cioè la parte della xcorrispondenza (^|[[:spacde:]]). Allo stesso modo, \\2dice usa la parte della xcorrispondenza della seconda sottoespressione ([[:alpha:]]). La \\Usintassi è abilitata usando perl=TRUE, e significa rendere il carattere successivo in maiuscolo. Quindi per "Codice postale", \\1è "Codice postale", \\2è "Codice", \\U\\2è "Codice" ed \\1\\U\\2è "Codice postale".

La ?regexppagina è utile per comprendere le espressioni regolari, ?gsubper mettere insieme le cose.

Utilizzare questa funzione dal stringipacchetto

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"

Alternativa:

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

Provare:

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

Dalla pagina di aiuto per ?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"

Il pacchetto BBmiscora contiene la funzione 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!"

Modo alternativo con sottostringa e regexpr:

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

Puoi anche usare il pacchetto snakecase:

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

Questo dà lettere maiuscole a tutte le parole principali

library(lettercase)
xString = str_title_case(xString)