R 语言assign 和get 函数用法

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.   
5. ls()  
6. [1] "a1" "a2" "a3" "i"  
7.   
8. > a1  
9.  [1]  1  2  3  4  5  6  7  8  9 10  
10. > a2  
11. [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"