Сплит-строки на третьем пробеле справа

Question

Я хотел бы разделить ряд строк на третьем пробеле справа. Количество строк пробелов варьируется между строками, но каждая строка имеет по крайней мере три пробела. Вот две примерные строки.

strings <- c('abca eagh ijkl mnop', 'dd1 ss j, ll bb aa') 

Я хотел бы:

[1] 'abca', 'eagh ijkl mnop' 
[2] 'dd1 ss j,', 'll bb aa' 

Ближайший я смог прийти в:

strsplit(strings, split = "(?<=\\S)(?=\\s(.*)\\s(.*)\\s(.*)$)", perl = TRUE) 

, которая возвращает:

[[1]] 
[1] "abca"   " eagh"  " ijkl mnop" 

[[2]] 
[1] "dd1"  " ss"  " j,"  " ll bb aa" 

Я продолжаю думать ответ должно быть примерно так:

strsplit(strings, split = "(?<=\\S\\s(.*)\\s(.*)\\s(.*)$)(?=\\s(.*)\\s(.*)\\s(.*)$)", perl = TRUE) 

Однако, это возвращает ошибку. Спасибо за любой совет. Я предпочитаю решение в базе, надеюсь, тот, который использует регулярные выражения.

Answer 1

Попробуйте выражение:

(?=(?>\\s\\S*){3}$)\\s 

Edit: Используйте это выражение, если вы хотите последовательные пробельные символы, которые будут рассматриваться как «один» пробел:

(?=(?>\\s+\\S*){3}$)\\s 

Стоит отметить, что причину, по которой выражение вызывало ошибку, скорее всего, потому что большинство движков регулярных выражений не допускают переменные ширины lookbehinds. В вашем примере это будет квант * в lookbehind, нарушающий правила.

Получил это! Извините, я не был на 100% от того, как работает функция strsplit. Попробуйте это:

strsplit(strings, split = "(?=(?>\\s+\\S*){3}$)\\s", perl = TRUE) 

Вот пример вывод:

> strings <- c('abca eagh ijkl mnop', 'dd1 ss j, ll bb aa') 
> strsplit(strings, split = "(?=(?>\\s+\\S*){3}$)\\s", perl = TRUE) 
[[1]] 
[1] "abca"    "eagh ijkl mnop" 

[[2]] 
[1] "dd1 ss j," "ll bb aa" 

Answer 2

Как об использовании следующего регулярного выражения: (\S*\s*\S*\s*\S*\s*)(.*)? См. http://regex101.com/r/lI7aA9