İki kelimeden oluşan bir dizede her iki kelimenin ilk harfini büyük yaz

Diyelim ki iki kelimeden oluşan bir dizem var ve ikisinden de büyük harf kullanmak istiyorum.

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

HmiscPaket işlevi vardır capitalizeilk kelimeyi büyük harfle, ama ben büyük harfle ikinci kelime nasıl emin değilim. İçin yardım sayfası, capitalizebu görevi gerçekleştirebileceğini göstermez.

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

Elde etmek istiyorum:

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

Üç kelimelik dizelere ne dersiniz:

name2 <- c("I like pizza")

Büyük harf kullanımı için temel R işlevi toupper(x). Yardım dosyasından ?toupperihtiyacınız olanı yapan bu işlev vardır:

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" 

Düzenle Bu, kelime sayısına bakılmaksızın herhangi bir dize için çalışır:

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

Başlık durumu için de yerleşik bir base-R çözümü vardır :

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

veya

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

^Boşluk başında veya sonrasında başlayan [[:space:]]ve onu alfabetik bir karakter izleyen normal bir ifadeyle eşleştirin [[:alpha:]]. Genel olarak (gsub'daki g), tüm bu oluşumları eşleşen başlangıç ​​veya boşluk ve eşleşen alfabetik karakterin büyük harf sürümüyle değiştirir \\1\\U\\2. Bu perl tarzı düzenli ifade eşleme ile yapılmalıdır.

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

Değiştirme argümanı için biraz daha ayrıntılı olarak gsub(), \\1' xilk alt ifadeyi eşleştirme bölümünü kullanın ', yani xeşleştirme bölümünü kullanın(^|[[:spacde:]]) . Benzer şekilde, ikinci alt ifadeyi eşleştirme \\2kısmını kullandığını söylüyor . Kullanılarak etkin sözdizimi ve bir sonraki karakter Üst konu ederek anlamına gelir. Yani "Posta kodu" için "Posta", "kod", "Kod" ve "Posta Kodu" dur.x([[:alpha:]])\\Uperl=TRUE\\1\\2\\U\\2\\1\\U\\2

?regexpSayfa, düzenli ifadeler anlamak için yararlıdır ?gsubbirlikte bir şeyler koymak için.

Bu işlevi stringipaketten kullan

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"   

Deneyin:

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

İçin yardım sayfasından ?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 BBmiscşimdi işlevi içeriyor 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!"

Subring ve regexpr ile alternatif yol:

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

Snakecase paketini de kullanabilirsiniz:

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

Bu, tüm büyük kelimelere büyük harf verir

library(lettercase)
xString = str_title_case(xString)