最後の文章で列を分割する

Question

YARQ（さらに別の正規表現質問）。

次の2つの列に分割すると、最後の列には文の最後の単語が含まれ、最初の列にはその他すべてが含まれていることを確認します。

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

私はで終わるような「言葉」を仮定し

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

Answer 1

これは先を見越す仕事のようです。私たちは、スペースではなく、スペースでないものを見つけるでしょう。

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

かで結果のsapply

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

を使用して代替実装：

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

この場合の最後の言葉は、1つまたは文字\\wまたは数字\\dです（英数字あり、必要であれば、あなたはより多くのクラスを追加することができます）：

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

出力：

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

Answer 3

はここstrsplitを使用して、外出先だ

 [,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

これがない場合がありますまさにあなたのためではなく、場合には、誰のpythonでこれを行う方法をを思っていた：

：COL1は、あなたがこのような文字列の中に作ることができるリストとして印刷されますことを

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

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

注

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