#如何画图形的颜色填充条
#详情课查看http://127.0.0.1:26615/library/fields/html/image.plot.html
#或者 ?image.plot

library(fields)
library(spam)
data( RCMexample)
image.plot( RCMexample$x, RCMexample$y, RCMexample$z[,,1])


x<- 1:20
y<- 1:15
z<- outer( x,y,"+")
zr<- range( c(z))
image.plot( zlim=zr, legend.only=TRUE, horizontal=TRUE, legend.mar=5)