Coloque em maiúscula a primeira letra de ambas as palavras em uma sequência de duas palavras

Digamos que eu tenho uma sequência de duas palavras e quero colocar as duas em maiúsculas.

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

O Hmiscpacote tem uma função capitalizeque maiúscula a primeira palavra, mas não sei como obter a segunda palavra maiúscula. A página de ajuda para capitalizenão sugere que ele possa executar essa tarefa.

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

Eu quero obter:

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

E quanto a seqüências de três palavras:

name2 <- c("I like pizza")

A função R básica para realizar letras maiúsculas é toupper(x). No arquivo de ajuda, ?toupperexiste esta função que faz o que você precisa:

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 Isso funciona para qualquer string, independentemente da contagem de palavras:

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

Também há uma solução base-R incorporada para maiúsculas e minúsculas:

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

ou

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

Corresponde a uma expressão regular que começa no início ^ou após um espaço [[:space:]]e é seguida por um caractere alfabético [[:alpha:]]. Globalmente (g em gsub) substitua todas essas ocorrências pelo início ou espaço correspondente e pela versão em maiúscula do caractere alfabético correspondente \\1\\U\\2. Isso deve ser feito com a correspondência de expressões regulares no estilo perl.

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

Um pouco mais detalhadamente para o argumento de substituição gsub(), \\1diz 'use a parte da xcorrespondência da primeira subexpressão', ou seja, a parte da xcorrespondência (^|[[:spacde:]]). Da mesma forma, \\2diz usar a parte da xcorrespondência da segunda subexpressão ([[:alpha:]]). A \\Usintaxe é ativada usando perl=TRUE, e significa tornar o próximo caractere em maiúscula. Portanto, para "CEP", \\1é "CEP", \\2é "código", \\U\\2é "Código" e \\1\\U\\2é "Código Postal".

A ?regexppágina é útil para entender expressões regulares, ?gsubpara organizar as coisas.

Use esta função do stringipacote

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"

Alternativo:

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

Experimentar:

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

Na página de ajuda 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"

O pacote BBmiscagora contém a função 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!"

Maneira alternativa com substring e regexpr:

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

Você também pode usar o pacote 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

Isso fornece letras maiúsculas para todas as principais palavras

library(lettercase)
xString = str_title_case(xString)