如何在R中的特殊字符后删除部分字符串?