cc<-c(3,2,3,2,2,NA,3,3,3,3,2,3,2,2,2,3,3,2,2,3,3,3,2,2,2)
dd<-character(length(cc))
for(i in 1:length(cc)){ifelse(cc==2,dd<-"Mid",dd<-"Low")}
dd
结果如下:
[1] "Low" "Mid" "Low" "Mid" "Mid" "" "Low" "Low" "Low" "Low" "Mid" "Low"
[13] "Mid" "Mid" "Mid" "Low" "Low" "Mid" "Mid" "Low" "Low" "Low" "Mid" "Mid"
[25] "Mid"