如何使用大于或小于列的某个值在R中创建矩阵的子集?