且构网

分享程序员开发的那些事...
且构网 - 分享程序员编程开发的那些事

用R绘制网格

更新时间:2022-08-14 20:59:59

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


  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 
  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
  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. 输出为:

用R绘制网格