Как расколоть и сохранить элементы с помощью strsplit?

Question

Что такое функция strsplit в R, соответствует и удаляет заданное регулярное выражение, чтобы разделить остальную часть строки на векторы.

>strsplit("abc123def", "[0-9]+") 
[[1]] 
[1] "abc" "" "" "def" 

Но как я должен разделять строку таким же образом, используя регулярное выражение, но также сохраняя совпадения? Мне нужно что-то вроде следующего.

>FUNCTION("abc123def", "[0-9]+") 
[[1]] 
[1] "abc" "123" "def" 

Использование strapply («abc123def», «[0-9] + | [AZ] +») работает здесь, но что, если остальная часть строки, кроме матчей не могут быть захвачены регулярным выражением ?

Answer 1

По существу, мне кажется, что вы хотите не разделить на [0-9]+, а разделить на переход между [0-9]+ и всем остальным. В вашей строке этот переход не существует. Для того, чтобы вставить его, можно предварительно обработать с gsub и задним реферированием:

test <- "abc123def" 
strsplit(gsub("([0-9]+)","~\\1~",test), "~") 

[[1]] 
[1] "abc" "123" "def" 

Answer 2

Вы можете использовать strapply из gsubfn пакета.

test <- "abc123def" 
strapply(X=test, 
     pattern="([^[:digit:]]*)(\\d+)(.+)", 
     FUN=c, 
     simplify=FALSE) 

[[1]] 
[1] "abc" "123" "def" 

Answer 3

Вы можете использовать утверждения поиска.

> test <- "abc123def" 
> strsplit(test, "(?<=\\D)(?=\\d)|(?<=\\d)(?=\\D)", perl=T) 
[[1]] 
[1] "abc" "123" "def"