Split street address into street number and street name in r

Question

I want to split a street address into street name and street number in r.

My input data has a column that reads for example

    Street.Addresses

    205 Cape Road
    32 Albany Street 
    cnr Kempston/Durban Roads

I want to split the street number and street name into two separate columns, so that it reads:

    Street Number    Street Name
    205              Cape Road
    32               Albany Street
                     cnr Kempston/Durban Roads

Is it in anyway possible to split the numeric value from the non numeric entries in a factor/string in R?

Thank you

Have you tried: sub, gsub and strsplit? – FFI Apr 10 '14 at 12:35 — FFI, Apr 10 '14 at 12:35

score 3 · Accepted Answer · answered Apr 10 '14 at 12:33

3

you can try:

y <- lapply(strsplit(x, "(?<=\\d)\\b ", perl=T), function(x) if (length(x)<2) c("", x) else x)
y <- do.call(rbind, y)
colnames(y) <- c("Street Number", "Street Name")

hth

answered Apr 10 '14 at 12:33

droopy

2,788
1
14
12

score 3 · Answer 2 · answered Apr 10 '14 at 12:33

I'm sure that someone is going to come along with a cool regex solution with lookaheads and so on, but this might work for you:

X <- c("205 Cape Road", "32 Albany Street", "cnr Kempston/Durban Roads")
nonum <- grepl("^[^0-9]", X)
X[nonum] <- paste0(" \t", X[nonum])
X[!nonum] <- gsub("(^[0-9]+ )(.*)", "\\1\t\\2", X[!nonum])
read.delim(text = X, header = FALSE)
#    V1                        V2
# 1 205                 Cape Road
# 2  32             Albany Street
# 3  NA cnr Kempston/Durban Roads

Or simply: `X <- gsub("^([0-9]+ +)?(.*)", "\\1\t\\2", X)` – krlmlr Apr 10 '14 at 13:33 — krlmlr, Apr 10 '14 at 13:33

score 1 · Answer 3 · answered Apr 10 '14 at 13:26

Here is another way:

df <- data.frame (Street.Addresses = c ("205 Cape Road", "32 Albany Street", "cnr Kempston/Durban Roads"),
                 stringsAsFactors = F)

new_df <- data.frame ("Street.Number" = character(), 
                     "Street.Name" = character(), 
                     stringsAsFactors = F)
for (i in 1:nrow (df)) {

  new_df [i,"Street.Number"] <- unlist(strsplit (df[["Street.Addresses"]], " ")[i])[1]
  new_df [i,"Street.Name"] <- paste (unlist(strsplit (df[["Street.Addresses"]], " ")[i])[-1], collapse = " ")

}

> new_df
  Street.Number           Street.Name
1           205             Cape Road
2            32         Albany Street
3           cnr Kempston/Durban Roads

that does not work for the 3rd address "cnr" is part of the street name — droopy, Apr 10 '14 at 13:51
Oh... my mistake. I understood it in different way. Now your answer makes sense... I will delete my version. Sorry — Andriy T., Apr 10 '14 at 15:09

Split street address into street number and street name in r

3 Answers3