大写字母。 R相当于excel“PROPER”功能[重复]

Question

同事们，

我正在查看类似于以下摘录的数据框：

Month   Provider Items
January CofCom   25
july    CofCom   331
march   vobix    12
May     vobix    0

我想将每个单词的第一个字母大写，并降低每个单词的剩余字母。这将导致数据框类似于以下数据框：

Month   Provider Items
January Cofcom   25
July    Cofcom   331
March   Vobix    12
May     Vobix    0

总之，我正在寻找与 MS Excel 中可用的 ROPER 函数等效的 R 函数。

Answer 1

使用正则表达式：

x <- c('woRd Word', 'Word', 'word words')
gsub("(?<=\\b)([a-z])", "\\U\\1", tolower(x), perl=TRUE)
# [1] "Word Word"  "Word"       "Word Words"

(?<=\\b)([a-z]) 表示查找前面有单词边界的小写字母（例如，空格或行首）。 (?<=...) 被称为“后视”断言。 \\U\\1 说用它的大写版本替换那个字符。 \\1 是对模式中() 包围的第一组的反向引用。详情请见?regex。

如果您只想将第一个单词的第一个字母大写，请改用模式"^([a-z])。

Answer 2

该问题与 Excel PROPER 等效，（以前）接受的答案基于：

proper=function(x) paste0(toupper(substr(x, 1, 1)), tolower(substring(x, 2)))

可能值得注意的是：

proper("hello world")
## [1] "Hello world"

Excel PROPER 会改为“Hello World”。对于 Excel 的 1:1 映射，请参阅@Matthew Plourde。

如果您真正需要的只是将字符串的第一个字符设置为大写，您还可以考虑使用更短且速度更快的版本：

proper=function(s) sub("(.)", ("\\U\\1"), tolower(s), pe=TRUE)

Answer 3

另一种方法使用 stringi 包。 stri_trans_general 函数似乎将除首字母之外的所有字母都小写。

require(stringi)
x <- c('woRd Word', 'Word', 'word words')
stri_trans_general(x, id = "Title")
[1] "Word Word"  "Word"       "Word Words"

Answer 4

我认为没有，但你可以很容易地自己写它

(dat <- data.frame(x = c('hello', 'frIENds'),
                   y = c('rawr','rulZ'),
                   z = c(16, 18)))
#         x    y  z
# 1   hello rawr 16
# 2 frIENds rulZ 18

proper <- function(x)
  paste0(toupper(substr(x, 1, 1)), tolower(substring(x, 2)))


(dat <- data.frame(lapply(dat, function(x)
  if (is.numeric(x)) x else proper(x)),
  stringsAsFactors = FALSE))

#         x    y  z
# 1   Hello Rawr 16
# 2 Friends Rulz 18

str(dat)
# 'data.frame':  2 obs. of  3 variables:
#   $ x: chr  "Hello" "Friends"
#   $ y: chr  "Rawr" "Rulz"
#   $ z: num  16 18