Split Spalte nach dem letzten Wort im Satz

Question

YARQ (Noch eine Regex Frage).

Wie würde ich das folgende in zwei Spalten aufteilen, sicherstellen, dass die letzte Spalte das letzte Wort im Satz enthält und die erste Spalte alles andere enthält.

x <- c("This is a test", 
     "Testing 1,2,3 Hello", 
     "Foo Bar", 
     "Random 214274(%*(^(* Sample", 
     "Some Hyphenated-Thing" 
     ) 

so, dass ich am Ende mit:

col1       col2 
this is a     test 
Testing 1,2,3    Hello 
Foo       Bar 
Random 214274(%*(^(*   Sample 
Some       Hyphenated-Thing 

Answer 1

Das sieht nach einem Job für Look Ahead aus. Wir werden Räume finden, denen Dinge folgen, die keine Räume sind.

split <- strsplit(x, " (?=[^ ]+$)", perl=TRUE) 
matrix(unlist(split), ncol=2, byrow=TRUE) 

    [,1]     [,2]    
[1,] "This is a"   "test"    
[2,] "Testing 1,2,3"  "Hello"   
[3,] "Foo"     "Bar"    
[4,] "Random 214274(%*(^(*" "Sample"   
[5,] "Some"     "Hyphenated-Thing" 

Answer 2

Unter der Annahme, „Worte“ alphanumerisches ist (das letzte Wort ist in diesem Fall eine oder Buchstaben \\w oder Ziffern \\d, können Sie weitere Klassen hinzufügen, wenn nötig):

col_one = gsub("(.*)(\\b[[\\w\\d]+)$", "\\1", x, perl=TRUE) 
col_two = gsub("(.*)(\\b[[\\w\\d]+)$", "\\2", x, perl=TRUE) 

Ausgang:

> col_one 
[1] "This is a "   "Testing 1,2,3 "  "Foo "     
[4] "Random 214274(%*(^(* " 
> col_two 
[1] "test" "Hello" "Bar" "Sample" 

Answer 3

hier ein Gos mit strsplit:

do.call(rbind, 
    lapply(
    strsplit(x," "), 
    function(y) 
     cbind(paste(head(y,length(y)-1),collapse=" "),tail(y,1)) 
    ) 
) 

Oder eine alternative Implementierung mit sapply

t(
    sapply(
    strsplit(x," "), 
    function(y) cbind(paste(head(y,length(y)-1),collapse=" "),tail(y,1)) 
) 
) 

in Resultierende:

 [,1]     [,2]    
[1,] "This is a"   "test"    
[2,] "Testing 1,2,3"  "Hello"   
[3,] "Foo"     "Bar"    
[4,] "Random 214274(%*(^(*" "Sample"   
[5,] "Some"     "Hyphenated-Thing" 

Answer 4

Dies könnte nicht genau für Sie sein, aber falls jemand frage mich , wie diese in Python zu tun:

#col1: 
print line.split(" ")[:-1] 

#col2: 
print line.split(" ")[-1] 

Beachten Sie, dass col1 als Liste ausgedruckt werden erhalten, die Sie in eine Zeichenfolge wie folgt machen:

#col1: 
print " ".join(line.split(" ")[:-1])