从列表中选择最终项目

Question

我有一个名称列表，并希望提取每个人的姓氏。在复杂的是，一些条目中间名，一些有昵称，等这里是我的榜样，建设关中this question，但改变格式，以反映我的情况：

df <- c("bob smith","mary ann d. jane","jose chung","michael mike marx","charlie m. ivan") 

为了得到第一个名字，我使用以下内容：

firstnames <- sapply(strsplit(df, " "), '[',1) 

但是，有没有什么办法让元素处于“最终”位置？提前致谢。

Answer 1

> lastnames <- sapply(strsplit(df, " "), tail, 1) 
> 
> lastnames 
[1] "smith" "jane" "chung" "marx" "ivan"