主要的问题是缺少了perl=TRUE（并且正则表达式有一点错误，尽管这可能是由于试图修复第一个问题而导致的）。
使用[:lower:]而不是[a-z]（或[:alpha:]而不是[A-Za-z]）稍微安全一点，以防您的代码最终在一些奇怪的（sorry, Estonians）区域中运行，其中z不是字母表的最后一个字母...

re_from <- "\\b([[:alpha:]])([[:alpha:]]+)"
strings <- c("first phrase", "another phrase to convert",
             "and here's another one", "last-one")
gsub(re_from, "\\U\\1\\L\\2" ,strings, perl=TRUE)
## [1] "First Phrase"              "Another Phrase To Convert"
## [3] "And Here's Another One"    "Last-One"

您可能更喜欢使用\\E（停止大写）而不是\\L（开始小写），这取决于您想要遵循的规则，例如：

string2 <- "using AIC for model selection"
gsub(re_from, "\\U\\1\\E\\2" ,string2, perl=TRUE)
## [1] "Using AIC For Model Selection"

在不使用regex的情况下，tolower的帮助页面有两个示例函数可以实现此功能。
更健壮的版本是

capwords <- function(s, strict = FALSE) {
    cap <- function(s) paste(toupper(substring(s, 1, 1)),
                  {s <- substring(s, 2); if(strict) tolower(s) else s},
                             sep = "", collapse = " " )
    sapply(strsplit(s, split = " "), cap, USE.NAMES = !is.null(names(s)))
}
capwords(c("using AIC for model selection"))
## ->  [1] "Using AIC For Model Selection"

要使regex方法（几乎）工作，您需要设置`perl = TRUE）

gsub("(\\b[a-z]{1})", "\\U\\1" ,strings, perl=TRUE)

[1] "First Phrase"              "Another Phrase To Convert"
[3] "And Here'S Another One"    "Last-One"

但你可能需要更好地处理撇号

sapply(lapply(strsplit(strings, ' '), gsub, pattern = '^([[:alnum:]]{1})', replace = '\\U\\1', perl = TRUE), paste,collapse = ' ')

快速搜索SO找到https://stackoverflow.com/a/6365349/1385941

这里已经有很好的答案了。下面是使用reports包中的一个方便函数的示例：

strings <- c("first phrase", "another phrase to convert",
    "and here's another one", "last-one")

CA(strings)

## > CA(strings)
## [1] "First Phrase"              "Another Phrase To Convert"
## [3] "And Here's Another One"    "Last-one"

虽然它没有大写一个，因为它没有意义这样做，为我的目的。

更新我管理的qdapRegex包中有TC（title case）函数，该函数可以实现真正的title case：

TC(strings)

## [[1]]
## [1] "First Phrase"
## 
## [[2]]
## [1] "Another Phrase to Convert"
## 
## [[3]]
## [1] "And Here's Another One"
## 
## [[4]]
## [1] "Last-One"

为了好玩，我再加一个：

topropper(strings)
[1] "First Phrase"              "Another Phrase To Convert" "And Here's Another One"   
[4] "Last-one"  

topropper <- function(x) {
  # Makes Proper Capitalization out of a string or collection of strings. 
  sapply(x, function(strn)
   { s <- strsplit(strn, "\\s")[[1]]
       paste0(toupper(substring(s, 1,1)), 
             tolower(substring(s, 2)),
             collapse=" ")}, USE.NAMES=FALSE)
}

下面是另一个基于stringr包的一行代码：

str_to_title(strings, locale = "en")

其中strings是字符串的向量。
Source

将任意大小写转换为任意其他大小写的最佳方法是使用r中的snakecase包。
只需使用包

library(snakecase)
strings = c("first phrase", "another phrase to convert",
        "and here's another one", "last-one")

to_title_case(strings)

## [1] "First Phrase"              "Another Phrase to Convert" 
## [3] "And Here s Another One"    "Last One"

继续编码！