将两个单词的字符串中两个单词的首字母大写

假设我有两个单词的字符串，并且我想将两者都大写。

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中的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说使用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))

您还可以使用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)