[Rcode]ifelse函数：用平均值替代缺失值，或对数据不同水平分组