R语言正则替换某个字符后面所有字符串