r - 在 R 中将字符串转换为首字母缩略词的函数

Question

我有一个字符串“California Art Craft Painting Society”，我想在 R 中编写一个函数 x，它可以将任何字符串转换为首字母缩写词“CACPS”。我使用了以下代码:

acronym <- function(x){
  abbreviate(x)
}  

有没有办法使用 stringr 编写函数，例如先 strsplit 字符串，然后使用 strsub 提取每个单词的第一个字母(而不是使用缩写)？

Answer 1

这可能有用。它对前面没有分词的字符使用 str_remove_all，并删除所有空格。

library(stringr)

create_acronym <- function(x){
      str_remove_all(x , "(?<!\\b)\\w|\\s" ) 
    }