符合某个条件返回索引位置在R语言