Mettre en majuscule la première lettre des deux mots dans une chaîne de deux mots

Disons que j'ai une chaîne de deux mots et que je veux les mettre tous les deux en majuscule.

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

Le Hmiscpackage a une fonction capitalizequi met en majuscule le premier mot, mais je ne sais pas comment mettre le deuxième mot en majuscule. La page d'aide de capitalizene suggère pas qu'il peut effectuer cette tâche.

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

Je veux obtenir:

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

Qu'en est-il des chaînes de trois mots:

name2 <- c("I like pizza")

La fonction de base R pour effectuer la capitalisation est toupper(x). Dans le fichier d'aide, ?toupperil y a cette fonction qui fait ce dont vous avez besoin:

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" 

Modifier Cela fonctionne pour n'importe quelle chaîne, quel que soit le nombre de mots:

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

Il existe également une solution de base-R intégrée pour la casse du titre:

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

ou

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

Correspond à une expression régulière qui commence au début ^ou après un espace [[:space:]]et est suivie d'un caractère alphabétique [[:alpha:]]. À l' échelle mondiale (les g en gsub) remplacer tous ces événements avec le début identifié ou de l' espace et la version majuscule du caractère alphabétique identifié, \\1\\U\\2. Cela doit être fait avec une correspondance d'expressions régulières de style perl.

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

Dans un peu plus de détails pour l'argument de remplacement à gsub(), \\1dit «utiliser la partie de la xcorrespondance de la première sous-expression», c'est-à-dire la partie de la xcorrespondance (^|[[:spacde:]]). De même, \\2indique utiliser la partie xcorrespondant à la deuxième sous-expression ([[:alpha:]]). La \\Usyntaxe est activée en utilisant perl=TRUE, et signifie que le caractère suivant est en majuscule. Donc, pour "Code postal", \\1est "Zip", \\2est "code", \\U\\2est "Code" et \\1\\U\\2est "Code postal".

La ?regexppage est utile pour comprendre les expressions régulières, ?gsubpour mettre les choses ensemble.

Utilisez cette fonction à partir du stringipackage

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"   

Essayer:

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

Depuis la page d'aide pour ?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"

Le package BBmisccontient maintenant la fonction 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!"

Méthode alternative avec sous-chaîne et regexpr:

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

Vous pouvez également utiliser le package 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

Cela donne des lettres majuscules à tous les mots principaux

library(lettercase)
xString = str_title_case(xString)