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