r - 使用 gsub 从名称列中提取中间名

Question

我想从包含中间名和名字的列中提取中间名。本质上，我想要第一个空格后的所有内容。第 2 行中的“Doe K”，但如果人只有名字，则没有条目（不包括第 4-6 行）。

数据如下：

nm <- read.table(text = "
             names
             1 'Jack Daniels'
             2 'John Doe K'
             3 'Kelly Susan H'
             4 'Kevin'
             5 'John'
             6 'William'")

代码：

for (i in 1:nrow(nm))
  nm[i,'middle_name'] <- gsub(".*? (.+)","\\1",nm[i, 'names'])

预期结果：

   names         middle_name
1: Jack Daniels  Daniels
2: John Doe K    Doe K
3: Kelly Susan H Susan H
4: Kevin         NA
5: John          NA
6: William       NA

标签： rregexgsub

Answer 1

> sub("\\w+\\b *", "", nm$names)
[1] "Daniels" "Doe K"   "Susan H" ""        ""        ""