разделить вектор строк с частичным совпадением

Question

Если у меня есть список некоторых элементов:

x = c('abc', 'bbc', 'cd', 'hj', 'aa', 'zz', 'd9', 'jk')

Я бы хотел разделить его каждый раз, когда есть 'a' для создания вложенного списка:

[1][[1]] 'abc', 'bbc', 'cd', 'hj'
[2][[1]] 'aa', 'zz', 'd9', 'jk'

Я пробовал

split(x, 'a') 

, но split не ищет частичных совпадений.

Answer 1

Другое базовое решение R с использованием split + findInterval (код не такой короткий, как ответ @ akrun )

split(x,findInterval(seq_along(x),grep("a",x)))

, такой что

> split(x,findInterval(seq_along(x),grep("a",x)))
$`1`
[1] "abc" "bbc" "cd"  "hj" 

$`2`
[1] "aa" "zz" "d9" "jk"

Answer 2

Другая base R возможность может быть:

split(x, cumsum(nchar(sub("a", "", x, fixed = TRUE)) - nchar(x) != 0))

$`1`
[1] "abc" "bbc" "cd"  "hj" 

$`2`
[1] "aa" "zz" "d9" "jk"

Answer 3

Мы можем создать группу, сопоставив подстроку 'a' с grepl логическому вектору, а затем преобразовать в число c, получив кумулятивную сумму для отдельных групп, и использовать ее в split

split(x, cumsum(grepl('a', x)))
#$`1`
#[1] "abc" "bbc" "cd"  "hj" 

#$`2`
#[1] "aa" "zz" "d9" "jk"