Tách cột theo từ cuối cùng trong câu

Question

YARQ (Còn một câu hỏi regex khác).

Làm cách nào để chia nhỏ phần sau thành hai cột, đảm bảo cột cuối cùng chứa từ cuối cùng trong câu và cột đầu tiên chứa mọi thứ khác.

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

như vậy mà tôi kết thúc với:

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

Answer 1

Điều này trông giống như một công việc để nhìn về phía trước. Chúng tôi sẽ tìm thấy không gian theo sau là những thứ không phải là không gian.

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

Giả sử "chữ" được chữ và số (từ cuối cùng trong trường hợp này là một hoặc chữ \\w hoặc chữ số \\d, bạn có thể thêm các lớp học nếu cần thiết):

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

Output:

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

Answer 3

Dưới đây là một di chuyển bằng strsplit:

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

Hoặc một thực hiện thay thế sử dụng sapply

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

Hệ quả là:

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

này có thể không chính xác được cho bạn, nhưng trong trường hợp bất cứ ai đã tự hỏi làm thế nào để làm điều này trong python:

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

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

Lưu ý rằng col1 sẽ được in như một danh sách mà bạn có thể làm thành một chuỗi như thế này:

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