Poner en mayúscula la primera letra de ambas palabras en una cadena de dos palabras

Digamos que tengo una cadena de dos palabras y quiero capitalizar ambas.

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

El Hmiscpaquete tiene una función capitalizeque capitaliza la primera palabra, pero no estoy seguro de cómo capitalizar la segunda palabra. La página de ayuda paracapitalize no sugiere que pueda realizar esa tarea.

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

Quiero tener:

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

¿Qué pasa con las cadenas de tres palabras:

name2 <- c("I like pizza")

La función base R para realizar la capitalización es toupper(x) . Desde el archivo de ayuda ?toupperhay una función que hace lo que necesita:

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" 

Editar Esto funciona para cualquier cadena, independientemente del número de palabras:

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

También hay una solución base-R incorporada para el caso del título:

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

o

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

Haga coincidir una expresión regular que comienza al principio ^o después de un espacio [[:space:]]y es seguida por un carácter alfabético [[:alpha:]]. A nivel mundial (la g en gsub) reemplazar todos estos hechos con el inicio o en el espacio y la versión en mayúsculas del carácter alfabético emparejado emparejado, \\1\\U\\2. Esto tiene que hacerse con la coincidencia de expresiones regulares de estilo perl.

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

En un poco más de detalle para el argumento de reemplazo gsub(), \\1dice 'usa la parte de hacer xcoincidir la primera sub-expresión', es decir, la parte de hacer xcoincidir (^|[[:spacde:]]). Del mismo modo, \\2dice usar la parte de xemparejar la segunda subexpresión ([[:alpha:]]). La \\Usintaxis se habilita usando perl=TRUE, y significa hacer que el siguiente carácter sea mayúscula. Entonces, para "Código postal", \\1es "Código postal", \\2es "código", \\U\\2es "Código" y\\1\\U\\2 es "Código postal".

La ?regexppágina es útil para comprender expresiones regulares, ?gsubpara armar cosas.

Use esta función del stringipaquete

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"   

Tratar:

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

Desde la página de ayuda para ?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"

El paquete BBmiscahora contiene la función 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!"

Forma alternativa con subcadena y regexpr:

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

También puede usar el paquete 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

Esto le da letras mayúsculas a todas las palabras principales

library(lettercase)
xString = str_title_case(xString)