character classes code snippets in r

regex return string after the last underscore in r