r - 在第一个以大写字母开头的单词后添加逗号

Question

正如标题所说。我有一堆名字，我需要在第一个以大写字母开头的单词后添加一个逗号。

一个例子:

txt <- c( "de Van-Smith J", "van der Smith G.H.", "de Smith JW", "Smith JW")

结果应该是:

[1] "de Van-Smith, J" "van der Smith, G.H." "de Smith, JW" "Smith, JW"  

我一直在尝试使用 gsub() 和 stringr::str_replace()，但我对正则表达式感到吃力，如有任何建议，我们将不胜感激。

Answer 1

你可以使用-

sub("([A-Z][\\w-]+)", "\\1,", txt, perl = TRUE)

#[1] "de Van-Smith, J"   "van der Smith, G.H." "de Smith, JW"       "Smith, JW"

其中 ([A-Z][\\w-]+) 捕获以大写字母开头并具有 - 或后面任意数量的单词字符的单词.