如何根据数字和分类列对 R 数据框进行子集化?