Extract text name from String

Question

I have a column with value as

\"RED LOBSTER CA04606\" or \"Red Lobster NewYork WY245\" n so on

How can I extract just the name Red Lobster or Red Lobster N

Answer 1

Using a combination of strsplit and grepl

 sapply(strsplit(x, ' '), function(x) paste(x[!grepl('[[:digit:]]',x)], collapse = ' '))

This splits by space, then tests whether there are digits splitted vector, and only pastes together those without numbers.