如何根据R中特定列中的值对矩阵进行子集化?