2つの単語の文字列で両方の単語の最初の文字を大文字にします

2つの単語の文字列があり、両方を大文字にしたいとします。

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

Hmiscパッケージには、機能を有するcapitalize最初の単語を大文字に、私は大文字で2番目の単語を取得するかどうかはわかりません。のヘルプページcapitalizeは、そのタスクを実行できることを示唆していません。

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

私は手に入れたい：

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

3ワードの文字列についてはどうですか？

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のg）は、そのようなすべての出現箇所を、一致する先頭またはスペースと、一致するアルファベット文字の大文字バージョンで置き換えます\\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番目の部分式\\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!"

部分文字列と正規表現を使用した別の方法：

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)