R语言有缺失值的数据如何求平均数