Прописать первую букву обоих слов в строке из двух слов

Допустим, у меня есть строка из двух слов, и я хочу использовать их оба с большой буквы.

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

В Hmiscпакете есть функция, capitalizeкоторая использует заглавные буквы первого слова, но я не уверен, как получить заглавные буквы для второго слова. Страница справки для capitalizeне предполагает, что он может выполнить эту задачу.

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

Я хочу получить:

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

Как насчет строк из трех слов:

name2 <- c("I like pizza")

Функции базовой R для выполнения капитализации является toupper(x). Из файла справки для ?toupperесть эта функция, которая делает то, что вам нужно:

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" 

Редактировать Это работает для любой строки, независимо от количества слов:

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

Также есть встроенное решение base-R для заглавия:

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

или

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

Соответствует регулярному выражению, которое начинается в начале ^или после пробела [[:space:]]и сопровождается алфавитным символом [[:alpha:]]. В мировом масштабе (Г в GSUB) заменить все такие случаи с соответствием начала или пространства , и версии верхнего регистра согласованной буквы алфавита, \\1\\U\\2. Это должно быть сделано с сопоставлением регулярных выражений в стиле Perl.

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

В чуть более подробно для замены аргумента gsub(), \\1говорит : «использовать часть xсогласования первого суб-выражение», то есть часть xсогласования (^|[[:spacde:]]). Аналогично, \\2говорит, использовать часть xсоответствия второго подвыражения ([[:alpha:]]). \\UЯвляется синтаксис включен, используя perl=TRUE, и средства , чтобы сделать следующий символ верхнего регистра. Таким образом, для «почтового индекса» \\1это «Zip», \\2«код», \\U\\2«код» и \\1\\U\\2«почтовый индекс»

?regexpСтраница полезна для понимания регулярных выражений, ?gsubдля сдачи вещей вместе.

Используйте эту функцию из stringiпакета

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"

Альтернатива:

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

Пытаться:

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

Со страницы справки для ?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"

Пакет BBmiscтеперь содержит функцию 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!"

Альтернативный способ с подстрокой и регулярным выражением:

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

Вы также можете использовать пакет 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

Это дает заглавные буквы всем основным словам

library(lettercase)
xString = str_title_case(xString)