MM<-data.frame(x1=c(NA,1,2,4,4,NA,NA),
x2=c(NA,NA,2,4,4,1,NA))
數(shù)據(jù)結(jié)構(gòu)如下：
對MM行求和，發(fā)現(xiàn)凡是有缺失值的地方均為缺失值，比如2、6行，但是我想保留其中的數(shù)字
對命令進(jìn)行na.rm=T進(jìn)行處理，發(fā)現(xiàn)NA變成了0，也不滿足要求，只能編輯函數(shù)進(jìn)行處理
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
}
以下結(jié)果為所需要！！
