R将文本字符串拆分为最后一个和第一个元素

Question

我正在寻求帮助，如何将复杂名称列拆分为 2 列，分别表示名字和姓氏。

 df <- data.frame( PREFIX=c("A_B","A_C","A_D","B_A","A_B_C","B_D_E","C_B_A","B_A"),
         VALUE=c(1,2,3,4,5,6,7,8) )

下面生成了任务的第一部分，但是当我对剩余的字符串有不同的模式时，我无法弄清楚如何选择最后一个元素

 # split PREFIX into new columns
 df$name1 = as.character(lapply(strsplit(as.character(df$PREFIX), split="_"), "[", 1))

Answer 1

您可以使用 tail获取最后一个元素:

df$name2 = as.character(lapply(strsplit(as.character(df$PREFIX), split="_"),
                        tail, n=1))
df
#   PREFIX VALUE name1 name2
# 1    A_B     1     A     B
# 2    A_C     2     A     C
# 3    A_D     3     A     D
# 4    B_A     4     B     A
# 5  A_B_C     5     A     C
# 6  B_D_E     6     B     E
# 7  C_B_A     7     C     A
# 8    B_A     8     B     A