r - gsub First-name Last-name 到 FL

Question

我想将一系列名称更改为简单的首字母，

假设我有两个名字 c("Ben Franklin", "Millard Fillmore") 我想将它们子集化为 c("BF", "MF")，我已经阅读了帮助文件 ?gsub 但我无法弄明白。这里有人可以帮助我吗？

Answer 1

这将删除不是大写字母的所有内容:

> s <- c("Ben Franklin", "Millard Fillmore")
> gsub("[^A-Z]", "", s)
[1] "BF" "MF"

如果您根据评论有诸如“Allan McCormick”之类的字符串，则这是一个更复杂的正则表达式:

s <- c("Ben Franklin", "Millard Fillmore", "Allen McCormick")
gsub("(.)\\S* *", "\\1", s)
[1] "BF" "MF" "AM"