Gunakan huruf kapital untuk huruf pertama dari kedua kata dalam string dua kata

Katakanlah saya memiliki dua kata string dan saya ingin menggunakan keduanya.

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

The Hmiscpaket memiliki fungsi capitalizeyang dikapitalisasi kata pertama, tapi aku tidak yakin bagaimana untuk mendapatkan kata kedua dikapitalisasi. Halaman bantuan untuk capitalizetidak menyarankan bahwa ia dapat melakukan tugas itu.

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

Saya ingin mendapatkan:

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

Bagaimana dengan string tiga kata:

name2 <- c("I like pizza")

Fungsi dasar R untuk melakukan kapitalisasi adalah toupper(x). Dari file bantuan untuk ?toupperada fungsi ini yang melakukan apa yang Anda butuhkan:

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" 

Sunting Ini berfungsi untuk sembarang string, terlepas dari jumlah kata:

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

Ada solusi built-in base-R untuk case title juga:

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

atau

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

Cocokkan ekspresi reguler yang dimulai pada awal ^atau setelah spasi [[:space:]]dan diikuti oleh karakter alfabet [[:alpha:]]. Secara global (g dalam gsub) mengganti semua kejadian seperti itu dengan awal atau ruang yang cocok dan versi huruf besar dari karakter alfabet yang cocok \\1\\U\\2,. Ini harus dilakukan dengan pencocokan ekspresi reguler gaya-perl.

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

Dalam sedikit lebih detail untuk argumen penggantian gsub(), \\1katakan 'gunakan bagian yang xcocok dengan sub-ekspresi pertama', yaitu bagian dari xpencocokan (^|[[:spacde:]]). Demikian juga, \\2kata gunakan bagian yang xcocok dengan sub-ekspresi kedua ([[:alpha:]]). The \\Usintaks diaktifkan dengan menggunakan perl=TRUE, dan sarana untuk membuat karakter berikutnya Atas kasus. Jadi untuk "Kode Pos", adalah "Kode Pos" \\1, \\2adalah "Kode", \\U\\2adalah "Kode", dan \\1\\U\\2"Kode Pos".

The ?regexphalaman membantu untuk memahami ekspresi reguler, ?gsubuntuk menempatkan sesuatu bersama-sama.

Gunakan fungsi ini dari stringipaket

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"

Alternatif:

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

Mencoba:

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

Dari halaman bantuan untuk ?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"

Paket BBmiscsekarang berisi fungsi 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!"

Cara alternatif dengan substring dan regexpr:

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

Anda juga bisa menggunakan paket 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

Ini memberi Huruf kapital untuk semua kata-kata utama

library(lettercase)
xString = str_title_case(xString)