R语言行、列求和处理NA问题

MM<-data.frame(x1=c(NA,1,2,4,4,NA,NA),

x2=c(NA,NA,2,4,4,1,NA))

数据结构如下：

对MM行求和，发现凡是有缺失值的地方均为缺失值，比如2、6行，但是我想保留其中的数字

对命令进行na.rm=T进行处理，发现NA变成了0，也不满足要求，只能编辑函数进行处理

col_sum=function(data){

  t_data=data

  for(i in 1:ncol(data)){

    t_data[,i]=ifelse(is.na(data[,i]),0,1)

  }

  m=apply(data,1,sum,na.rm=T)

  m=ifelse(apply(t_data,1,sum)==0,NA,m)

  m

}

以下结果为所需要！！