r语言生成一个构成比为百分百的函数