在R语言中,可以使用for、while 以及repeat-break实现循环语句。循环语句可以简单依据计数操作(当计数器达到了设定的循环次数时自动停止)或者某一向量来进行轮询。
1.for循环语句
一组用户在网上的页面浏览量(PV)如表
用户ID 页面浏览量PV 用户ID 页面浏览量PV 用户ID 页面浏览量PV 1 1 6 ?1 11 1 2 1 7 15 12 2 3 2 8 ?7 13 3 4 3 9 18 14 1 5 1 10 ?1 15 1
如果要对用户进行分类,如规定每日页面浏览量PV为1~5的是初级用户,6~15的为中级用户,PV在16页以上的为高级用户,该如何操作?采用表2-27中的两种方式,即可把PV数据处理为以用户进行分类的数据。
方式一 方式二 pv<-c(1,1,2,3,1,1,15,7,18,1,1,2,3,1,1) result<- "" m<-1 for(i in pv){ if(i<=5){ result[m]<- "初级用户"; } else if(i<=15){ result[m]<- "中级用户"; } else{ result[m]<- "高级用户"; } m<-m 1 } pv<-c(1,1,2,3,1,1,15,7,18,1,1,2,3,1,1) result<-"" for(i in 1:length(pv)){ if(pv[i]<=5){ result[i]<- "初级用户"; } else if(pv[i]<=15){ result[i]<- "中级用户"; } else{ result[i]<- "高级用户"; } }
不知道循环次数时,可以直接遍历相关向量(i inpv语句)。 知道循环次数时,可以设置遍历次数(iin 1:length(pv)语句)
2.while循环语句
在介绍while循环语句时,同样使用上面的数据为例进行说明,如下所示: pv<-c(1,1,2,3,1,1,15,7,18,1,1,2,3,1,1) i<-1 result<-"" while(i<length(pv)){ if(pv[i]<=5){ result[i]<- "初级用户"; } else if(pv[i]<=15){ result[i]<- "中级用户"; } else{ result[i]<- "高级用户"; } i<-i 1 }
由此可以看出,for实际上是通过遍历一个向量的方式来控制循环次数,while则是直接设置循环的范围。for的应用基本可以覆盖while,所以笔者更加倾向于使用for循环语句。
3.repeat-break循环语句
repeat是无限循环语句,并且会在达到循环条件后使用break语句直接跳出循环。例如: pv<-c(1,1,2,3,1,1,15,7,18,1,1,2,3,1,1) i<-1 result<-"" repeat{ if(i>length(pv)){ #设置循环结束时的跳出语句 break } if(pv[i]<=5){ result[i]<- "初级用户"; } else if(pv[i]<=15){ result[i]<- "中级用户"; } else{ result[i]<- "高级用户"; } i<-i 1 }
实例中的break也叫跳出循环命令,执行后将直接跳出循环语句。R语言还提供了一个next语句,执行后只会跳出本次循环,而不会跳出整个循环语句。