R：在apply函数中赋值

Question

我试图通过应用函数来做错误的估算。目前我使用以下方式：

 data <- sapply(data,function(x) 
         replace(x,list=is.na(x) & class(x) == "numeric", values=mean(x,na.rm=T)))

但这不是很方便，因为我需要创建一个返回值才能使它工作。有没有办法在apply函数中赋值？

理想的方式是：

 sapply(data,function(x) if(class(x) == "numeric") x[is.na(x)] <- =mean(x,na.rm=T)))