R语言把一个数值的矩阵映射为一个颜色方格的矩阵

tomorrow

想把一个数值的矩阵映射为一个颜色方格的矩阵，什么函数？
参考 image() 和 filled.contour() 函数：
x <- y <- seq(-10, 10, length=50)
f <- function(x,y){
r <- sqrt(x^2 + y^2)
10*sin(r)/r
}
z <- outer(x , y , f )
image(x , y , z )
filled . contour(x ,y ,z )