按R中的最后一个空格拆分字符串

Question

我有一个带有多个空格的字符串的向量.我想将它拆分为由最终空格分割的两个向量.例如:

vec <- c('This is one', 'And another', 'And one more again')

应该成为

vec1 = c('This is', 'And', 'And one more again')
vec2 = c('one', 'another', 'again')

有没有快速简便的方法来做到这一点？在使用gsub和regex之前我做过类似的事情,并设法使用以下内容获取第二个向量

vec2 <- gsub(".* ", "", vec)

但无法弄清楚如何获得vec1.

提前致谢

Answer 1

以下是使用前瞻断言的一种方法:

do.call(rbind, strsplit(vec, ' (?=[^ ]+$)', perl=TRUE))
#      [,1]           [,2]     
# [1,] "This is"      "one"    
# [2,] "And"          "another"
# [3,] "And one more" "again"