Велика літера з обох слів складається з двох слів

Скажімо, у мене є слово з двох слів, і я хочу обидва великі літери.

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"

Існує вбудований базовий 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є "поштовий індекс", \\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!"

Альтернативний спосіб з підрядкою та regexpr:

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

Ви також можете використовувати пакет змії:

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)