Address File

address file

library(data.table)

sdata <- fread("address_data.csv")
head(sdata)

setnames(sdata,"x","address")

# some cleaning
sdata$pincodes := unlist(regmatches(address, gregexpr("(\\d+){6}",sdata$address)))]
sdata$address := gsub(pattern = "(\\d+){6}",replacement = "", x = sdata$address)]
sdata$address := unlist(lapply(sdata$address, function(x) gsub("[[:cntrl:]]", "", x)))]
sdata$address := lapply(strsplit(sdata$address, split = " "), function(x) x[nchar(x) > 2])])

# as required
new_frame <- data.frame(address = unlist(sdata$address), pincodes = rep(unlist(sdata$pincodes), lapply(sdata$address, length)))