如何在R数据帧中为因子水平创建子集?