将两个单词中的第一个字母大写为两个字符串

Question

假设我有一个两个字的字符串，并且我想要使用它们的大写字母 。

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") 

Answer 1

的基础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" 

Answer 2

尝试：

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

Answer 3

从?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" 

Answer 4

匹配的正则表达式开始之初^或之后空格[[:space:]]，后面跟着一个字母字符[[:alpha:]]。全局（g中的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表示使用与第二个子表达式([[:alpha:]])匹配的部分x。 \\U通过使用perl=TRUE启用了语法，并且表示使下一个字符成为大写。因此，对于“邮政编码”，\\1是“Zip”，\\2是“代码”，\\U\\2是“代码”，而\\1\\U\\2是“邮政编码”。

?regexp页面有助于理解正则表达式，?gsub可以将事物放在一起。

Answer 5

使用此功能从stringi包串和regexpr

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" 

Answer 6

替代方式：

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

Answer 7

包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!" 

Answer 8

备选：

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

Answer 9

没有为标题的情况下一个内置的基-R溶液以及：

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

或

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

Answer 10

> require(stringr) 
Loading required package: stringr 
> str_to_title('the state of the union') 
[1] "The State Of The Union" 

Answer 11

您也可以使用snakecase包（它在内部包裹还建议stringi/stringr溶液）：

> install.packages("snakecase") 
> library(snakecase) 

> name <- c("zip code", "state", "final count") 
> to_upper_camel_case(name, sep_out = " ") 
[1] "Zip Code" "State"  "Final Count" 

https://github.com/Tazinho/snakecase

Answer 12

这让大写字母所有主要的话

library(lettercase) 
xString = str_title_case(xString)