如何在R中缩写字符串

Question

我需要他们的第一个字符缩写部门名称，因此strDept="Department of Justice"成为strDeptAbbr = "DoJ".

如何使用来缩写字符串stringr？
谢谢

Answer 1

使用base R，您可以执行以下操作：

abbreviate("Department of Justice", 1, named = FALSE)

[1] "DoJ"

Answer 2

您可以使用：

library(stringr)
x="Department of Justice"
new_list=strsplit(x, " ")
str_sub(as.list(new_list[[1]]),1,1)

我认为@tmfmnk的先前答案要好得多。

编辑：

正如@Lyngbakr指出的那样，以下代码将产生请求的最终结果：

paste(str_sub(as.list(new_list[[1]]),1,1), collapse = "")