वाक्य में अंतिम शब्द द्वारा कॉलम

Question

याएआरक्यू (फिर भी एक और रेगेक्स प्रश्न)।

मैं निम्नलिखित कॉलम को दो कॉलम में विभाजित करने के बारे में कैसे जाउंगा, यह सुनिश्चित कर लें कि अंतिम कॉलम में वाक्य में अंतिम शब्द है और पहले कॉलम में सब कुछ शामिल है।

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

"शब्द" यह मानते हुए कर रहे हैं अल्फान्यूमेरिक (इस मामले में अंतिम शब्द एक या पत्र \\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

यह नहीं हो सकता है वास्तव में आप के लिए हो सकता है, लेकिन इस मामले में किसी को भी सोच रहा था कि कैसे अजगर में यह करने के लिए:

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

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

ध्यान दें कि col1 एक सूची है, जो आपको इस तरह की एक स्ट्रिंग में कर सकते हैं के रूप में मुद्रित हो जाएगी:

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