r - 从一串单词中获取首字母

Question

我拥有的:

names <- c("First Last", "First M Last", "First M. Last", "first Last", "first lAst")

我想要的是:

"FL" "FML" "FML" "FL" "FL"

我试过的:

paste(substr(strsplit(names, " ")[[1]], 1, 1), collapse="")

这给出了什么:

FL

我怎样才能为所有元素获得这个？

Answer 1

> names <- c("First Last", "First M Last", "First M. Last", 
             "first Last", "first lAst")

看起来您希望结果全部为大写？如果是这样，我们可以使用 toupper内 sapply使用与您尝试过的代码类似的代码。

> s <- strsplit(names, " ")
> sapply(s, function(x){
      toupper(paste(substring(x, 1, 1), collapse = ""))
  })
# [1] "FL"  "FML" "FML" "FL"  "FL"