assign函数在循环时候，给变量赋值，算是比较方便

1、给变量赋值

 

for (i in 1:(length(rowSeq)-1)){
  assign(paste("nginx_server_fields7_", i, sep = ""), nginx_server_fields7[(rowSeq[(i-1)+1]):(rowSeq[i+1]), ])
}

 

2、通过for循环给变量a1、a2、a3赋值

 

for (i in 1:3){
    assign(paste("a", i, sep = ""), i:10)
}

ls()
[1] "a1" "a2" "a3" "i"

> a1
 [1]  1  2  3  4  5  6  7  8  9 10
> a2
[1]  2  3  4  5  6  7  8  9 10

 

3、get和assign联合用法

 

               rm(list = ls())  #这个命令千万慎重使用          for(i in 1:3){               assign(paste("p", i, sep=""), i)               tmp <- get(paste("p", i, sep=""))               print(tmp)           }          [1] 1          [1] 2          [1] 3           ls()          [1] "i"   "p1"  "p2"  "p3"  "tmp"
rm(list = ls())  #这个命令千万慎重使用
for(i in 1:3){
     assign(paste("p", i, sep=""), i)
     tmp <- get(paste("p", i, sep=""))
     print(tmp)
 }
[1] 1
[1] 2
[1] 3
 ls()
[1] "i"   "p1"  "p2"  "p3"  "tmp"