r语言提取满足条件的数据