पहले नंबर पर केवल स्ट्रिंग को कैसे विभाजित करें

Question

तो मेरे पास सड़क के पते वाले डेटासेट हैं, वे बहुत अलग रूप से स्वरूपित हैं। उदाहरण के लिए:

d <- c("street1234", "Street 423", "Long Street 12-14", "Road 18A", "Road 12 - 15", "Road 1/2") 

इससे मैं दो कॉलम बनाना चाहता हूं। 1. एक्स: सड़क के पते और के साथ 2. वाई: नंबर + के साथ जो कुछ भी है। इस तरह:

X   Y 
Street  1234 
Street  423 
Long Street 12-14 
Road  18A 
Road  12 - 15 
Road  1/2 

अब तक मैं strsplit की कोशिश की और यहाँ कुछ इसी तरह के सवाल पीछा किया, उदाहरण के लिए है: strsplit(d, split = "(?<=[a-zA-Z])(?=[0-9])", perl = T))। मुझे सही नियमित अभिव्यक्ति नहीं मिल रही है।

किसी भी मदद की अत्यधिक सराहना की जाती है। आपका अग्रिम में ही बहुत धन्यवाद!

Answer 1

वहाँ पत्र और अंक के बीच खाली स्थान के हो सकता है, इसलिए lookarounds के बीच \s* (शून्य या अधिक खाली स्थान के प्रतीक) जोड़ें:

> strsplit(d, split = "(?<=[a-zA-Z])\\s*(?=[0-9])", perl = TRUE) 
[[1]] 
[1] "street" "1234" 

[[2]] 
[1] "Street" "423" 

[[3]] 
[1] "Long Street" "12-14"  

[[4]] 
[1] "Road" "18A" 

[[5]] 
[1] "Road" "12 - 15" 

[[6]] 
[1] "Road" "1/2" 

और आपको लगता है कि पर आधारित स्तंभ बनाना चाहते हैं, तो आप का लाभ उठाने सकता है separatetidyr से पैकेज:

> library(tidyr) 
> separate(data.frame(A = d), col = "A" , into = c("X", "Y"), sep = "(?<=[a-zA-Z])\\s*(?=[0-9])") 
      X  Y 
1  street 1234 
2  Street  423 
3 Long Street 12-14 
4  Road  18A 
5  Road 12 - 15 
6  Road  1/2 

Answer 2

एक गैर regex stringr से str_locate का उपयोग कर दृष्टिकोण में पहले अंक का पता लगाने की स्ट्रिंग और फिर उस स्थान के आधार पर विभाजित, यानी

library(stringr) 

ind <- str_locate(d, '[0-9]+')[,1] 
setNames(data.frame(do.call(rbind, Map(function(x, y) 
      trimws(substring(x, seq(1, nchar(x), y-1), seq(y-1, nchar(x), nchar(x)-y+1))), 
                  d, ind)))[,1:2]), c('X', 'Y')) 

#   X  Y 
#1  street 1234 
#2  Street  423 
#3 Long Street 12-14 
#4  Road  18A 
#5  Road 12 - 15 
#6  Road  1/2 

नोट है कि आप एक (हानिरहित) चेतावनी जो "Road 12 - 15" स्ट्रिंग में विभाजित जो [1] "Road" "12 - 15" ""

Answer 3

यह भी काम करेंगे देता है का परिणाम है प्राप्त करते हैं:

do.call(rbind,strsplit(sub('([[:alpha:]]+)\\s*([[:digit:]]+)', '\\1$\\2', d), split='\\$')) 
#  [,1]   [,2]  
#[1,] "street"  "1234" 
#[2,] "Street"  "423"  
#[3,] "Long Street" "12-14" 
#[4,] "Road"  "18A"  
#[5,] "Road"  "12 - 15" 
#[6,] "Road"  "1/2"  

Answer 4

हम base R

से sub साथ read.csv उपयोग कर सकते हैं

read.csv(text=sub("^([A-Za-z ]+)\\s*([0-9]+.*)", "\\1,\\2", d), 
     header=FALSE, col.names = c("X", "Y"), stringsAsFactors=FALSE) 
#    X  Y 
#1  street 1234 
#2  Street  423 
#3 Long Street 12-14 
#4  Road  18A 
#5  Road 12 - 15 
#6  Road  1/2