R - 3.3 自定义函数—function:自己编程个性化处理数据