基于R语言的航空公司客户价值分析

参考资料：https://www.cnblogs.com/p1ng/p/12886773.html

数据来源：https://github.com/zhanghuiying2000/-R-

getwd()

setwd("D:\\data")

airdata <- read.csv('air_data.csv',stringsAsFactors = FALSE)

airdata

#1数据清洗

#列表显示缺失值

table(airdata$GENDER)

sum(is.na(airdata))

#mice包中的md.pattern（）函数可以生成一个以矩阵或数据框形式展示缺失值模式的表格

library(mice)

md.pattern(airdata[15:20])

 

md.pattern(subset(airdata, select=c(SUM_YR_1,SUM_YR_2)))

#图形探究缺失数据