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

1、给变量赋值

[plain] view plain copy

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

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

[plain] view plain copy

1. for (i in 1:3){
2. assign(paste("a", i, sep = ""), i:10)
3. }
4. ls()
5. [1] "a1" "a2" "a3" "i"
6. > a1
7. [1]  1  2  3  4  5  6  7  8  9 10
8. > a2
9. [1]  2  3  4  5  6  7  8  9 10

3、get和assign联合用法

[plain] view plain copy

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