Extracting Data between Parentheses in R

Question

Raw Data:

550 LEE DR BATON ROUGE, LA 70802 (30.399995, -91.15418)
2810 SCENIC HW BATON ROUGE, LA 70805 (30.473461, -91.168378)
11201 MEAD RD BATON ROUGE, LA
550 LEE DR BATON ROUGE, LA 70802 (30.399995, -91.15418)
2810 SCENIC HW BATON ROUGE, LA 70805 (30.473461, -91.168378)
11201 MEAD RD BATON ROUGE, LA

For R, I am trying to set up a code that will give me the following geolocation results (remember I don't want the NA records gone but to just leave it blank):

(30.399995, -91.15418)
(30.473461, -91.168378)
NA    
(30.399995, -91.15418)    
(30.473461, -91.168378)    
NA

I tried:

ag <- data.frame(sub(".*\\((.*)\\).*", "\\1", 
geolocation$test.Geolocation, perl=TRUE))
ag

but to no avail. I appreciate the help.

score 0 · Accepted Answer · edited Jan 18 '18 at 07:36

0

Try:

fun <- function(x){
  res <- regmatches(x, gregexpr("\\(.*\\)", x))[[1]]
  ifelse(length(res) == 0, NA_character_, res)
}

unlist(sapply(geolocation$test.Geolocation, fun))

edited Jan 18 '18 at 07:36

Axeman

29,327
7
77
89

answered Jan 17 '18 at 21:09

A. Blizzard

241
2
13

Thank you very much. That's exactly what I needed. I appreciate it. – Math Expert Jan 17 '18 at 23:14

Extracting Data between Parentheses in R

1 Answers1