Bölünmüş sütun

Question

YARQ (Henüz başka regex soru).

Nasıl, iki sütuna aşağıdaki bölme Son sütun cümledeki son sözü içerir ve ilk sütun her şeyi içerir emin olmaktır gider. Ben ile sonuna kadar

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

Böyle: "kelimeleri" varsayarsak

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

Answer 1

Bu, ileriye bakmak için bir işe benziyor. Boşluk olmayan şeyler izleyen alanları buluruz.

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

Veya sonuçlanan sapply

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

kullanarak alternatif bir uygulama:

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

(bu durumda son söz gerekirse bir veya harfler \\w veya rakam \\d, daha fazla sınıfları ekleyebilir alfanümerik olduğunu edilir):

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

Çıktı:

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

Answer 3

İşte strsplit kullanarak gitmek var

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

Bu olmayabilir Tam olarak sizin için olabilir, ama durumda herkes piton yılında bunun nasıl merak ediyorum:

: col1 böyle bir dizeye yapabilir bir liste olarak basılmış olsun edeceğini

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

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

Not

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