将NA值更改为表示返回Null数据帧的函数

Question

df <- data.frame(a= c(5,6,2,NA,8,NA,1,5,NA,9,NA,0,2,5,NA,8),b= c(5,2,2,1,NA,NA,11,5,1,NA,9,NA,9,2,NA,NA), d= c(2,6,NA,NA,11,NA,1,2,NA,9,4,0,2,5,6,NA))

missing <- function(data){
  for(i in 1:ncol(data)){
    data[is.na(data[,i]), i] <- mean(data[,i], na.rm = TRUE)
  }
}

> df <- missing(df)
> df
NULL

不确定我做错了什么

data[is.na(data[,i]), i] <- mean(data[,i], na.rm = TRUE)

这个语句本身就像预期的那样，但是当我把它放在一个函数中时，所有这一切都使我的数据帧为空