一 处理缺失值
dta$PM2.5 <- ifelse(is.na(dta$PM2.5), mean(dta$PM2.5, na.rm=TRUE), dta$PM2.5)
#把NA值用均值替代
data$x <- ifelse(is.na(data$x), 0, x) #NA值用0替换
二 对数据分组
dta$Level<- ifelse(dta$PM2.5<=35, '优良',
ifelse(dta$PM2.5<=75, '轻度污染',
ifelse(dta$PM2.5<=150, '中度污染', '重度污染')))