R语言 -- 如何将数据中的空值（NA）替换为所在列的均值

白嫖它不香吗

a=1:1000
a[sample(a,100)]=NA
dim(a)=c(20,50)
a
# 按照列，替换每一列的NA值为该列的平均值
b=apply(a,2,function(x){
  x[is.na(x)]=mean(x,na.rm = T)
  return(x)
})

来源：生信技能树 -- 学徒讨论-在数据框里面使用每列的平均值替换NA