如何创建具有特定列完整案例的R数据帧的子集?