r - 将 "firstname lastname"更改为 "lastname, firstname"

Question

我有一个名字列表，我需要将这些名字从“名字姓氏”转换为“姓氏，名字”。

Barack Obama
Donald J. Trump
J. Edgar Hoover
Beyonce Knowles-Carter
Sting

我使用了 G. Grothendieck 对 "last name, first name" -> "first name last name" in serialized strings 的回答前往 gsub("([^ ]*) ([^ ]*)", "\\2, \\1", str)这给了我 -

Obama, Barack
J., DonaldTrump, 
Edgar, J.Hoover, 
Knowles-Carter, Beyonce
Sting

我想得到什么——

Obama, Barack
Trump, Donald J. 
Hoover, J. Edgar
Knowles-Carter, Beyonce
Sting

我想要一个正则表达式的答案。

Answer 1

有一个神秘的函数叫做 person专为保存名称而设计的转换函数 as.person它为你和一个 format 做这个解析之后使用它的方法(创造性地使用大括号参数)。它甚至适用于复杂的姓氏(例如 van Nistelrooy)，但单一名字的结果并不令人满意。它可以通过快速结束修复 sub尽管。

x <- c("Barack Obama","Donald J. Trump","J. Edgar Hoover","Beyonce Knowles-Carter","Sting", "Ruud van Nistelrooy", "John von Neumann")
y <- as.person(x)

format(y, include=c("family","given"), braces=list(family=c("",",")))
[1] "Obama, Barack"           "Trump, Donald J."       
[3] "Hoover, J. Edgar"        "Knowles-Carter, Beyonce"
[5] "Sting,"                  "van Nistelrooy, Ruud"   
[7] "von Neumann, John"

## fix for single names - curse you Sting!

sub(",$", "", format(y, include=c("family","given"), braces=list(family=c("",","))))
[1] "Obama, Barack"           "Trump, Donald J."       
[3] "Hoover, J. Edgar"        "Knowles-Carter, Beyonce"
[5] "Sting"                   "van Nistelrooy, Ruud"   
[7] "von Neumann, John"