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

Question

假设我有一个两个单词的字符串，我想将它们都大写。

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

Hmisc package 有一个 function 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

标题案例也有一个内置的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"

Answer 2

执行大写的基本 R 函数是toupper(x) 。 从?toupper的帮助文件中，有这个功能?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 3

匹配以开头^或空格[[: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有助于将事物组合在一起。

Answer 4

使用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"

Answer 5

选择：

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

Answer 6

尝试：

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

Answer 7

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

包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 9

子字符串和正则表达式的替代方法：

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

Answer 10

你也可以使用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

Answer 11

这为所有主要单词提供大写字母

library(lettercase)
xString = str_title_case(xString)

Answer 12

在DescTools使用StrCap另一个版本

Text = c("This is my phrase in r", "No, this is not my phrase in r")

DescTools::StrCap(Text) # Default only first character capitalized
[1] "This is my phrase in r"         "No, this is not my phrase in r"

DescTools::StrCap(Text, method = "word") # Capitalize each word
[1] "This Is My Phrase In R"        "No This Is Not My Phrase In R"

> DescTools::StrCap(Text, method = "title") # Capitalize as in titles
[1] "This Is My Phrase in R"         "No, This Is Not My Phrase in R"

Answer 13

这是对避免使用sapply()的已接受答案的轻微改进。 还强制非第一个字符降低。

titleCase <- Vectorize(function(x) {
  
  # Split input vector value
  s <- strsplit(x, " ")[[1]]
  
  # Perform title casing and recombine
  ret <- paste(toupper(substring(s, 1,1)), tolower(substring(s, 2)),
        sep="", collapse=" ")
  
  return(ret)
  
}, USE.NAMES = FALSE)


name <- c("zip CODE", "statE", "final couNt")

titleCase(name)

#> "Zip Code"       "State" "Final Count" 

Answer 14

✓ 一行
✓ 一项现有功能； 没有新包
✓ 处理列表/所有单词
✓ 大写第一个字母并降低单词的其余部分：

name <- c("zip CODE", "statE", "final couNt")
gsub("([\\w])([\\w]+)", "\\U\\1\\L\\2", name, perl = TRUE)

[1] "Zip Code"    "State"       "Final Count"

如果你打算经常使用它，我想你可以用它制作一个包装函数：

capFirst <- function(x) gsub("([\\w])([\\w]+)", "\\U\\1\\L\\2", x, perl = TRUE)
capFirst(name)