2020-02-14处理数据时删除一行中0的格式大于一半的行

sum函数 是求和

但使用sum（条件），就是计算复合条件的数据个数，也就与length一样了

he<-list()

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

he[[i]]<-(sum(data[i,]==0))/ncol(data)

}

he<-t(as.data.frame(he))

data=data[he<0.5,]