【R语言温故而知新】使用for、while 以及repeat-break实现循环语句

在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语句，执行后只会跳出本次循环，而不会跳出整个循环语句。