因为环境的限制，R上处理本身自带有的包，还有以下包，其他扩展包没有的情况下：

想要对某列缺失值填补该列的平均值；
比如数据框dt，
a<-c(1,2,3)
b<-c(1,NA,NA)
c<-c(2,NA,4)
d<-data.frame(a,b,c)
d
  a b c
  1 1 2
  2 NA NA
  3 NA 4
问题：想要将c列的NA值用c列的平均值代替；b列的用b列平均值代替；怎么做？
如果用：
dt[is.na(dt)]<-mean(dt$列名，na.rm=T）只能用某列的平均值代替所有的NA，这样是不准确的？在已有的情况下有没有办法？