R技巧[45]：R语言循环语句

       

在R语言中，可以使用for、while 以及repeat-break实现循环语句。循环语句可以简单依据计数操作（当计数器达到了设定的循环次数时自动停止）或者某一向量来进行轮询。

1．for循环语句

一组用户在网上的页面浏览量（PV）如表2-26所示。

表2-26 数据集
用户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数据处理为以用户进行分类的数据。

表2-27 方式类比
方式一 方式二
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 in pv语句）。 知道循环次数时，可以设置遍历次数（i in 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语句，执行后只会跳出本次循环，而不会跳出整个循环语句。