用R绘制网格

1. 用grid包，下面展示其用法。

[plain] view plaincopyprint?

1. library(grid)  
2.   
3. dat 
4.                   y = rep(seq(0, 0.8, 1/5), each = 5),  
5.                   val = rnorm(25, 20, 5))  
6.   
7. # making relative values (%) to be used for color-gradiation in plot  
8. dat$rel <- 100 * dat$val / max(dat$val)  
9.   
10. # creating grey-tones relative to val -  
11. # maximum greytone is relative to the val-maximum  
12. # i use the reciprocal to get darker tones for higher values:  
13. dat$col<-paste("grey", 100 - round(dat$rel, 0), sep = "")  
14.   
15. # opening the graphic device and  
16. # setting up a viewport with borders:  
17. grid.newpage()  
18. vp1 
19.                 just = c("left", "bottom"), name = "vp1")  
20.   
21. # plotting rectangles using x/y positions  
22. grid.rect(x=dat$x,y=dat$y,height=1/5,width=1/5,hjust=0,vjust=0,vp=vp1,  
23.           gp=gpar(col=1, fill=as.character(dat$col)))  

2. 输出为：