mean(!is.na(mat))可以计算数据完整度(没有缺失值的)

mean(!is.na(mat))>0.9,90%完整可以使用

# 缺失值的位置研究
as.vector(attributes(na.omit(mat))$na.action)

which(rowSums(is.na(mat))!=0)

which(complete.cases(mat)==F)

# 缺失数据的图形可视化VIM包

library(VIM)

aggr(mat,numbers=T,prop= F)

matrixplot(mat)

# 相关性探索

mat

mat_NA<-mat[,which(complete.cases(t(mat))==F)]
mat_NA<-abs(is.na(mat_NA))
cor(mat_NA)