如何基于R中的字符列级别创建子集?