R语言遍历所有组合的函数