Zamień na wielką pierwszą literę obu słów w ciągu dwóch słów

Powiedzmy, że mam ciąg składający się z dwóch słów i chcę w obu z nich pisać wielką literą.

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

HmiscPakiet posiada funkcję capitalize, która kapitalizowane pierwsze słowo, ale nie jestem pewien jak zdobyć drugie słowo wielką literą. Strona pomocy dla capitalizenie sugeruje, że może wykonać to zadanie.

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

Chcę dostać:

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

A co z ciągami składającymi się z trzech słów:

name2 <- c("I like pizza")

Podstawową funkcją R do wykonywania wielkich liter jest toupper(x). Z pliku pomocy ?toupperjest funkcja, która robi to, czego potrzebujesz:

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" 

Edytuj Działa to dla dowolnego ciągu, niezależnie od liczby słów:

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

Istnieje również wbudowane rozwiązanie base-R dla przypadku tytułu:

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

lub

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

Dopasuj wyrażenie regularne rozpoczynające się na początku ^lub po spacji [[:space:]]i zakończone znakiem alfabetu [[:alpha:]]. Globalnie (G w gsub) zastąpić wszystkie wystąpienia z dopasowaną rozpoczynających lub przestrzeń i wersji wyższej przypadek dopasowane charakterem alfabetycznej \\1\\U\\2. Należy to zrobić za pomocą dopasowywania wyrażeń regularnych w stylu perla.

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

W nieco bardziej szczegółowo za argument do zastąpienia gsub(), \\1mówi „użyj część xdopasowanie akapicie pierwszym wyrażenie”, czyli część xdopasowywania (^|[[:spacde:]]). Podobnie, \\2mówi, używa części xdopasowania drugiego wyrażenia podrzędnego ([[:alpha:]]). \\UJest włączona przy użyciu składni perl=TRUE, a środki do ich następnego znaku wielkich liter. Tak więc „Kod pocztowy” \\1to „Kod pocztowy”, \\2„Kod”, \\U\\2„Kod” i \\1\\U\\2„Kod pocztowy”.

?regexpStrona jest bardzo pomocna w zrozumieniu wyrażeń regularnych, ?gsubna oddanie rzeczy razem.

Użyj tej funkcji z stringipakietu

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"

Alternatywny:

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

Próbować:

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

Ze strony pomocy dla ?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"

Pakiet BBmisczawiera teraz funkcję 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!"

Alternatywny sposób z podciągiem i wyrażeniem regularnym:

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

Możesz również skorzystać z pakietu wężowego:

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

To daje wielkie litery do wszystkich głównych słów

library(lettercase)
xString = str_title_case(xString)