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
}
以下结果为所需要！！
