我需要将数据帧从字符转换为整数

Question

我在数据框中用零替换了NA s。这是我的代码

  na.zero <- function(x){
    x[is.na(x)]<-0
    return(x)
   }
   X=apply(MMD,2,na.zero)

现在我想删除数据框中列中超过90％的列的列。这是我的代码：

MMD=X[,-(which(apply(X,2,mean)<.1))]

我收到错误，因为使用该函数会将所有值更改为字符。 如何将数据帧再次转换为整数值？