如何基于R中的向量值对数据帧进行子集化?