R Remove String Before Character Generator