一 处理缺失值

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, '中度污染', '重度污染')))





更多推荐

[Rcode]ifelse函数：用平均值替代缺失值,或对数据不同水平分组